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Preface 


This  book  is  a  rich  library  of  more  than  200  machine  language 
routines  for  programmers  to  learn  from  and  use  in  their  own 
programs.  The  programs  in  this  book  cover  a  wide  range: 

•  Character  input  and  output 

•  Sprite  definition  and  movement 

•  High-resolution  graphics 

•  Sorting  and  searching  lists  of  information 

•  Reading  and  writing  disk  files 

•  Combining  BASIC  and  ML  programs 

•  Printer  routines 

■  Addition,  subtraction,  multiplication,  and  division 

•  Conversions  between  character  and  screen  codes 

•  Random  number  generation 

•  Jiffy  clock  and  time-of-day  clock  routines 

•  Using  interrupts  and  vectors 

•  Custom  characters  (for  40-  and  80-column  displays) 

•  Sound  effects  and  music 

These  are  just  a  few  of  the  routines  you'll  find  in  this 
book.  Nearly  every  subroutine  is  listed  with  a  sample  program 
that  illustrates  how  it  works.  You  can  study  the  subroutine  by 
itself  or  see  how  it's  used  in  the  context  of  a  real  program. 

One  of  the  best  ways  to  learn  machine  language  is  to 
study  other  people's  programs.  If  you  can  see  how  someone 
else  got  the  computer  to  do  something  like  moving  sprites, 
printing  a  score,  sorting  a  list,  or  whatever,  you  can  trace 
through  the  steps  and  gain  a  better  understanding  of  the 


But  most  magazines  and  books  publish  machine  language 
(ML)  as  a  series  of  numbers  in  DA~A  statements.  You  don't 
leam  much  about  machine  language  from  typing  in  clusters  of 
numbers.  You  could  use  an  ML  monitor  to  disassemble  the 
program,  but  when  you're  faced  with  a  sea  of  JSRs  and  BEQs, 
it's  not  always  obvious  what's  going  on  in  a  program. 

The  programs  include  a  wealth  of  comments  that  take  you 
step  by  step  through  the  various  stages  of  each  routine:  setting 
up  the  variables,  calling  the  routine,  and  handling  the  results. 
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Most  routines  are  written  for  the  Commodore  64,  but  will 
run  on  the  128  with  the  changes  indicated  in  comments.  A 
few  routines  will  work  only  on  the  64  or  only  on  the  128,  but 
most  will  run  on  both  computers. 

In  addition  to  the  200-plus  routines,  we've  included  a 
complete  list  of  ML  opcodes,  with  explanations  of  how  they 
work,  and  a  complete  list,  with  explanations,  of  the  built-in 
Kernal  routines. 

Whether  you're  a  machine  language  beginner  or  a  sea- 
soned expert,  we  think  you'll  find  many  useful  programming 
techniques,  routines,  and  ideas  in  this  book. 

Todd  D.  Heimarck 

n-.i-.-i    n-,--.  u 
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All  the  source  code  in  this  book  is  ready  to  type  in  and 
assemble.  There  is  also  a  disk  available  from  COMPUTE! 
Books  which  includes  all  the  source  code  from  the  book 
(no  object  code  is  included  on  the  disk).  An  assembler  is 
required  to  use  the  disk.  To  purchase  the  disk,  use  the 
coupon  in  the  back  of  the  book  or  call  1-800-346-6767  (in 
New  York  212-887-8525). 
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Introduction 


The  paradox  of  machine  language  is  that  it's  both  simpler 
and  more  complex  than  a  high-level  language  such  as  BASIC 
or  Pascal. 

Machine  language  (ML)  is  simpler  because  a  program  con- 
sists of  many  very  small  steps.  LDA  #10  puts  the  number  10 
in  the  accumulator.  STX  $C1 15  takes  the  number  in  the  X  reg- 
ister and  stores  it  in  memory  location  $C115.  If  you  study  a 
single  line  from  a  fast  and  powerful  machine  language  pro- 
gram, you'll  usually  see  that  not  very  much  happens.  Now 
consider  a  BASIC  command  such  as  SPRITE  on  the  Com- 
modore 128.  With  one  command,  you  can  turn  a  sprite  on;  set 
its  color,  priority,  and  expansion;  and  put  it  in  multicolor 
mode.  Compared  to  the  Spartan  instruction  set  of  ML,  BASIC 
is  a  richer  and  more  complicated  language. 

But  even  though  the  instructions  are  small  and  simple, 
putting  together  a  working  ML  program  is  often  more  complex 
than  writing  a  BASIC  program.  If  you  make  a  mistake,  chances 
are  good  that  the  program  will  go  into  an  endless  loop  (or 
worse,  the  computer  will  crash).  There  are  no  convenient  error 
messages  to  tell  you  what  you  did  wrong.  You're  responsible 
for  keeping  track  of  your  own  variables.  And  you're  expected 
to  understand  some  of  the  architecture  of  the  computer — how 
the  various  support  chips  and  their  registers  work. 

Some  people  find  ML  quite  easy.  Others  struggle  to  leam 
it.  Either  way,  we  hope  you'll  discover  some  useful  routines  in 
these  pages. 

What  You'll  Find  Here 

This  book  is  divided  into  three  major  parts:  the  instruction  set, 
the  Kemal  routines,  and  the  machine  language  routines. 

The  instruction  set  lists  each  6502  machine  language  op- 
eration, with  an  explanation  of  what  it  does  and  which  flags 
are  affected.  The  6502  family  of  chips  includes  the  6510  in  the 
64;  the  8502  in  the  128;  and  the  6502  in  the  VIC-20,  Atari 
400/800,  and  original  Apple  II.  The  ML  instructions  listed  are 
common  to  all  of  these  computers.  (Incidentally,  if  you  pro- 
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gram  on  these  other  6502-based  computers,  you  may  be  able 
to  translate  some  of  the  routines  in  this  book  for  the  VIC, 
Atari,  or  Apple.)  The  instruction  set  contains  the  building 
blocks  of  ML  programming.  If  you're  a  beginner,  you  may 
want  to  look  through  this  section  first.  Even  if  you're  an  old 
pro,  you'll  need  to  refer  to  this  list  occasionally. 

The  next  section  of  this  book— "ROM  Kernal  Routines"— 
lists  the  Kernal  routines  (which  are  common  to  all  eight-bit 
Commodore  computers,  including  the  VIC,  Plus/4,  64,  and 
128).  Note  the  deliberate  misspelling  of  what  ot!  her  computer 
manufacturers  call  kernel  routines.  The  Kernal  is  a  block  of 
memory  that  uses  a  standard  jump  table  to  make  it  easier  to 
program  on  different  brands  of  Commodore  computers.  For 
example,  the  routine  that  prints  a  character  is  found  at  dif- 
ferent locations  on  the  64  and  128,  but  the  standard  entry 
point  for  the  Kernal  CHROUT  routine  is  the  same  ($FFD2)  on 
both  computers.  This  means  the  line  LDA  #65:  JSR  SFFD2  will 
work  the  same  on  both  computers— it  prints  the  letter  A  on 
the  screen.  Indeed,  it  also  works  on  the  VIC-20,  the  Plus/4, 
and  the  16.  We're  indebted  to  Ottis  Cowper  for  giving  us  per- 
mission to  reprint  a  portion  of  his  Mapping  the  Commodore  128 
(COMPUTE!  Books,  1986)  that  explains  how  the  Kemal 
routines  work. 

The  importance  of  the  Kernal  routines  cannot  be  over- 
emphasized. To  open  a  disk  file,  you  call  the  Kernal  routines 
SETLFS,  SETNAM,  and  OPEN.  (See  the  entries  under  OPENFL 
or  READFL  for  examples.)  If  these  routines  weren't  available, 
it  would  be  quite  difficult  to  read  from  or  write  to  a  disk  file; 
you'd  have  to  write  your  own  disk  operating  system,  with 
routines  to  spin  the  disk,  move  the  read/write  head  to  a  given 
sector,  read  bytes  one  at  a  time,  and  so  on. 

The  third  and  largest  part  of  the  book  is  the  collection  of 
ML  routines.  Each  subroutine  is  listed  alphabetically  by  label. 
In  some  cases,  the  entire  program  is  the  subroutine.  However, 
the  routine  is  usually  put  in  the  context  of  a  framing  program 
which  illustrates  how  to  set  up  and  call  the  given  subroutine 
(marked  by  bold  type).  When  a  routine  appears  elsewhere  in 
the  book,  its  label  appears  in  boldface  type. 

What  You  Won't  Find  Here 

The  book  is  big,  but  we  couldn't  include  everything.  One 
thing  you  won't  find  is  an  explanation  of  how  to  begin 
programming  in  ML.  If  you're  a  beginner,  you'll  find  useful 
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examples  and  programs  here,  but  you  may  also  want  to  look 
into  two  books  for  beginners:  Machine  Language  for  Beginners 
by  Richard  Mansfield  (COMPUTE!  Books)  and  Machine  Lan- 
guage by  Jim  Butterfield  (Brady  Books).  Mansfield's  book  takes 
a  software  approach,  relating  machine  language  instructions  to 
their  BASIC  counterparts.  If  you  know  how  a  FOR-NEXT  loop 
works  in  BASIC,  this  book  shows  you  how  to  do  the  same 
thing  in  ML.  Butterfield's  book  approaches  ML  more  from  the 
hardware  viewpoint,  explaining  what's  happening  inside  the 
computer  while  an  ML  program  is  running.  We  highly  recom- 
mend both  books. 

When  you're  writing  programs  for  the  64  and  128,  it's 
necessary  to  understand  something  about  how  memory  is  or- 
ganized— which  zero-page  locations  are  available;  which  ROM 
routines  are  useful;  how  the  registers  of  the  support  chips  con- 
trol video,  input/output,  and  sound.  For  a  general  introduction 
to  these  topics.  Commodore's  two  programmer's  reference 
guides  are  excellent.  The  64  version  is  published  by  Howard 
Sams;  the  128  version  comes  from  Bantam  Books.  For  more 
detail,  Mapping  the  Commodore  64  by  Sheldon  Leemon  and 
Mapping  the  Commodore  128  by  Ottis  Cowper  are  essential 
(both  published  by  COMPUTE!  Books).  In  fact,  if  you  buy 
only  one  other  machine  language  book,  get  the  mapping  book 
for  your  computer.  We  also  recommend  Anatomy  of  the  Com- 
modore 64  and  128  BASIC  7.0  Internals  (Abacus  Books).  Both 
books  feature  commented  disassemblies  of  the  BASIC  ROMs. 

The  Routines 

Each  machine  language  routine  has  a  label  up  to  six  letters 
long.  Following  the  label  is  a  more  descriptive  name  that  tells 
you  what  the  routine  does,  for  example,  SQROOT:  Calculate 
the  integer  square  root  of  an  integer  value. 

Below  the  label  and  name,  you'll  see  one  or  two  para- 
graphs that  touch  on  the  main  points  of  the  routine,  with 
examples  of  where  you  might  use  the  routine  or  a  summary  of 
how  it  works. 

Next  is  the  prototype,  which  is  something  like  a  flowchart 
converted  to  instructions  written  in  English.  It  lists  the  individ- 
ual steps  followed  by  the  subroutine  and  points  out  the  vari- 
ables and  memory  used  within  the  routine.  There  are  usually 
three  steps  covered  in  the  prototype:  how  to  set  it  up,  how  the 
routine  works,  and  how  the  results  are  handled. 
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Following  the  prototype  is  a  more  in-depth  explanation  of 
what  the  framing  program  does.  This  section  discusses  alternate 
ways  to  use  the  subroutine,  more  information  about  how  to 
modify  it  for  your  own  purposes,  how  certain  tasks  were  accom- 
plished, how  memory  is  affected,  and  so  on.  Often  there's  an 
important  note  or  even  a  warning.  The  FORMAT  routine  for- 
mats a  disk,  for  example,  which  warrants  a  warning  that  if 
you  run  this  program,  you'll  erase  everything  on  your  disk. 

Finally,  the  source  code  for  the  program  is  listed.  Some 
routines  are  a  few  lines,  others  cover  several  pages.  We  recom- 
mend that  you  use  a  symbolic  multipass  assembler  to  type  in 
these  programs  (see  below).  Although  you  can  use  a  monitor 
such  as  Micromon  or  Supermon,  you'll  find  that  an  assembler 
is  preferable. 

Typing  In  and  Assembling  the  Programs 

We  chose  the  Personal  Assembly  Language  (PAL)  assembler  to 
write  the  source  code  for  the  routines  in  this  book.  The  64  ver- 
sion (PAL)  and  128  version  (Buddy-128)  are  available  from 
many  Commodore  software  dealers,  or  from  the  distributor, 
Pro-Line  Software  in  Mississauga,  Ontario.  If  you  use  the 
LADS  assembler  from  The  Second  Book  of  Machine  Language 
(COMPUTE!  Books)-  you'll  find  that  the  source  files  are  mostly 
compatible,  with  very  minor  changes. 

If  you're  using  another  assembler,  such  as  Commodore's 
Macro  Assembler  Development  System  (MADS),  Eastern  House 
Software's  Macro  Assembler/Editor  (MAE),  Roger  Wagner's 
Merlin,  or  one  of  the  others  available,  you  may  need  to  make 
a  few  modifications  to  get  the  source  code  to  run. 

First,  a  note  about  pseudo-ops.  The  three  letters  LDA 
represent  a  machine  language  instruction  (or  operation).  The 
mnemonic  LDA  is  translated  to  a  number  that's  POKEd  into 
memory  or  saved  in  a  disk  file  bv  the  assembler.  The  opera- 
tion LDA  is  always  followed  by  one  or  two  bytes  that  provide 
additional  information.  These  bytes  are  the  operand.  In  the 
instruction  LDA  $050,  LDA  is' the  operation,  and  $050  is 
the  operand.  The  assembler  converts  this  line  to  the  numbers 
173,  80,  and  193  (SAD,  $50,  and  SCI).  For  this  instruction  and 
addressing  mode,  LDA  is  the  mnemonic,  and  SAD  is  the 
equivalent  opcode. 

Assemblers  usually  include  additional  commands  that 
aren't  really  part  of  the  ML  instruction  set,  but  they're  instruc- 
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Hons  to  the  assembler.  For  example,  PAL  takes  .OPT  OO  to 
mean  "Object  where  Origined,"  or  "assemble  this  to  mem- 
ory." Buddy-128  uses  .MEM.  LADS  uses  .O.  These  pseudo- 
operations  tell  the  assembler  to  do  one  thing  or  another. 

At  the  beginning  of  most  programs,  you'll  see  a  series  of 
equates,  each  of  which  instructs  the  assembler  to  assign  a  label 
to  a  memory  location.  The  memory  location  may  be  the  entry 
point  for  a  Kernal  ROM  routine,  it  may  be  a  location  in  RAM, 
or  it  may  be  a  register  in  the  VIC  or  CIA  or  SID  chip.  One  of 
the  most  common  equates  looks  like  this:  CHROUT  -  SFFD2. 
This  informs  the  assembler  that  the  label  CHROUT,  when  en- 
countered later  in  the  program  should  be  replaced  by  the  ad- 
dress $FFD2.  JSR  CHROUT  means  JSR  $FFD2.  Some  assemblers 
use  the  pseudo-instruction  EQU  in  place  of  the  equal  sign.  If 
your  assembler  follows  this  convention,  instead  of  CHROUT  = 
$FFD2,  you'd  substitute  CHROUT  EQU  $FFD2.  If  you're  using 
a  machine  language  monitor  or  an  assembler  that  doesn't 
allow  labels,  you'll  have  to  make  the  substitution  yourself. 
The  source  code  may  look  like  this: 

SC020    20  1)2  FF    JSR  CHROUT 

With  Micromon  or  Supermon,  you'd  have  to  look  to  the 
left  at  the  D2  FF  and  translate  the  instruction  (in  your  head)  to 
JSR  $FFD2.  Note  that  the  low  byte  precedes  the  high  byte  in 
the  object  code  to  the  left. 

Both  PAL  and  LADS  support  the  #<  and  #>  pseudo- 
operations.  From  a  two-byte  address,  the  first  (#<)  extracts  the 
low  byte,  and  the  second  (#>)  extracts  the  high  byte.  So  if  a 
previous  equate  assigned  the  memory  location  $902F  to  the  la- 
bel NAMES,  the  line  LDA  #<NAMES  tells  the  assembler  to 
load  the  accumulator  with  the  low  byte  of  NAMES.  Since 
NAMES  is  $902F,  this  is  equivalent  to  LDA  #$2F.  If  you  saw 
LDA  #>NAMES,  it  would  be  the  same  as  LDA  #$90.  Again, 
you  can  look  to  the  left  to  find  the  value  being  referenced. 

Some  other  pseudo-ops  include  .BYTE,  .WORD,  and 
.ASC.  If  you  see  a  line  like  ZEBRA  .BYTE  15,  it  means  that  the 
byte  value  of  15  is  inserted  in  the  program  at  the  given  loca- 
tion and  that  particular  memory  location  is  given  the  label  ZE- 
BRA. Some  assemblers  use  DB  (Data  Byte)  instead  of  .BYTE. 
The  .WORD  pseudo-op  translates  a  two-byte  quantity  to  its 
low  byte  and  high  byte.  The  .ASC  is  followed  by  a  quotation 
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mark  and  a  series  of  one  or  more  characters,  which  are  stored 
in  memory  as  Commodore  ASCII  values. 

If  you  don't  understand  an  instruction  that  contains  a 
pseudo-op,  look  to  the  left  for  the  equivalent  object  code. 

Using  the  Routines  in  Your  Own  Programs 

The  programs  in  this  book  have  all  been  tested.  The  original 
source  code  was  assembled  and  printed  to  disk  (using  PAL's 
.OPT  P  option),  and  then  uploaded  directly  to  the  computer 
used  to  typeset  this  book.  So  as  far  as  we  know,  there  are  no 
typographical  errors  in  the  program  listings. 

But  that  doesn't  mean  that  each  routine  is  perfect  and 
ready  to  be  inserted  as  is  in  your  own  programs.  For  one 
thing,  nearly  all  of  the  example  programs  start  at  $C000  (deci- 
mal 49152).  At  the  very  least,  you'll  probably  want  to  relocate 
the  routines  to  other  parts  of  memory,  especially  if  you're 
using  a  128.  You  should  also  watch  for  conflicts  among 
routines  that  use  zero-page  locations.  Many  routines  depend 
on  indirect-Y  addressing  and  locations  251-252  and  253-254 
($FB-$FC  and  $FD-$FE).  In  some  cases,  you'll  have  to  sub- 
stitute other  available  zero-page  addresses. 

Many  of  the  routines  were  written  to  be  general  and  flex- 
ible solutions  to  a  problem.  If  you  have  a  more  specific 
application  in  mind,  you  might  want  to  dispense  with  the  sub- 
routine and  insert  a  modified  version  of  a  routine  directly  in 
your  main  program.  You  may  also  see  ways  to  shorten  a  rou- 
tine or  make  it  run  faster.  We  encourage  you  to  experiment 
with  the  programs. 

For  128  Users 

Since  most  of  the  programs  call  Kernal  routines,  you'll  need  to 
be  in  bank  15,  where  addresses  $0000-$3FFF  are  RAM  in 
bank  1  and  $4000-$FFFF  appear  as  ROM.  Instead  of  assem- 
bling programs  to  $C000,  try  $0C00  (decimal  3072)  on  the 
128.  To  take  full  advantage  of  the  128K  of  memory,  you  need 
to  understand  how  the  different  memory  banks  are  accessed. 
Both  the  128  Programmer's  Reference  Guide  and  Mapping  the 
Commodore  128  discuss  how  to  switch  between  banks. 

About  the  Disk 

A  companion  disk  that  contains  all  the  routines  in  this  book  is 
available  for  purchase  from  COMPUTE!  Books.  The  programs 
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are  included  as  source  code,  not  object  code,  which  means 
you'll  need  an  assembler  like  PAL  or  LADS  to  create  the 
runnable  program — the  object  code. 

The  source  files  take  up  much  more  space  than  is  avail- 
able on  a  single-sided  1541  disk,  so  both  sides  were  used.  The 
disk  is  a  flippy:  To  use  the  first  half  of  the  programs,  use  one 
side;  to  load  the  other  programs,  flip  the  disk  over.  The  orig- 
inal source  files  filled  more  than  the  1328  blocks  available  on 
a  flippy.  Rather  than  omit  programs  from  the  disk,  we  chose 
to  abbreviate  the  comments  in  a  few  programs.  Thus,  the  com- 
ments in  the  source  code  on  disk  may  not  be  exactly  the  same 
as  the  comments  in  the  listings  in  this  book.  If  you  list  the 
programs  on  the  disk,  you  may  find  that  hi  byte  has  replaced 
the  phrase  high  byte  in  the  book,  for  example. 
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ADC 

ADd  with  Carry:  Add  a  value  to  the  accumulator,  with  the  re- 
sult in  .A. 

Addressing  Modes 

(Zero  pagcX)     ADC  ($FC,X) 


Zero  page 
Immediate 
Absolute 
(Zero  page),Y 

Zero  pagcX 
Absolute,Y 


ADC  $FA 
ADC  #$45 
ADC  $10 
ADC  ($FB),Y 

ADC  $03,X 
ADC  $A401,Y 


61  FC 
65  FA 
69  45 
6D  10  00 
71  FB 

75  03 
79  01  A4 


Absolute,X        ADC  SC002.X     7D  02  CO 


Flags 

N  (Negative) 
V  (Overflow) 


6  cycles 

3  cycles 
2  cycles 

4  cycles 

5  cycles 

(+1  over  a  page) 
4  cycles 
4  cycles 

(+1  over  a  page) 
4  cycles 

(+1  over  a  page) 


If  the  result  is  S80-$FF,  the  N  flag  is  set. 
If  an  overflow  occurs,  V  is  set. 


B 
D 
I 

Z 

c 


(Break) 
(Decimal) 
(Interrupt) 
(Zero) 
(Carry) 


If  the  result  is  zero,  Z  is  set. 
If  the  result  exceeds  SFF,  C  is  set. 
ADC  starts  with  the  number  in  the  accumulator  and  adds  to  it 
the  given  value  (which  varies  according  to  which  addressing 
mode  is  used),  plus  an  additional  0  or  1,  depending  on  the  state 
of  the  carry  flag.  Remember  to  clear  the  carry  flag  (CLC)  before 
addition  is  started.  If  you're  adding  large  numbers  (two  bytes 
or  more),  the  carry  bit  will  take  care  of  itself.  As  the  addition 
progresses  toward  higher  bytes  in  the  number,  the  carry  bit  spills 
over  into  the  next  most  significant  byte.  When  you're  adding 
multiple  bytes,  add  together  the  least  significant  first— the  low 
byte— and  proceed  to  add  the  more  significant  bytes  later. 

The  carry  flag  is  set  when  two  bytes  are  being  added  (say, 
250  and  10)  and  the  total  is  more  than  can  be  stored  in  one 
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byte  (more  than  255).  If  you're  in  binary-coded  decimal  mode 
(D  flag  set  to  1)  when  addition  occurs,  the  carry  flag  is  set  if 
the  sum  of  two  bytes  exceeds  99. 

The  result  of  addition  is  found  in  the  accumulator.  If  vou 
want  to  save  this  number,  be  sure  to  STA  after  the  addition. 


AND 

Bitwise  AND:  Perform  a  bitwise  AND  between  A  and  a  value. 
Result  resides  in  .A. 


Addressing 

(Zero  page,X) 
Zero  page 
Immediate 
Absolute 
(Zero  page),Y 
Zero  page.X 
Absolute.Y 


Modes 

AND  ($E6,X) 
AND  $22 
AND  #$1B 
AND  J1E5C 
AND  (SF9),Y 
AND  $50,X 
AND  $C493,Y 


21  E6 
25  22 
29  IB 
2D  5C  IE 
31  F9 
35  50 
39  93  C4 


Absolute,X        AND  S3BC3.X    3D  C3  3B 


6  cycles 

3  cycles 
2  cycles 

4  cycles 

5  cycles 
4  cycles 
4  cycles 

(+1  over  a  page) 
4  cycles 

(  +  1  over  a  page) 


Flags 

N  (Negative)    If  bit  7  is  set,  N  flag  is  set. 
V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)         If  result  is  zero,  Z  is  set. 
C  (Carry)  — 

AND  performs  a  bitwise  AND.  Corresponding  bits  in  .A  and 
the  value  are  compared;  if  either  bit  is  off,  the  result  is  zero. 
Both  bits  must  be  on  for  the  resulting  bit  to  be  set. 

In  the  example,  bits  0,  6,  and  7  of  the  second  value  ($3E) 
are  off,  so  the  effect  is  that  those  bits  are  cleared  from  the 
original  number  (SAB).  To  turn  bits  on,  use  ORA. 

SAB  1010  1011 
AND  S3E  0011  1110 
S2A  0010  1010 


ASL 

Arithmetic  Shift  Left:  Shift  a  value  (accumulator  or 
to  the  left. 
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Addressing  Modes 

Zero  page  ASL  $4F  06  4F        5  cycles 

ASL  OA  2  cycles 

ASL  SDF01  OE  01  DF  6  cycles 

ASL  SEF.X  16  EF       6  cycles 

ASL  $AA05,X  IE  05  AA  7  cycles 

N  (Negative)    Bit  6  shifts  into  7  and  sets/dears  the  N  flag. 

V  (Overflow)  — 

B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  If  bits  0-6  are  zero,  Z  is  set. 

C  (Carry)  Bit  7  shifts  into  carry. 

ASL  causes  all  eight  bits  to  shift  one  position  to  the  left.  A 
zero  is  placed  into  bit  0,  while  bit  7  moves  into  the  carry  flag. 
In  contrast,  an  ROL  instruction  does  the  same  thing  except  that 
ROL  rotates  the  carry  flag  into  bit  0.  With  ASL,  a  zero  is  al- 
ways put  into  bit  0. 

ASL  is  often  used  to  double  a  number,  to  test  bits  with 
the  N  or  C  flag  and  branch  accordingly,  or  to  perform  a  two- 
byte  shift.  When  a  two-byte  shift  is  being  carried  out,  ASL  is 
used  with  ROL;  you  ASL  the  low  byte  and  ROL  the  high  byte. 

BCC 

Branch  if  Carry  Clear:  Branch  forward  or  backward  if  the  C 
flag  is  clear. 
Addressing  Modes 

Relative  BCC  $12B4        90  A5       2  cycles 

(  +  1  over  a  page) 

Flags 

N  (Negative)  — 

V  (Overflow)  - 

B  (Break)  — 
D  (Decimal)  — 
I  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  - 

BCC  operates  off  the  carry  flag,  which  is  affected  most  often 
by  addition  and  subtraction  (ADC  and  SBC)  and  by  compares 
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(CMP,  CPX,  CPY).  As  with  the  other  branch  operations,  the 
range  is  limited  to  127  bytes  forward  or  128  bytes  backward. 

After  ADC,  a  cleared  carry  means  that  there  is  no  carry  to 
be  concerned  about.  After  SBC,  a  cleared  carry  means  there  is 
a  borrow  to  handle. 

A  compare  instruction  leaves  the  carry  bit  in  one  of  two 
states:  If  the  number  in  the  register  is  larger  than  (or  equal  to) 
the  value  being  compared,  carry  is  set.  If  the  register  is  small- 
er, carry  is  dear.  So  I.DX  #$05:  CPX  $6793:  BCC  will  cause 
the  branch  to  happen  if  the  number  in  .X  is  smaller  than  the 
number  at  $6793.  If  $6793  holds  a  number  between  $06  and 
$FF,  the  BCC  will  branch  to  the  given  address. 

BCS 

Branch  if  Carry  Set:  Branch  forward  or  backward  if  the  C  flag 

is  set. 

Addressing  Modes 

Relative  BCS  $4578         BO  B2        2  cycles 

(+1  over  a  page,  H  if 
branch  occurs) 

Flags 

N  (Negative)  — 
V  (Overflow)  — 

B  (Break) 
D  (Decimal)  — 
I    (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  - 

BCS,  like  its  counterpart  BCC,  works  off  the  carry  flag.  It  is 
seen  most  often  after  addition  or  subtraction  operations  (ADC, 
SBC)  or  after  compares  (CMP,  CPX,  CPY).  As  with  the  other 
branching  instructions,  the  range  of  the  branch  is  limited  to 
127  bytes  forward  or  128  bytes  backward. 

After  ADC,  a  set  carry  indicates  that  the  result  of  the 
addition  has  exceeded  the  size  of  a  single  byte — in  other 
words,  the  result  is  greater  than  255.  After  SBC,  a  set  carry 
means  that  no  borrow  has  been  necessary  (the  result  is  be- 
tween 0  and  255). 

Following  compares,  carry  may  be  set  or  cleared.  If  the 
number  in  the  register  is  larger  than  (or  equal  to)  the  value  be- 
ing compared,  carry  is  set.  Otherwise,  carry  is  cleared  (mean- 
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ing  the  value  in  the  register  is  smaller).  So,  LDA  $FB:  CMP 
#$0A:  BCS  Will  cause  branching  to  a  given  address  to  occur  if 
the  number  in  location  $FB  is  greater  than  or  equal  to  $0A 
($0A-$FF). 

BEQ 

Branch  if  EQual  to  zero.  Branches  forward  or  backward  if  the 
Z  flag  is  set. 

Addressing  Modes 

Relative  BEQ  $CE9A       FO  10        2  cycles 

(+1  over  a  page) 

Flags 

N  (Negative)  — 
V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
1  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry) 

BEQ  can  branch  up  to  127  bytes  forward  or  128  bytes  back. 
Although  most  assemblers  allow  you  to  specify  a  target  ad- 
dress or  label,  the  address  is  not  assembled.  Instead,  an  offset 
is  calculated  (numbers  $00-$7F  are  forward  branches;  $80-$FF 
are  backward). 

There  are  two  ways  in  which  the  Z  flag  may  be  set.  After 
a  load  instruction  (LDA,  LDX,  I.DY),  Z  is  set  if  the  value 
loaded  is  zero.  Other  instructions  (transfers,  addition,  and  so 
forth)  may  also  affect  the  Z  flag.  In  this  case,  the  BEQ  takes  ef- 
fect if  the  result  is  a  zero. 

After  a  compare  (CMP,  CPX,  CPY),  the  Z  flag  is  set  if  the 
register  and  value  compared  are  equal.  Here  the  BEQ  means 
"branch  if  the  two  numbers  compared  are  equal." 

BIT 

Test  memory  BITs:  AND  the  accumulator  with  memory,  with- 
out storing  the  result. 

Addressing  Modes 

Zero  page         BIT  $04  24  04        3  cycles 

BIT  $DC01         2C  01  DC  4  cydes 
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Flags 

N  (Negative)  Bit  7  of  memory  is  copied  to  N. 
V  (Overflow)    Bit  6  of  memory  is  copied  to  V. 

B  (Break)  — 
D  (Decimal)  — 
1    (Interrupt)  — 

Z  (Zero)         If  the  result  of  the  AND  is  zero,  Z  is  set. 
C  (Carry) 

The  BIT  instruction  performs  a  bitwise  AND  between  the  accu- 
mulator and  a  specified  memory  byte.  (See  the  entry  under 
AND  for  an  explanation  and  example  of  a  bitwise  AND.)  The 
zero  flag  is  set  or  cleared  as  a  result  of  the  AND.  Unlike  the 
AND  instruction,  which  alters  the  value  in  .A,  BIT  affects  only 
the  status  register.  The  accumulator  remains  intact  after  BIT. 

Within  the  status  register,  bits  6  and  7  take  on  the 
corresponding  bit  values  of  the  specified  memory  byte.  When 
testing  these  bits,  BIT  is  generally  followed  by  BVC/BVS  or 
BMI/BPL,  causing  the  appropriate  branch. 

BIT  instructions  are  frequently  placed  in  succession  at  the 
beginning  of  a  subroutine.  Entering  the  routine  at  different 
points  causes  the  status  flags  to  take  on  different  values.  But 
more  significantly,  the  address  following  each  BIT  may  ac- 
tually be  used  as  an  opcode.  This  allows  you  to  load  different 
values  into  a  register  (A,  X,  or  Y)  or  to  carry  out  other  opera- 
tions, depending  upon  the  entry  point. 

For  example,  say  you  have  a  subroutine  where  you  want 
the  value  of  .Y  to  start  out  as  $00,  $A5,  or  $B5.  You  could  be- 
gin the  routine  with  I.DY  #$00:  BIT  SA5A0:  BIT  $B5A0.  If  you 
jump  in  at  the  byte  following  the  first  BIT  instruction,  the  Y 
register  will  load  $A5  ($A5A0  is  stored  low  byte  first,  $A0 
$A5,  which  executes  as  LDY  #$A5).  The  next  BIT  instruction 
will  affect  only  the  status  register,  leaving  .Y  unchanged.  If 
you  jump  in  at  the  $B5A0  instruction,  an  LDY  #$B5  will  exe- 
cute and  fall  through  into  the  subroutine. 

BMI 

Branch  if  Minus:  Execute  a  branch  if  the  N  flag  is  set. 
Addressing  Modes 

Relative  BMI  $3CA3        30  7B        2  cycles 

(+1  over  a  page) 
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Flags 

N  (Negative)  — 
V  (Overflow)  — 

B  (Break) 
D  (Decimal)  — 


Z  (Zero)  — 
C  (Carry)  - 

BMI  can  branch  forward  up  to  127  bytes  or  backward,  128. 
The  branch  occurs  if  the  N  (negative)  flag  is  set.  A  negative 
number  is  one  that  has  bit  7  set  and  falls  in  the  range 
$80-$FF.  A  variety  of  instructions— adds,  subtracts,  loads, 
compares — set  the  N  flag. 


Branch  if  Not  Equal:  Branch  forward  or  backward  if  the  Z  flag 


Addressing  Modes 

Relative  BNE  $4102        DO  3A       2  cycles 


Flags 

N  (Negative)  — 
V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  - 

BNE  can  branch  up  to  127  bytes  forward  or  128  bytes  back- 
ward. Assemblers  generally  calculate  this  offset  from  a  speci- 
fied target  address  or  label.  An  offset  of  $00-$7F  indicates  a 
forward  branch;  $80-$FF.  a  backward  branch. 

A  branch  with  BNE  takes  place  when  the  Z  flag  is  cleared. 
The  zero  flag  (Z)  may  be  cleared  several  ways.  It's  set  if  the 
result  of  an  operation  is  zero;  it's  cleared  if  the  result  is  not 
equal  to  zero.  After  a  load  instruction  (LDA,  LDX,  LDY),  Z  is 
cleared  if  the  value  is  nonzero.  Tranfers,  addition,  and  other 
instructions  affect  the  Z  flag  similarly.  In  these  cases,  BNE 
causes  a  branch  if  the  result  is  not  zero. 


BNE 


is  clear 


(+1  over  a  page.  +1  if 
branch  occurs) 
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Following  a  compare  (CMP,  CPX,  CPY),  the  Z  flag  is 
cleared  if  the  register  and  value  are  different.  Here  the  BNE 
means  "branch  if  the  two  numbers  compared  are  not  equal." 

BNE  often  follows  a  decrement  instruction  (DEX,  DEY)  at 
the  end  of  a  loop.  The  loop  continues  its  operation  as  long  as 
the  Z  flag  is  cleared. 

BPL 

Branch  if  PLus:  Branch  forward  or  backward  if  the  negative 
flag  is  clear. 
Addressing  Modes 

Relative  BPL  S959F         10  DE       2  cycles 

( + 1  over  a  page) 

Flags 

N  (Negative)  — 

V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  — 

BPI.  branches  if  previous  instructions  have  cleared  the  neg- 
ative flag.  Although  you  usually  specify  an  address  or  target, 
BPL  assembles  into  the  instruction  plus  an  offset — forward 
0-127  bytes  ($00-$7F)  or  backward  1-128  bytes  ($FF-$80). 

BPL  is  commonly  used  in  loops  where  .X  or  .Y  starts  out 
with  a  positive  value  (0-127),  and  then  DEY  or  DEX  counts 
down  to  zero.  Zero  is  a  positive  number,  so  the  BPL  loop 
continues  until  a  final  decrement  wraps  around  to  $FF,  which 
is  negative. 

BRK 

BReaK:  Causes  a  forced  interrupt. 
Addressing  Modes 

Implied  BRK  00  7  cycles 

Flags 

N  (Negative)  — 

V  (Overflow)  — 

B  (Break)        Set  to  1 
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D  (Decimal)  — 
I    (Interrupt)   Set  to  1 
Z  (Zero)  — 
C  (Carry)  - 

BRK  halts  the  ML  program,  saving  the  contents  of  the  pro- 
gram counter  and  the  status  register  (with  B  and  I  set)  to  the 
stack.  Following  this,  it  jumps  to  the  service  routine  at  SFFFE. 

The  service  routine  itself  points  to  a  routine  at  $FF48 
($FF17  on  the  128),  which  checks  for  the  B  flag.  Finding  it  set, 
it  jumps  through  the  BRK  vector  at  $0316. 

Normally,  thus  vector  points  to  a  BASIC  warm  start  (on 
the  64).  Many  ML  monitors,  including  Micromon  and 
Supermon,  substitute  in  this  vector  the  address  of  their  own 
initialization  routine,  designed  to  print  the  contents  of  the  pro- 
gram counter,  data,  and  status  registers.  When  a  BRK  is  en- 
countered, the  monitor  is  enabled,  and  the  current  status  of 
the  registers  is  printed.  On  the  128,  the  vector  points  to  the 
built-in  machine  language  monitor. 

BVC 

Branch  if  oVerflow  Clear:  Branch  (relative)  if  the  V  flag  is 
clear. 

Addressing  Modes 

Relative  BVC  $2235         50  64        2  cycles 

( +  1  over  a  page) 

Flags 

N  (Negative)  — 
V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
1  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  - 

The  V  (overflow)  flag  is  important  only  when  you're  using 
signed  arithmetic.  Since  adding  $FF  to  $06  results  in  $05  (plus 
a  set  carry),  the  number  $FF  acts  like  a  - 1.  $FE  is  -  2,  $FD  is 
—3,  and  so  on.  Within  signed  arithmetic,  the  negative  num- 
bers include  $80-$FF  (128  through  255  or  -128  through  -1), 
the  positive  numbers  $00-$7F  (0-127). 
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With  unsigned  arithmetic  (numbers  0-255),  the  carry  flag, 
C,  indicates  when  an  overflow  has  occurred:  numbers  larger 
than  256  or  smaller  than  0.  In  signed  arithmetic  (numbers 
~128  through  127),  an  overflow  happens  when  the  result  is 
larger  than  127  or  smaller  than  - 128.  The  V  flag  is  set  when 
there's  an  overflow  from  bit  6  to  bit  7.  BVC  enables  you  to 
branch  forward  or  backward  based  on  the  current  state  of  V. 

BVS 

Branch  if  oVerflow  Set:  Branch  (relative)  if  the  V  flag  is  set. 
Addressing  Modes 

Relative  BVS  SB  IDE        70  9F        2  cycles 

(+1  over  a  page,  +1  if 
branch  occurs) 

Flags 

N  (Negative)  — 

V  (Overflow)  — 

B  (Break) 
D  (Decimal)  — 
I    (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  — 

BVS  acts  on  a  set  overflow  (V)  flag,  branching  as  many  as  127 
bytes  forward  or  128  backward. 

The  V  flag  is  used  primarily  for  work  in  signed  arithmetic 
(with  numbers  ranging  from  - 128  through  127).  Here,  bit  7 
holds  the  sign  of  the  number.  Positive  values  run  from  $00 
through  $7F  (0  through  127);  negative  numbers  from  $80 
through  $FF  (128  through  255  or  -128  through  -1). 

Prior  to  the  addition  or  subtraction  of  two  signed  num- 
bers, V  is  usually  cleared  with  CLV.  If  overflow  occurs  from 
bit  6  to  7  as  a  result  of  the  operation,  it  means  a  number 
larger  than  127  or  smaller  than  —128  has  been  generated.  The 

V  flag  is  set  to  indicate  that  a  sign  change  has  occurred.  A 
BVS  instruction,  which  generally  follows,  will  then  direct  the 
program  to  branch  accordingly. 

BVS  is  also  used  after  BIT  when  bit  6  of  a  specified  value 
is  being  tested. 
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CLC 

CLear  Carry:  Clear  the  carry  flag. 
Addressing  Modes 

Implied  CLC  18  2  cycles 

Flags 

N  (Negative)  — 

V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)         Sets  C  to  zero. 

CLC  clears  the  carry  flag,  which  is  necessary  for  the  ADC 
(ADd  with  Carry)  instruction  to  work  properly.  It  may  also  be 
used  to  force  a  branch.  In  the  absence  of  a  branch-always 
instruction,  CLC:  BCC  will  suffice.  The  carry  flag  also  affects 
rotates  (ROL  and  ROR). 

CLD 

CLear  Decimal  mode:  Turns  off  binary-coded  decimal  (BCD) 
mode. 

Addressing  Modes 

Implied  CLD  D8  2  cycles 

Flags 

N  (Negative)  — 

V  (Overflow)  — 

B  (Break) 

D  (Decimal)     Set  to  zero. 
I    (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  - 

CLD  is  used  to  restore  the  computer  to  its  normal  binary 
mode,  typically  after  some  BCD  operation  has  been 
performed. 

While  decimal  mode  is  in  effect  (entered  with  SED),  bytes 
can  range  in  value  from  0  through  99,  and  nybbles  from  0 
through  9.  To  carry  out  a  decimal  calculation,  execute  an  SED, 
do  the  math,  and  restore  binary  mode  with  CLD. 
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CXI 

CLear  Interrupt  flag:  Reenable  maskable  (IRQ)  interrupts. 
Addressing  Modes 

Implied  CLI  58  2  cycles 

Flags 

N  (Negative)  — 

V  (Overflow)  — 

B  (Break)  — 

D  (Decimal)  — 

I    (Interrupt)    Sets  I  to  zero. 

Z  (Zero)  — 

C  (Carry)  - 

Interrupt  requests  (IRQs)  occur  60  times  per  second  (50  times 
per  second  on  most  European  64s  and  128s).  The  interrupt 
routine  is  called,  and  various  housekeeping  chores  such  as 
checking  the  keyboard  and  updating  the  jiffy  clock  are  then 
performed.  There  are  several  other  sources  of  interrupts  as 
well. 

In  some  cases,  it's  necessary  to  disable  interrupts  to  fore- 
stall the  possibility  that  an  IRQ  will  happen.  This  is  especially 
important  in  situations  where  a  wedge  is  being  installed  or  when 
character  ROM  is  being  read.  The  5EI  instruction  sets  the 
interrupt  flag  to  disable  IRQs.  CLI  turns  interrupts  back  on. 

Note  that  the  state  of  the  I  flag  does  not  affect 
nonmaskable  interrupts  (NMIs). 

CLV 

CLear  oVerflow:  Clear  the  overflow  flag. 
Addressing  Modes 

Implied  CLV  B8  2  cycles 

Flags 

N  (Negative)  — 

V  (Overflow)    Set  to  zero. 

B  (Break)  — 
D  (Decimal)  — 
1  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  - 

CLV  clears  the  overflow  flag  (V)  to  zero,  typically  before  an 
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ration  involving  signed  arithmetic.  Signed  arithmetic  nan- 
numbers  from  -128  through  127.  The  negative  numbers 
are  $80-$FF  (128  through  255  or  -128  through  -1);  the  pos- 
itive numbers  are  $00-$7F  (0-127). 

When  a  number  changes  sign  in  signed  arithmetic,  an 
overflow  occurs  from  bit  6  to  bit  7  in  the  result,  setting  V.  Fre- 
quently, at  this  point— perhaps  after  a  BVS— a  CLV  is  used  to 
clear  the  flag. 

CLV  is  sometimes  used  along  with  BVC  to  carry  out  a 
"branch  always"  (such  as  CLV:  BVC). 

CMP 

CoMPare:  Compare  the  number  in  .A  with  a  value. 
Addressing  Modes 


(Zero  page.X) 
Zero  page 
Immediate 
Absolute 
(Zero  page),Y 

Zero  page,* 
Absolute.Y 

Absolute^ 

Flags 

N  (Negative) 


CMP  ($6B,X) 
CMP  $55 
CMP  #$30 
CMP  $1CA8 
CMP  ($F1),Y 

CMP  $10,X 
CMP  $1EFC,Y 


CI  6B 
C5  55 
C9  30 
CD  A8 
Dl  Fl 


1C 


D5  10 
D9  PC  IE 


CMP$9500.X     DD00  95 


6  cycles 

3  cycles 
2  cycles 

4  cycles 

5  cycles 

(  +  1  over  a  page) 
4  cycles 
4  cycles 

(  +  1  over  a  page) 
4  cycles 

(+1  over  a  page) 


V  (Overflow)  — 


If  .A  minus  the  value  is  $80-$FF  (or 
through  -1),  N  is  set. 


128 


B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)         If  .A  equals  the  value,  Z  is  set. 
C  (Carry)         If  .A  is  greater  than  or  equal  to  the  value,  C  is 
set. 

CMP  compares  the  accumulator  value  with  another  number 
by  subtracting  the  value  from  .A.  The  two  values  are  not 
changed,  and  the  result  is  thrown  away.  The  operation  does 
set  three  flags,  however. 

A  very  common  use  of  CMP  is  to  look  for  a  specific 
value — CMP  #$30:  BEQ.  for  example.  If  .A  holds  a  $30,  the 
result  of  subtracting  $30  is  zero,  and  the  Z  flag  will  be  set  The 
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BEQ  then  branches  on  if  equal  to  zero.  If  the  two  numbers  are 
not  equal,  the  branch  will  not  occur. 

Another  way  to  use  CMP  is  to  look  for  numbers  within  a 
certain  range.  If  the  number  in  .A  is  greater  than  or  equal  to 
the  number  being  compared,  the  carry  flag  will  be  set.  (See 
SBC  for  a  discussion  of  how  the  C  flag  is  used  in  subtraction.) 
If  .A  is  less  than  the  value,  the  C  flag  will  be  cleared.  You  can 
then  use  BCS  or  BCC  to  branch  to  the  appropriate  location. 

CPX 

ComPare  .X:  Compare  .X  with  a  value. 
Addressing  Modes 

Immediate  CPX  #$A9  EO  A9  2  cycles 
Zero  page         CPX  $1F  E4  IF        3  cycles 

Absolute  CPX  $3002        EC  02  30  4  cycles 

Flags 

N  (Negative)    If  .X  minus  the  value  is  $80-$FF,  N  is  set. 

V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)  If  .X  equals  the  value,  Z  is  set. 

C  (Carry)        If  .X  is  greater  than  or  equal  to  the  value,  C  is 
set. 

CPX  subtracts  the  value  from  .X,  discarding  the  result.  In  the 
process,  three  flags  are  set,  based  on  the  result  of  the  subtrac- 
tion. In  most  cases,  CPX  is  used  along  with  a  branch  instruc- 
tion operating  on  the  N,  Z,  or  C  flag. 

CPY 

ComPare  .Y:  Compare  .Y  with  a  value. 
Addressing  Modes 

Immediate  CPY  #$16  CO  16  2  cycles 
Zero  page         CPY  $F0  C4  F0        3  cycles 

Absolute  CPY  $C020        CC  20  CO  4  cycles 

Flags 

N  (Negative)    If  .Y  minus  the  value  is  $80-$FF,  N  is  set. 

V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
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I    (Interrupt)  — 

Z  (Zero)         If  .Y  equals  the  value,  Z  is  set. 
C  (Carry)        If  .Y  is  greater  than  or  equal  to  the  value,  C  is 
set. 

CPY  performs  the  operation  .Y  minus  value,  without  storing 
the  result  anywhere.  The  N,  Z,  and  C  flags  are  based  on  the 
result  of  the  subtraction.  CPY  is  most  often  used  in  conjunc- 
tion with  a  branch  instruction,  especially  in  loops. 

DEC 

DECrement:  Subtract  one  from  a  value. 
Addressing  Modes 

Zero  page         DEC  $14  C6  14        5  cycles 

Absolute  DEC  $4707        CE  07  47  6  cycles 

Zero  page.X  DEC  $30,X  D6  30  6  cycles 
Absolute^  DEC  $5F02,X  DE  02  5F  7  cycles 
Flags 

N  (Negative)    If  the  result  is  negative  ($80-$FF),  N  is  set. 

V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)         If  the  value  holds  a  $01  and  it  counts  to  $00,  Z 

is  set. 
C  (Carry)  — 

DEC  decrements  the  contents  of  the  specified  byte  by  one,  set- 
ting the  N  and  Z  flags  based  on  the  result.  After  counting 
down  to  zero,  the  next  DEC  yields  a  255  (a  negative  number). 
For  this  reason,  DEC  is  almost  always  used  in  loops  which 
count  down  to  zero  (Z  is  set)  or  to  one  past  zero  (N  is  set). 

DEX 

DEcrement  X:  Subtract  one  from  the  value  in  the  X  register. 
Addressing  Modes 

Implied  DEX  CA  2  cycles 

Flags 

N  (Negative)    If  the  result  is  negative  ($80-$FF),  N  is  set. 

V  (Overflow)  - 

B  (Break)  — 
D  (Decimal)  — 
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I    (Interrupt)  — 

Z  (Zero)  If  .X  holds  a  $01  and  it  counts  to  $00,  Z  is  set. 

C  (Carry)  - 

DEX  is  used  most  often  within  loops  that  count  from  a  given 
value  down  to  zero  or  one  past  zero  (255).  If  X  holds  a  zero, 
DEX  causes  it  to  wrap  around  to  255. 

DEY 

DEcrement  .Y:  Subtract  one  from  the  value  in  the  Y  register. 
Addressing  Modes 


Implied 
Flags 

N  (Negative) 
V  (Overflow) 


DEY  88  2  cycles 

If  the  result  is  negative  ($80-$FF),  N  is  set. 


If  .Y  holds  a  $01  and  it  counts  to  $00,  Z  is  set. 


B  (Break) 
D  (Decimal) 
1  (Interrupt) 
Z  (Zero) 
C  (Carry) 

In  its  application,  DEY  is  similar  to  DEX.  Like  DEX,  it's  fre- 
quently found  in  counting  loops  that  decrement  to  zero  or  to 
one  past  zero. 

EOR 

Exclusive  OR:  Perform  a  bitwise  EOR  between  the  accu- 
mulator and  a  value.  The  result  is  stored  in  the  accumulator. 


Addressing  Modes 

(Zero  page,X)     EOR  ($EB,X) 


Zero  page 
Immediate 
Absolute 
(Zero  page),Y 

Zero 


.V 


EOR  $E9 
EOR  *$93 
EOR  $8DA2 
EOR  (SC2),Y 

EOR  $2B,X 
EOR  SCF88.Y 


41  EB 

45  E9 

49  93 

4D  A2  8D 

51  C2 

55 
59 


2B 
88 


CF 


Absolute,X        EOR  $53E8,X     5D  E8  53 


6  cycles 

3  cycles 
2  cycles 

4  cycles 

5  cycles 

( + 1  over  a  page) 
4  cycles 
4  cycles 

(+1  over  a  page) 
4  cycles 

(  +  1  over  a  page) 
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Flags 

N  (Negative)    If  the  result  is  $80-$FF,  N  is  set. 

V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)         If  the  result  is  zero,  Z  is  set. 
C  (Carry)  - 

EOR  is  a  bitwise  operation  like  AND  and  ORA.  It  compares 
the  bits  in  the  accumulator  with  a  value  from  memory  and 
sets  the  resulting  bits  according  to  the  logic  of  exclusive  OR, 
which  is  one  or  the  other,  but  not  both.  A  one  and  a  zero  result 
in  a  bit  that's  set.  But  if  both  are  zeros  or  both  are  ones,  the 
result  is  a  zero: 
$6E  0110  1110 

$78  0111  1000 

In  the  example  note  that  where  bits  are  set  in  $16  (bits  1, 
2,  and  4),  the  corresponding  bits  in  $6E  are  flipped.  If  you 
EOR  a  given  bit  with  zero,  the  result  is  no  change.  But  if  vou 
EOR  with  one,  a  zero  becomes  a  one,  and  a  one  becomes  a  zero. 

EOR's  primary  uses  are  in  flipping  specific  bits  of  a  mem- 
ory location  or  register,  and  in  encryption.  If  you  EOR  with  a 
specific  number  and  then  EOR  with  the  same  number,  you  get 
back  the  original  value.  This  property  makes  EOR  valuable  for 
encoding  and  decoding. 

INC 

INCrement:  Add  one  to  a  value. 
Addressing  Modes 

Zero  page  INC  $2F  E6  2F         5  cycles 

Absolute  INC$BC0B        EE  0B  BC  6  cycles 

Zeropage,X  INC  $24,X  F6  24  6  cycles 
Absolute.X  INC$BFFF,X  FE  FF  BF  7  cycles 
Flags 

N  (Negative)    If  the  result  is  negative  ($80-$FF),  N  is  set. 

V  (Overflow)  - 

B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 
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Z  (Zero)       If  the  value  holds  an  $FF  and  it  counts  to  $00, 

Z  is  set. 
C  (Carry)  — 

INC  adds  one  to  a  memory  location,  almost  invariably  a  counter 
byte.  If  the  byte  holds  a  255  ($FF),  it  wraps  around  to  zero. 
This  makes  it  ideal  for  loops  where  the  X  and  Y  registers  are 
already  being  used  (thus  precluding  use  of  1NX  and  INY). 

INX 

INcrement  .X:  Add  one  to  the  value  in  .X. 
Addressing  Modes 

Implied  INX  E8  2  cycles 

Flags 

N  (Negative)    If  the  result  is  between  $80  and  $FF,  the  N  flag 
is  set. 

V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)         If  .X  counts  from  $FF  through  $00,  the  Z  flag  is 
set 

C  (Carry)         — ' 

INX  adds  one  to  the  value  in  the  X  register.  If  .X  currently 
holds  a  255  ($FF),  the  value  wraps  around  to  zero.  INX  is 
usually  found  inside  loops  that  count  forward,  where  .X  may 
be  involved  in  an  indexed  load  or  store. 

INY 

INcrement  .Y:  Add  one  to  the  value  in  .Y. 
Addressing  Modes 

Implied  INY  C8  2  cycles 

Flags 

N  (Negative)    If  the  result  is  $80-$FF,  the  N  flag  is  set. 

V  (Overflow)  — 

B  (Break) 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  If  .Y  counts  from  $FF  to  $00,  the  Z  flag  is  set. 

C  (Carry)  — 
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INY  adds  one  to  the  Y  register,  causing  it  to  turn  over  to  zero 
when  255  ($FF)  is  reached.  As  with  INX,  this  makes  it  ideal 
for  loops  branching  on  the  N  or  2  flag. 


N  (Negative)  — 
V  (Overflow)  - 

B  (Break)  — 
D  (Decimal)  — 
I  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  — 

JMP  changes  the  value  in  the  program  counter;  the  next 
instruction  to  be  executed  will  come  from  the  address  pro- 
vided. JMP  is  the  ML  equivalent  of  BASIC'S  GOTO. 

An  absolute  jump  just  moves  to  the  address  indicated.  An 
indirect  jump — JMP  ($060C),  for  example— loads  the  two-byte 
address  from  the  given  vector  and  jumps  there.  If  $060C  con- 
tains a  $D2  and  $060D  has  an  $FF,  the  indirect  jump  will 
combine  the  low  byte  and  the  high  byte  and  go  to  $FFD2. 

Because  of  a  bug  in  the  6502,  you  should  avoid  putting 
indirect  jumps  directly  into  a  program  that  assembles  to 
unknown  memory  locations.  If  the  vector  falls  on  a  page 
boundary  (say,  $08FF-$0900),  the  low  byte  will  be  loaded 
from  S08FF  as  expected,  but  the  high  byte  will  come  from 
$0800,  not  from  $0900.  In  a  case  like  this,  there's  no  telling 
where  the  indirect  jump  will  go.  The  best  policy  is  to  put  vec- 
tors at  known  addresses. 

Many  64  and  128  routines  use  indirect  jump  vectors  in 
RAM.  Most  are  found  in  page  3  ($0300-$03FF). 

JSR 

Jump  to  SubRoutine:  Jump  to  a  given  address,  saving  the  re- 
turn address. 
Addressing  Modes 

Absolute  JSRS6E01  20  01  6E  6  cycles 


JMP 


JuMP:  Jump  to  a  given  address. 


Addressing  Modes 

Absolute  JMP  S6299        4C  99  62   3  cycles 

(Absolute)        JMP  ($0E08)      6C  08  0E  5  cycles 
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Flags 

N  (Negative)  — 
V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  - 

JSR  changes  the  program  counter  to  the  address  specified.  A 
return  address,  pointing  to  the  instruction  following  the  JSR,  is 
left  on  the  stack.  GOSUB  is  the  BASIC  equivalent  of  JSR. 

JSR  is  used  primarily  when  a  section  of  code  is  used 
repeatedly  in  a  program.  Rather  than  the  code  being  replicated 
each  time  it's  needed,  it's  set  apart  from  the  main  program  as 
a  subroutine,  typically  ending  with  RTS  and  called  with  JSR. 

To  speed  up  your  program  a  little  and  save  a  byte  of 
memory,  you  may  replace  any  JSR  followed  directly  by  an 
RTS  with  a  JMP  instruction.  For  example,  instead  of  JSR 
$FFD2:  RTS,  you  may  use  JMP  $FFD2— in  effect,  borrowing 
the  RTS  at  the  end  of  the  $FFD2  routine. 

LDA 

LoaD  the  Accumulator:  Put  a  value  into  .A. 

Addressing  Modes 

(Zero  page,X)     LDA  ($7B,X) 
Zero  page         LDA  $77 
Immediate        LDA  #$02 
Absolute  LDA  $DBC2 

(Zero  page),Y     LDA  ($DF),Y 


Al  7B  6  cycles 

A5  77  3  cycles 

A9  02  2  cycles 

AD  C2  DB  4  cycles 


Zero  page,X 
Absolute.Y 


LDA  $6D,X 
LDA  $0AEF,Y 


Bl  DF 

B5  6D 
B9  EF  OA 


Absolute.X         LDA  $3D77        BD  77  3D 


Flags 

N  (Negative) 
V  (Overflow) 


5  cycles 

(+1  over  a  page) 
4  cycles 
4  cycles 

(+1  over  a  page) 
4  cycles 

(+1  over  a  page) 


If  the  value  is  negative  ($80-$FF),  N  is  set. 


B  (Break)  — 
D  (Decimal)  — 
1    (Interrupt)  — 
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Z  (Zero)  If  the  value  is  a  zero,  Z  is  set. 

C  (Carry)  — 

I.DA  is  one  of  the  most  widely  used  instructions.  It  loads  a 
number  from  memory  into  the  accumulator.  (Immediate  mode 
loads  a  specified  number  into  .A;  in  this  case,  the  number  is 
part  of  the  program,  following  immediately  after  the  $A9 
opcode.) 

Usually,  the  value  loaded  is  soon  stored  into  memory 
with  STA,  although  it  may  also  be  used  in  a  math  operation 
like  ADC,  AND,  EOR,  ORA,  SBC,  or  the  like. 

LDX 

LoaD  .X:  Load  a  value  into  the  X  register. 
Addressing  Modes 

Immediate        LDX  #$BB  A2  BB        2  cycles 

Zero  page         LDX  $7A  A6  7 A        3  cycles 

Absolute  LDX  $ A808  AE  08  A8  4  cycles 

(Zeropage).Y     LDX  ($FD),Y  B6  FD       4  cycles 

Absolute,  Y        LDX  S3F09.Y  BE  09  3F 


Flags 

N  (Negative) 
V  (Overflow) 


4  cycles 
(  +  1  over  a  page) 


B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)  If  .X  is  loaded  with  a  zero,  Z  is  set. 

C  (Carry)  - 

LDX  loads  a  specific  value  into  the  X  register.  Common  uses 
are  in  transferring  data  from  temporary  locations  or  onto  the 
stack  (LDX:  TXS),  in  initializing  counter  loops,  or  in  setting  up 
an  offset  for  indexed  addressing. 

LDY 

LoaD  .Y:  Load  a  value  into  the  Y  register. 
Addressing  Modes 

Immediate  LDY  #$A5  AO  A5  2  cycles 
Zero  page         LDY  $12  A4  12        3  cycles 

Absolute  LDYS0BF5        AC  F5  OB  4  cycles 

Zeropage,X  LDY  $39,X  B4  39  4  cycles 
Absolute,X        LDYS133B.X      BC  3B  13  4  cycles 

(  +  1  over  a  page) 
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Flags 

N  (Negative)  If  the  value  is  $80-$FF(  N  is  set. 

V  (Overflow)  — 

B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  If  .Y  is  loaded  with  a  zero.  Z  is  set. 
C 


The  LDY  instruction  puts  a  given  number  into  the  Y  register. 
Most  often,  you'll  see  immediate  addressing  in  preparation  for 
a  loop  indexed  by  .Y.  Either  .Y  is  loaded  with  zero  (for  a  loop 
that  counts  forward  with  INY)  or  with  a  specific  number  (for  a 
loop  that  counts  down  with  DEY). 

LSR 

Logical  Shift  Right:  Shift  a  value  (accumulator  or  memory)  to 
the  right. 

Addressing  Modes 


Zero  page 
Accumulator 
Absolute 
Zero  page.X 
Absolute.X 

Flags 

N  (Negative) 
V  (Overflow) 


LSR  $A3 
LSR 

LSR  SCA06 
LSR  $DD,X 
LSR  S5D02,X 

Set  to  zero. 


46  A3 
4A 

4E  06  CA 
56  DD 
5E  02  5D 


5  cycles 
2  cycles 

6  cycles 

6  cycles 

7  cycles 


B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)  If  the  value  is  $01  or  $00,  Z  is  set. 

C  (Carry)        Bit  0  shifts  into  carry  and  sets/clears  the  C  flag. 

The  LSR  instruction  shifts  all  eight  bits  one  position  to  the 

right,  placing  a  zero  in  bit  7  and  moving  bit  0  into  the  carry 

flag. 

A  frequent  application  of  LSR  is  to  test  bit  0  and  branch 
accordingly  (LSR:  BCS/BCC).  But  LSR  probably  finds  its 
greatest  use  in  certain  mathematical  manipulations:  converting 
negative  numbers  to  positive  (LSR:  ROL),  dividing  bytes  by  2 
with  the  remainder  placed  in  C,  and  shifting  the  high  nybble 
of  a  byte  into  the  low  nybble  (LSR:  LSR:  LSR:  LSR). 
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NOP 

No  OPeration:  Do  nothing. 

Addressing  Modes 

Implied  NOP 

Flags 

N  (Negative)  — 
V  (Overflow)  — 


EA 


2  cycles 


B  (Break)  — 
D  (Decimal)  — 
I  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  — 

After  a  NOP,  the  values  in  memory,  the  numbers  in  the  reg- 
isters, and  the  status  flags  remain  the  same.  The  program 
counter  advances  by  one.  NOP  is  sometimes  used  to  remove 
part  of  a  program.  If  three  bytes  hold  a  JSR  instruction,  you 
can  POKE  NOPs  on  top  of  the  memory  there,  and  the  pro- 
gram will  not  execute  the  JSR.  NOPs  are  also  found  in  delay 
loops  where  the  timing  is  finely  tuned. 

ORA 

Bitwise  OR:  Perform  a  bitwise  OR  between  .A  and  a  value, 
storing  the  result  in  .A. 
Addressing  Modes 
(Zero  page.X) 
Zero  page 
Immediate 
Absolute 
(Zero  page),Y 
Zero  page,X 


Absolute,X 
Flags 

N  (Negative) 
V  (Overflow) 

B  (Break) 
D  (Decimal) 
I  (Interrupt) 


ORA  (S1B.X) 

01 

IB 

6  cycles 

ORA  $68 

05 

68 

3  cycles 
2  cycles 

ORA  #$3F 

09 

3F 

ORA  SBA03 

OD 

03 

BA 

4  cycles 

ORA  ($4C),Y 

11 

4C 

5  cycles 

ORA  $63,X 

15 

63 

4  cycles 

ORA  $4E0F,Y 

19 

OF 

4E 

4  cycles 

(  +  1  over  a  page) 

ORA  $2A0B,X 

ID 

OB 

2A 

4  cycles 

(  +  1  over  a  page) 

If  bit  7  is  set,  the  N  flag  is  set. 
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Z  (Zero)       If  the  result  is  zero,  Z  is  set. 
C  (Carry)  - 

ORA  performs  a  bitwise  OR  on  a  value.  Corresponding  bits  in 
.A  and  the  value  are  compared.  If  either  bit  is  on,  the  result 
is  one. 

For  instance,  to  turn  on  bits  0  and  1  in  SBC,  you  would 
ORA  with  $03: 

SBC  1011  1100 
$03  0000  0011 
$BF  1011  1111 

To  turn  certain  bits  off,  use  AND. 
PHA 

PusH  .A:  Push  the  current  value  of  the  accumulator  onto  the 
stack.  The  accumulator  is  not  changed.  The  stack  pointer  de- 
creases by  one. 
Addressing  Modes 

Implied  PHA  48  3  cycles 

Flags 

N  (Negative)  — 
V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  — 

PHA  pushes  .A  onto  the  stack.  No  flags  are  affected.  A  com- 
mon use  for  PHA  is  to  temporarily  save  the  number  in  the 
accumulator.  You  push  it,  do  something  else,  then  pull  it  back. 
Another,  more  sophisticated  technique  is  to  push  two  values 
onto  the  stack  and  then  execute  an  RTS.  RTS  returns  from  a 
subroutine  to  the  original  program  that  called  the  subroutine. 
It  does  so  by  pulling  the  program  counter  (minus  one)  from 
the  stack.  If  PHA  has  put  a  valid  address  on  the  stack,  RTS 
will  return  to  the  address  you  have  provided.  Push  the  high 
byte  first,  then  the  low  byte  of  the  address  (minus  one)  of  the 
routine  you  wish  to  call. 
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PHP 

PUSH  Processor  status  register:  Push  the  value  in  the  proces- 
sor's status  register  onto  the  stack.  The  stack  pointer  decreases 
by  one. 

Addressing  Modes 

Implied  PHP  08  3  cycles 

Flags 

N  (Negative)  — 

V  (Overflow)  - 

B  (Break)  — 
D  (Decimal)  — 
I  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  — 

PHP  stores  the  contents  of  the  status  register  on  the  stack, 
affecting  no  flags.  The  processor  status  register  (P)  contains  all 
the  flags  (N,  V,  B,  D,  I,  Z,  and  Q. 

PHP  is  the  complementary  instruction  to  PLP,  which  pulls 
a  stack  byte  into  the  status  register.  When  status  bits  are  being 
tested,  PHP  and  PLP  are  often  found  in  tandem,  especially 
when  intervening  instructions  are  apt  to  affect  these  bits. 

For  instance,  suppose  you  wished  to  branch,  based  on  the 
N  flag  following  a  particular  instruction,  but  operations  that 
affect  the  status  flag  are  necessary  prior  to  the  branch.  To  pre- 
serve the  status  register  for  later  testing,  you  would  push  it 
onto  the  stack  with  PHP,  proceed  with  the  interfering  opera- 
tions, and  then  restore  it  with  PLP  just  before  the  branch. 

When  using  this  approach,  remember  not  to  use  other 
stack-oriented  instructions  like  JSR,  RTS,  or  RTI  before  the 
PLP  has  executed. 

PLA 

PuU  .A:  Pull  a  value  from  the  stack  into  the  accumulator. 
Addressing  Modes 

Implied  PLA  68  4  cycles 

Flags 

N  (Negative)    If  the  number  is  negative,  N  is  set  to  one. 

V  (Overflow)  - 

B  (Break)  — 
D  (Decimal)  — 
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I    (Interrupt)  — 

Z  (Zero)         If  a  zero  is  pulled,  Z  is  set. 
C  (Carry)  — 

PLA  pulls  values  off  the  stack.  It  is  the  opposite  of  PHA, 
which  pushes  numbers  there.  After  the  PLA,  the  stack  pointer 
is  increased  by  one. 

PHA  and  PLA  are  useful  for  temporarily  storing  the  cur- 
rent status  of  the  accumulator.  You  push  a  value  onto  the 
stack,  perform  some  other  operation,  and  then  pull  it  back  into 
.A.  However,  you  should  be  careful  that  you  don't  perform 
other  stack-oriented  operations  such  as  JSR,  RTS,  or  RTI,  in 
the  meantime. 

PHA  and  PLA  can  also  be  used  to  set  up  and  destroy  ad- 
dresses for  RTS.  You  may  JSR  to  a  routine  only  to  find  that  (in 
special  cases)  it's  not  necessary  to  RTS  back  to  the  calling  rou- 
tine. Two  PLAs  will  remove  the  return  address  from  the  stack. 
(JSR  pushes  the  return  address  minus  one  onto  the  stack,  high 
byte  first,  and  RTS  pulls  the  two  bytes.) 

PLP 

PuLl  Processor  status  register:  Pull  a  value  from  the  stack  into 
the  processor's  status  register. 
Addressing  Modes 

Implied  PIP  28  4  cycles 

Flags 

N  (Negative)    If  the  number  is  negative,  N  is  set. 
V  (Overflow)   If  bit  6  is  on,  V  is  set. 

B  (Break)        If  bit  4  is  on,  B  is  set. 
D  (Decimal)     If  bit  3  is  on,  D  is  set. 
I    (Interrupt)    If  bit  2  is  on,  I  is  set. 
Z  (Zero)         If  bit  1  is  on,  Z  is  set. 
C  (Carry)        If  bit  0  is  on,  C  is  set. 

PLP  takes  a  byte  from  the  stack,  placing  it  in  the  status  reg- 
ister. The  stack  pointer  increments  by  one. 

PLP  is  the  opposite  of  PHP,  which  pushes  the  contents  of 
the  status  register  onto  the  stack.  These  two  are  frequently 
used  together,  much  like  PHA/PLA. 

PLP's  role  in  this  arrangement  is  to  retrieve  the  status  reg- 
ister after  it  has  been  pushed  onto  the  stack  with  PHP.  Typi- 
cally in  this  situation  a  branching  instruction  will  foUow. 
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ROL 

ROtate  Left:  Rotate  a  value  (accumulator  or  memory)  to  the 
left. 

Addressing  Modes 

Zero  page         ROL  $3A  26  3A       5  cycles 

Accumulator      ROL  2A  2  cycles 

Absolute  ROL  S8FA6        2E  A6  8F  6  cycles 

Zeropage,X  ROL  $46,X  36  46  6  cycles 
Absolute.X  ROL$0EFB,X  3E  FB  OE  7  cycles 
Flags 

N  (Negative)    Bit  6  rotates  into  7  and  sets/clears  the  N  flag. 

V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)  If  carry  is  clear  and  bits  0-6  are  zero,  Z  is  set. 
C  (Carry)        Bit  7  rotates  into  carry. 

ROL  causes  all  eight  bits  to  rotate  one  position  to  the  left.  The 
carry  flag  moves  into  bit  0,  and  bit  7  moves  into  the  carry  flag. 
ROL  is  most  commonly  used  in  two-byte  shifts:  You  ASL  the 
low  byte  and  ROL  the  high  byte. 

ROR 

ROtate  Right:  Rotate  a  value  (accumulator  or  memory)  to  the 
right. 

Addrt?ssin|^  Modes 

Zero  page         ROR  $13  66  13  5  cycles 

Accumulator      ROR  6A  2  cycles 

Absolute          ROR5BB67  6E  67  BB  6  cycles 

Zeropage,X      ROR  $F1,X  76  El  6  cycles 

Absolute,X        RORSlllO.X  7E  10  11   7  cycles 

Rags 

N  (Negative)     Carry  rotates  into  bit  7  and  sets/dears  the  N 
flag. 

V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)  If  carry  is  clear  and  bits  1-7  are  zero,  Z  is  set. 

C  (Carry)         Bit  0  rotates  into  carry. 
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ROR  is  the  complement  instruction  to  ROI.:  It  shifts  all  eight 
bits  one  position  to  the  right.  Bit  0  moves  into  the  carry  flag, 
and  carry  shifts  into  bit  7. 

ROR  is  used  to  carry  out  two-byte  shifts  (to  halve  a  num- 
ber). You  first  LSR  the  high  byte  and  then  ROR  the  low  byte. 
Also,  ROR  often  precedes  testing  of  the  N,  Z.  or  C  flag. 

RTI 

ReTurn  from  Interrupt:  Restore  the  processor  status  and  the 
program  counter. 
Addressing  Modes 

Implied  RTI  40  6  cycles 

Flags 

N  (Negative)    Reset  to  its  status  before  the  interrupt. 

V  (Overflow)    Reset  to  its  status  before  the  interrupt. 

B  (Break)  Reset  to  its  status  before  the  interrupt. 

D  (Decimal)  Reset  to  its  status  before  the  interrupt. 

I  (Interrupt)  Reset  to  its  status  before  the  interrupt. 

Z  (Zero)  Reset  to  its  status  before  the  interrupt. 

C  (Carry)  Reset  to  its  status  before  the  interrupt. 

When  an  interrupt  occurs,  the  current  program  counter  (high 
byte,  then  low  byte)  is  pushed  onto  the  stack,  followed  by  the 
processor  status  (P),  where  all  the  flags  are  located. 

RTI  causes  .P  to  be  pulled  from  the  stack,  followed  by  the 
program  counter.  The  program  then  continues  at  one  byte  be- 
yond the  address  pulled  from  the  stack. 

RTS 

ReTurn  from  Subroutine:  Reset  the  program  counter  using  the 
return  address  on  the  stack. 
Addressing  Modes 

Implied  RTS  60  6  cycles 

Flags 

N  (Negative)  — 

V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 


38 


Opcodes 


Z  (Zero)  — 
C  (Carry)  - 

RTS  removes  the  last  two  bytes  from  the  stack  (low  byte  first, 
then  high  byte),  adds  1  to  the  resulting  address,  and  places  it 
in  the  program  counter.  The  stack  pointer  increments  by  2,  and 
program  execution  continues  at  the  return  address  in  the  pro- 
gram counter.  Unlike  RTI,  the  RTS  instruction  affects  no  flags. 

RTS  is  used  almost  exclusively  to  return  from  a  sub- 
routine, whether  called  from  within  the  ML  with  JSR  or  from 
BASIC  with  SYS.  When  an  ML  subroutine  is  called  from 
BASIC,  the  return  address  for  BASIC'S  main  loop  is  first 
placed  on  the  stack.  So,  once  the  ML  routine  is  complete,  a  re- 
turn to  the  BASIC  program  successfully  occurs. 

Another  application  of  RTS  involves  simulating  a  JMP 
instruction.  With  PHA,  you  push  the  high  bytes  and  low  bytes 
of  a  routine  you  wish  to  jump  to  onto  the  stack.  (Because  RTS 
adds  1  to  the  address  it  finds,  you  must  subtract  1  from  the  ac- 
tual address  of  the  routine  you're  calling  before  pushing  the 
address  onto  the  stack.)  When  the  next  RTS  executes,  the  pro- 
gram continues,  using  the  address  on  the  stack.  Take  care  that 
you  don't  put  extra  bytes  on  the  stack  before  the  RTS. 

SBC 

SuBtract  with  Carry:  Subtract  a  value  from  the  accumulator, 
with  the  result  in  .A. 
Addressing  Modes 

(Zeropage.X)     SBC  ($8A,X)  El  8A  6  cycles 

Zero  page         SBC$1A  E5  1A  3  cycles 

Immediate         SBC  #$B7  E9  B7  2  cycles 

Absolute          SBC  $6862  ED  62  68   4  cycles 

(Zeropage),Y     SBC  ($E1),Y  Fl  El  5 


( + 1  over  a  page) 
SBC($D6),X      F5  D6       4  cycles 
SBC$80EB,Y      F9  EB  80  4  cycles 

(+1  over  a  page) 
Absolute,X        SBC  $7088        FD  88  70   4  cycles 

(  +  1  over  a  page) 

Flags 

N  (Negative)  If  the  result  is  $80-$FF,  the  N  flag  is  set. 
V  (Overflow)    If  an  overflow  occurs,  V  is  set. 

B  (Break)  — 
D  (Decimal)  — 
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I    (Interrupt)  — 

Z  (Zero)         If  the  result  is  zero,  Z  is  set. 
C  (Carry)        If  .A  is  greater  than  or  equal  to  the  value  sub- 
tracted, the  result  is  positive,  and  C  is  set. 
The  rule  to  remember  is  always  to  clear  the  carry  flag  (CLC) 
before  addition  and  always  to  set  the  carry  flag  (SEC)  before 
subtraction.  If  you're  subtracting  large  numbers  (two  bytes  or 
more),  set  carry  before  subtracting  the  least  significant  byte.  As 
larger  numbers  are  subtracted,  carry  will  take  care  of  itself. 

Subtracting  a  large  number  from  a  smaller  number  (5  -  20, 
for  example)  will  result  in  a  cleared  carry.  If  the  second  num- 
ber is  smaller  than  the  first,  carry  will  remain  set. 

The  result  of  the  subtraction  is  found  in  the  accumulator; 
if  you  want  to  save  the  number,  be  sure  to  STA  after  the 
subtraction. 

SEC 

SEt  Carry:  Set  the  carry  flag. 
Addressing  Modes 

Implied  SEC  38  2  cycles 

Flags 

N  (Negative)  — 
V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)        Set  to  one. 

SEC,  the  complementary  instruction  to  CLC,  sets  the  carry  flag. 
This  is  necessary  in  order  for  SBC  to  work  correctly  (for  a 
"borrow").  SEC  can  also  force  a  branch  (SEC:  BCS),  or  it  may 
be  used  along  with  the  rotate  instructions  (ROL,  ROR).  Addition- 
ally, some  Kernal  routines  set  carry  with  SEC  to  indicate  that 
an  error  has  occurred. 

SED 

SEt  Decimal  mode:  Turns  on  binary-coded  decimal  (BCD)  mode. 
Addressing  Modes 

Implied  SED  F8  2  cycles 
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Flags 

N  (Negative)  — 

V  (Overflow)  — 

B  (Break)  — 

D  (Decimal)     Set  to  one. 

I    (Interrupt)  — 

Z  (Zero)  — 

C  (Carry)  - 

SED  rums  on  BCD  mode,  where  bytes  are  allowed  to  have 
100  values  ($00-$99)  instead  of  255  ($00-$FF).  When  the 
decimal  flag  is  turned  on,  addition  and  subtraction  act  only  on 
the  numbers  0-9.  If  you  add  1  to  $09  in  decimal  mode,  the  re- 
sult is  $10,  not  $0A.  Individual  nybbles  are  allowed  to  hold 
the  numbers  $0-$9  instead  of  $0-$F. 
To  turn  off  the  D  flag,  use  CLD. 

SEI 

SEt  Interrupt  flag:  Disable  maskable  (IRQ)  interrupts. 
Addressing  Modes 

Implied  SEI  78  2  cycles 

Flags 

N  (Negative)  — 

V  (Overflow)  — 

B  (Break)  — 

D  (Decimal)  — 

I    (Interrupt)    Set  to  one. 

Z  (Zero)  — 

C  (Carry)  — 

Every  1/60  second  (or  1/50  second  on  most  European  64s  and 
128s),  an  interrupt  request  (IRQ)  occurs.  At  this  time,  a  service 
routine  handles  various  housekeeping  chores  like  updating  the 
jiffy  clock  and  the  screen,  or  checking  the  keyboard. 

SEI  prevents  the  normal  IRQ  interrupts  from  being  hon- 
ored bv  setting  the  I  flag.  (Nonmaskable  interrupts — NMIs — 
like  BRK  are  still  active.)  Frequently, it  is  necessary  to  set  this 
flag  before  certain  vectors  are  changed. 

Turn  interrupts  back  on  with  CLI. 
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STA 

STore  Accumulator:  Copy  the  contents  of  .A  to  memory. 
Addressing  Modes 

(Zeropage.X)  STA  ($F6,X)        81   F6         6  cycles 

Zero  page  STA  $2D           85  2D       3  cycles 

Absolute  STA  $B8F6         8D  F6  B8   4  cvcles 

(Zero  page),  Y  STA  ($DF),Y       91   DF       6  cycles 

ZeropagcX  STA  $4E.X         95  4E        4  cycles 

Absolute.Y  STA  $3EA5,Y     99  A5  3E  5  cycles 

Absolute.X  STA  $7534,X      9D  34  75  5  cycles 
Flags 

N  (Negative)  — 

V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  - 

STA  and  LDA  are  probably  the  two  most  common  instructions 
in  ML.  LDA  puts  a  value  into  the  accumulator;  STA  stores  the 
value  from  .A  into  memory.  The  contents  of  the  accumulator 
remain  unchanged  after  the  store. 

STX 

STore  .X:  Store  the  value  in  the  X  register  to  memory. 
Addressing  Modes 

Zero  page  STX  $C6  86  C6        3  cycles 

Absolute  STXS6D0E        8E  OE  6D  4  cycles 

Zero  page, Y      STX  $FA,Y         %  FA        4  cycles 
Flags 

N  (Negative)  — 

V  (Overflow)  — 

B  (Break) 
D  (Decimal)  — 
1    (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  - 

STX  puts  the  value  currently  in  .X  into  memory.  No  flags  or 
data  registers  are  affected.  STX  is  similar  in  its  applications  to 
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STA,  temporarily  storing  the  contents  of  the  register  to  mem- 
ory or  initializing  memory  to  a  set  value.  Note  that  STX  has 
far  fewer  addressing  modes  than  does  STA.  Because  loading 
and  storing  from  .A  is  more  flexible,  the  X  register  is  most 
often  used  as  a  counter  or  as  an  index. 


STore  .Y:  Store  the  value  in  the  Y  register  to  memory. 
Addressing  Modes 

Zero  page         STY  $9E  84  9E        3  cycles 

Absolute  STY$6F17        8C  17  6F  4  cycles 

Zero  page,X      STY  $58,X         94  58        4  cycles 

Flags 

N  (Negative)  — 
V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I  (Interrupt)  — 
Z  (Zero)  — 
C  (Carry)  — 

STY  takes  the  value  in  .Y  and  stores  it  to  memory.  The  Y  reg- 
ister is  not  affected.  STY  is  sometimes  helpful  when  the  index 
value  needs  to  be  saved  (before  a  subroutine  that  changes  the 
registers),  but  it  really  isn't  used  very  often. 


Transfer  .A  to  .X:  Copy  the  value  in  the  accumulator  to  the  X 
register. 

Addressing  Modes 

Implied  TAX  AA  2  cycles 

Flags 

N  (Negative)    If  .A  holds  $80-$FF,  N  is  set. 


B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  If  .A  holds  a  zero,  Z  is  set. 
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TAX  moves  the  value  in  .A  to  .X.  This  instruction  is  handy  for 
temporarily  storing  the  contents  of  the  accumulator  or  for 
initializing  .X  when  indexed  addressing  is  used. 

TAY 

Transfer  .A  to  .Y:  Moves  the  value  in  the  accumulator  to  .Y. 
Addressing  Modes 

Implied  TAY  A8  2  cycles 

Flags 

N  (Negative)     If  -A  is  negative  ($80-$FF),  the  N  flag  is  set. 

V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)  If  -A  is  zero,  this  flag  is  set. 

C  (Carry)  - 

TAY  copies  the  value  in  .A  to  .Y.  The  original  value  in  the 
accumulator  remains  unchanged.  Some  programmers  use  this 
technique  to  temporarily  save  the  value  of  .A.  Another  use  is 
to  set  up  an  indexed  LDA  from  a  table. 

TSX 

Transfer  Stack  pointer  to  .X:  Copy  the  value  in  the  stack 
pointer  to  the  X  register. 
Addressing  Modes 

Implied  TSX  BA  2  cycles 

Flags 

N  (Negative)     If  the  stack  pointer  is  $80-$FF,  the  N  flag  is  set. 

V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)  If  the  stack  pointer  is  zero,  Z  is  set. 

C  (Carry)  — 

TSX  moves  the  stack  pointer  into  .X.  The  stack  pointer  itself  is 
a  single  byte,  offset  to  $0100. 

One  application  of  TSX  is  to  determine  the  amount  of 
space  remaining  on  the  stack.  Another  is  to  examine  the  con- 
tents of  the  stack.  (Use  TSX:  LDA  $0100,X  to  look  at  the  last 
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value  placed  on  the  stack.)  Still  a  third  application  involves 
saving  the  current  stack  pointer  while  using  a  portion  of  the 
stack  for  certain  operations. 


Transfer  .X  to  .A:  Moves  the  value  in  .X  to  the  accumulator, 
leaving  .X  unchanged. 

Addressing  Modes 

Implied  TXA  8A 


If  the  value  transferred  is  $80-$FF,  N  is  set. 


B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)         If  .X  holds  a  00,  the  Z  flag  is  set. 
C  (Carry)  - 

TXA  moves  the  number  currently  in  .X  to  .A.  The  value  in  .X 
remains  the  same.  This  is  sometimes  done  in  preparation  for 
an  instruction  such  as  ADC,  PHA,  SBC,  or  some  other  opera- 
tion that  cannot  be  performed  directly  on  the  X  register. 


Transfer  .X  to  Stack  pointer:  Copy  the  value  in  the  X  : 
to  the  stack  pointer. 
Addressing  Modes 

Implied  TXS  9A  2  cycles 

Flags 

N  (Negative)  — 
V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I  (Interrupt)  — 
Z  (Zero) 

C  (Carry)  — 

TXS  moves  the  contents  of  the  X  register  into  the  stack 
pointer.  This  instruction  is  used  by  the  computer  as  part  of  its 
own  power-up  routine.  The  stack  pointer  is  set  to  the  top  of 
the  stack  (which  is  called  clearing  the  stack)  when  the  com- 
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puter  is  first  turned  on  or  RESET  with 

TXS  is  also  helpful  in  restoring  the  stack  pointer  after  any 
processing  has  been  carried  out  within  the  stack  itself. 


Transfer  .Y  to  .A:  Copy  the  value  in  the  Y  register  to  the 
accumulator;  .Y  remains  unchanged. 
Addressing  Modes 

Implied  TYA  98  2  cycles 

Flags 

N  (Negative)    If  .Y  holds  $80-$FF,  N  is  set.  If  .Y  is  $00-$7F, 

N  is  clear. 
V  (Overflow)  — 

B  (Break)  — 
D  (Decimal)  — 
I    (Interrupt)  — 

Z  (Zero)  If  .Y  holds  a  zero,  Z  is  set. 

C  (Carry)  - 

TYA  moves  the  value  in  .Y  to  .A.  This  is  sometimes  necessary 
because  the  accumulator  can  perform  some 
addition  and  subtraction)  that  aren't  ave 
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Opcode 
00 

01  zx 

02 
03 
04 

05  ZP 

06  ZP 
07 

08 

09  IM 


0C 

0D  LO  HI 
OE  LO  HI 

OF 

10  RE 

11  ZY 

12 

m 

14 

15  ZP 

16  ZP 
17 

18 

19  LO  HI 

1A 
IB 
1C 

ID  LO  HI 
IE  LO  HI 

IF 

20  LO  HI 

21  ZX 

22 
23 

24  ZP 

25  ZP 

26  ZP 
27 

28 

29  IM 
2A 

2B 


Mnemonic 

BRK 
ORA 

Undefined 

Undefined 

Undefined 

ORA 

ASL 

Undefined 
PHP 


Undefined 
Undefined 
ORA 
ASL 

Undefined 

BPL 

ORA 

Undefined 

Undefined 

Undefined 

ORA 

ASL 

Undefined 

CLC 

ORA 

Undefined 

Undefined 

Undefined 

ORA 

ASL 

Undefined 

JSR 

AND 

Undefined 

Undefined 

BIT 

AND 

ROL 

Undefined 
PLP 
AND 
ROL 


Addressing  Mode 

Implied 
(Zero  page,X) 


Zero  page 
Zero  page 

Implied 

Immediate 

Accumulator 


Absolute 
Absolute 

Relative 
(Zero  page),Y 


Zero  page,X 
Zero  page,X 

Implied 
Absol 


Absolute,X 
Absolute,X 

Absolute 


Zero  page 
Zero  page 
Zero  page 

Implied 

Immediate 

Accumulator 


Opcodes 


Opcode 

Mnprnnnir 

Zl_   LO  MI 

r»  IT 

Absolute 

L\J  lu  ru 

AINU 

ADsoiute 

ROL 

Aosoiute 

Undefined 

3U  Kt 

DMI 

Relative 

11  7Y 

AMD 

(Zero  page),Y 

Undefined 

33 

undefined 

■5/1 

Undeiined 

35  Lr 

AND 
ROL 

Zero  page,X 

30  £r 

Zero  page,X 

J/ 

unaenned 

3tt 

Implied 

39   LO  HI 

Avn 
AI\  U 

ADSOlUte,  I 

3A 

uiiuciiricu 

3.R 

313 

Undefined 

3v_ 

undefined 

3U    LU  Ml 

AINU 

A  U,rr,l,,i  -  V 

Absolute,* 

an    to  HI 
3JE    LU  Ml 

KUL 

Absolute,* 

unueiineu 

/in 

41  7X 

DTI 

Kl  1 

Implied 

(zero  page,*; 

42 

Undeiined 

43 

Undeiined 

A.A 

Undefined 

4£>  LY 

£ero  page 

AC  7D 

T  CD 

Zero  page 

4/ 

Undefined 

48 

T>T  T  A 

PHA 

Implied 

Vi  IM 

tUK 

Immediate 

1A 
in 

t  en 
LSK 

Accumulator 

4B 

Undefined 

4C  LO  HI 

JMP 

Absolute 

AV\   I  III 

4U  LU  HI 

hUK 

Absolute 

4fc    LU  Ml 

I  CD 

LaK 

Absolute 

*»r 

undefined 

En  DC 

DVV. 

Relative 

51  ZY 

EOR 

(Zero  paee),Y 

52 

Undefined 

53 
54 

Undefined 

55  ZP 

EOR 

Zero  page, X 

56  ZP 

LSR 

Zero  page,X 

57 

Undefined 

58 

CLI 

Implied 

Opcode 

Mnemonic 

Addressine  Mode 

CO     I  ft  UI 

5f    LU  Ml 

LUK 

Absolute,! 

C  A 

OA 

Undefined 

3D 

Unaenned 

5L. 

Undefined 

5D  LO  HI 

EOR 

ADS0lUte,A 

ex:   i  i-»  tit 
St   HJ  til 

f  CP 

ADS0lute,A 

3f 

oU 

undefined 

Krs> 

Implied 

fi1  7Y 

01  Z.A 

a  nr 

t^ero  page,*) 

o<£ 

Undefined 

Undefined 

t>4 

Undefined 

AUL 

/.ero  page 

oo  ilr 

nnn 

KUK 

Zero  page 

£7 

0/ 

Undefined 

OB 

PI  A 

rLA 

implied 

07  1IV1 

immediate 

(,  A 
OA 

POP 

Accumulator 

OD 

Undefined 

0l_   LU  HI 

J  Mr 

(Absolute) 

£TA    f  /-\  ITT 
oU  LU  HI 

AUL. 

Absolute 
ADSOlUte 

AP    1 f~»  HI 
OC    1X3  tu 

priR 

6F 

Undefined 

70  RE 

BVS 

Relative 

71  7V 

71  £.1 

AUL 

(£ero  page),Y 

77 

undefined 

73 

Undefined 

74 

Undenned 

7C  7D 

\  YA  /~ 

AUL. 

Zero  page,X 

76  7P 

/o  Z.r 

77 

POP 

KUK 

z.ero  page, a 

/  / 
7R 

unaeimea 

QPT 
Stl 

impiiea 

7Q     T  <~»  tjtt 

79    LU  HI 

A  ta/*- 
AUL. 

Absolute,! 

7  A 

/A 

unaenned 

7R 

Undefined 

/L. 

Unaelinea 

7D  I  n  HI 

AL/V. 

At%QrtlnfA  V 

A  DSO.I  UlC,  A 

7F 

Undefined 

80 

Undefined 

81  ZX 

STA 

(Zero  page,X) 

82 

Undefined 

83 

Undefined 

84  ZP 

STY 

Zero  page 

85  ZP 

STA 

Zero  page 

Opcodes 


Opcode  Mnemonic  Addressing  Mode 

86  ZP  STX  Zero  page 

87  Undefined  — 

88  DEY  Implied 

89  Undefined  — 

8A  TXA  Implied 

8B  Undefined  — 

8C  LO  HI  STY  Absolute 

8D  LO  HI  STA  Absolute 

8E  LO  HI  STX  Absolute 

8F  Undefined  — 

90  RE  BCC  Relative 

91  ZY  STA  (Zeropage),Y 

92  Undefined  — 

93  Undefined  — 

94  ZP  STY  Zeropage,X 

95  ZP  STA  Zeropage,X 

96  ZP  STX  Zeropage,Y 

97  Undefined  — 

98  TYA  Implied 

99  LO  HI  STA  Absolute,Y 
9A  TXS  Implied 
9B  Undefined  — 

9C  Undefined  — 

9D  LO  HI  STA  Absolute,X 

9E  Undefined  — 

9F  Undefined  — 

AO  IM  LDY  Immediate 

Al  ZX  LDA  (Zeropage,X) 

A2  IM  LDX  Immediate 

A3  Undefined  — 

A4  ZP  LDY  Zero  page 

A5  ZP  LDA  Zero  page 

A6  ZP  LDX  Zero  page 

A7  Undefined  — 

A8  TAY  implied 

A9  IM  LDA  Immediate 

AA  TAX  Implied 

AB  Undefined  — 

AC  LO  HI  LDY  Absolute 

AD  LO  HI  LDA  Absolute 

AE  LO  HI  LDX  Absolute 

AF  Undefined  — 

BO  RE  BCS  Relative 

Bl  ZY  LDA  (Zero  page),Y 
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Opcode 

Mnemonic 

B3 

Undefined 

B4  ZP 

LDY 

B5  ZP 

LDA 

B6  ZP 

LDX 

B7 

Undefined 

B8 

CLV 

B9  LO  HI 

%J  J       LV  ill 

LDA 

BA 

TSX 

BB 

Undefined 

BC  LO  HI 

LDY 

BD  LO  HI 

LDA 

BE  LO  HI 

LDX 

BF 

Undefined 

CO  IM 

CPY 

CI  ZX 

C2 

CMP 

Undefined 

C3 

Undefined 

C4  ZP 

CPY 

C5  ZP 

CMP 

C6  ZP 

DEC 

C7 

Undefined 

C8 

INY 

C9  IM 

CMP 

CA 

DEX 

CB 

Undefined 

CC  LO  HI 

CPY 

CD  LO  HI 

CMP 

CE  LO  HI 

DEC 

CF 

Undefined 

DO  RE 

BNE 

Dl  ZY 

CMP 

D2 

Undefined 

D3 

Undefined 

D4 

Undefined 

D5  ZP 

CMP 

D6  ZP 

DEC 

D7 

Undefined 

D8 

CLD 

D9  LO  HI 

CMP 

DA 

Undefined 

DB 

Undefined 

DC 

Undefined 

DD  LO  HI 

CMP 

DE  LO  HI 

DEC 

DF 

Undefined 

Addressing  Mode 

Zero  page,X 
Zero  page,X 


Implied 

Absolute,Y 

Implied 

Absolute,X 
Absolute,X 
Absolute,Y 


Zero  page 
page 


Implied 
Immediate 


Absolute 
Absolute 
Absolute 

Relative 
(Zero  page),Y 


Zero  page,X 
Zero  page,X 

Implied 


Absolute,X 
Absolute,X 


Opcodes 


Opcode  Mnemonic  Addressing  Mode 

EO  IM  CPX  Immediate 

El  ZX  SBC  <Zeropage,X) 

E2  Undefined  — 

E3  Undefined  — 

E4  ZP  CPX  Zero  page 

E5  ZP  SBC  Zero  page 

E6  ZP  INC  Zero  page 

E7  Undefined  — 

E8  INX  Implied 

E9  IM  SBC  Immediate 

EA  NOP  Implied 

EB  Undefined  — 

EC  LO  HI  CPX  Absolute 

ED  LO  HI  SBC  Absolute 

EE  LO  HI  INC  Absolute 

EF  Undefined  — 

FO  RE  BEQ  Relative 

Fl  ZY  SBC  (Zeropage),Y 

F2  Undefined  — 

F3  Undefined  — 

F4  Undefined  — 

F5  ZP  SBC  Zeropage,X 

F6  ZP  INC  Zeropage,X 

F7  Undefined  — 

F8  SED  Implied 

F9  LO  HI  SBC  Absolute,Y 

FA  Undefined  — 

FB  Undefined  — 

FC  Undefined  — 

FD  LO  HI  SBC  Absolute^ 

FE  LO  HI  INC  Absolute,X 

FF  Undefined  — 
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Instructions  Arranged  Alphabetically 


Mnemonic 

Addressing  Mod' 

e  Opcode 

ADC 

Absolute 

6D  LO  HI 

A08OlUte,A 

7D  LO  HI 

ADC 

Absolute,! 

79   LO  HI 

ADC 

Immediate 

69  IM 

ADC 

Zero  page 

65  ZP 

ALII. 

Zero  page,X 

Tn 

75  ZP 

/7n*n       ......  V\ 

(^ero  page,X) 

TV 

61  ZX 

AL/l_ 

(Zero  page),Y 

m  TV 

71  ZY 

AND 

Absolute 

2D  LO  HI 

A  K,TT""\ 

AND 

A  1  1  -  . «  -  X/ 

Absolute,X 

3D  LO  HI 

AND 

Absolute,Y 

39   LO  HI 

a  Mn 

Immediate 

29  IM 

a  xrr\ 

Zero  page 

25  ZP 

AND 

Zero  page,X 

35  ZP 

a  mh 

AND 

(Zero  page,X) 

21  ZX 

A  KTTt 

AND 

(Zero  page),Y 

31  ZY 

A  CT 

ASL 

Absolute 

OE  LO  HI 

A  Ct 

ASL 

Absolute,X 

,  r       x  S~\  TTT 

IE  LO  HI 

A  CT 

A5L 

A  _  *  »_ 

Accumulator 

OA 

A  CT 

ASL 

T  — — .  „ 

Zero  page 

06  ZP 

ASL 

Zero  page, X 

16  ZP 

TJ  f" 

BCC 

Relative 

90  Kb 

BCS 

Relative 

BO  RE 

BEQ 

Relative 

F0  RE 

BIT 

Absolute 

2C  LO  HI 

hit 

bit 

Zero  page 

24  ZP 

BM1 

n  —  l  -  * —  

Relative 

30  RE 

Kelative 

r>n  dc 

DO  Rfc 

BPL 

Relative 

10  RE 

BRK 

Implied 

00 

BVL 

Relative 

50  Kb 

BVS 

Relative 

70  RE 

CLC 

Implied 

18 

fi  n 
V.LU 

implied 

Do 

CL1 

Implied 

CO 

58 

lmpueu 

DO 

DO 

CMP 

Absolute 

CD  LO  HI 

CMP 

Absolute,X 

DD  LO  HI 

CMP 

Absolute,Y 

D9  LO  HI 

CMP 

Immediate 

C9  IM 

CMP 

Zero  page 

C5  ZP 

CMP 

Zero  page,X 

D5  ZP 

CMP 

(Zero  page,X) 

CI  ZX 

CMP 

(Zero  page),Y 

Dl  ZY 
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Mnemonic 

Addressing  Mode 

Opcode 

CPX 

Absolute 

EC  LO  HI 

CPX 

Immediate 

EO  IM 

CPX 

Zero  page 

E4  ZP 

CPY 

Absolute 

CC  LO  HI 

CPY 

Immediate 

CO  IM 

CPY 

Zero  page 

C4  ZP 

DEC 

Absolute 

CE  LO  HI 

DEC 

Absolute,X 

DE  LO  HI 

DEC 
DEC 

Zero  page 

C6  ZP 

Zero  paee.X 

D6  ZP 

DEX 

Implied 

CA 

DEY 
EOR 

Implied 
Absolute 

88 

4D  LO  HI 

EOR 

Absolute,X 

5D  LO  HI 

EOR 

Absolute,  Y 

59   LO  HI 

EOR 

Immediate 

49  IM 

EOR 

Zero  page 

45  ZP 

EOR 

Zero  paee.X 

55  ZP 

EOR 

(Zero  paee.X) 

41  ZX 

EOR 

(Zero  page),Y 

51  ZY 

INC 

Absolute 

EE  LO  HI 

INC 

Absolute.X 

FE  LO  HI 

INC 

Zero  pace 

E6  ZP 

INC 

Zero  paee.X 

F6  ZP 
E8 

INX 

Implied 

INY 

Implied 

C8 

IMP 

Absolute 

4C  LO  HI 

IMP 

(Absolute) 

6C  LO  HI 

JSR 

Absolute 

20    LO  HI 

LDA 

Absolute 

AD  LO  HI 

LDA 

Absolute,X 

BD  LO  HI 

LDA 
LDA 

Absolute,  Y 
Immediate 

B9  LO  HI 
A9  IM 

LDA 

Zero  page 

A5  ZP 

LDA 

Zero  page,X 

B5  ZP 

LDA 

(Zero  paee.X) 

Al  ZX 

LDA 

(Zero  page),Y 

Bl  ZY 

LDX 

Absolute 

AE  LO  HI 

LDX 

Absolute,  Y 

BE  LO  HI 

LDX 

Immediate 

A2  IM 

LDX 

Zero  page 

A6  ZP 

LDX 

Zero  page,Y 
Absolute 

B6  ZP 

LDY 

AC  LO  HI 

LDY 

Absolute,X 

BC  LO  HI 

LDY 

Immediate 

AO  IM 

Mnemonic 

Addressing  Mode 

Opcode 

I  DY 

A4 

ZP 

i  r»Y 

7orn  nana  Y 

z,ero  page, a 

B4 

ZP 

I  SR 

AhanliirP 

4E 

LO  HI 

I  SR 

Ahenliirp  Y 

rt.  USUI  U  V  V/  /V 

5E 

LO  HI 

I  SR 

A  rfumnlafnr 
/lit  uiii  uiaiui 

4A 

LSR 

7pro  naffp 

46 

ZP 

LSR 

56 

ZP 

NOP 

taplied^6^ 

EA 

ORA 

Absolute 

OD 

LO  HI 

ORA 

Absolute  X 

■I  r\ 
ID 

I  f~\  IXT 

LO  Hi 

ORA 

Absolute.Y 

19 

T  f~\  ITT 

LO  HI 

ORA 

Immediate 

09 

ORA 

Zero  naec 

05 

ZP 

ORA 

7t*rf\  naop  V 

15 

ZP 

ORA 

11 

ZY 

page),  I 

11 

ZY 

PHA 

[mnl  ipH 

48 

PHP 

Imolied 

08 

PI  A 

ILlI  plICU 

68 

PI  P 

TntnltPfl 

28 

ROI 

A  nsnli  i  f*P 
nusuiuic 

2E 

LO  HI 

ROT 

Ahanlurp  Y 

3E 

LO  HI 

ROT 

ArrnmiilAtnr 

Ail  umuiaLui 

2A 

ROT 

7prn  n,ioA 

(•C1U  L'tlteC 

26 

ZP 

ROT 

7prn  njop  Y 
t-vlU  pdgc,A 

36 

ZP 

ROR 

Ah«snl  ufp 

6E 

LO  HI 

ROR 

Absolute  X 

7E 

LO  HI 

ROR 

Arnimiilarnr 

llvl  UUIUldlUl 

6A 

ROR 

7prn  na<xp 

66 

ZP 

ROR 

Zero  nat»e  X 

76 

7D 

Zr 

RTI 

Imnlied 

40 

RTS 

Tnrnlipd 

IL11J,  lltU 

60 

Absolute 

ED 

I  f\  TJT 

LO  HI 

SBC 

Absolute.X 

en 

LO  Hi 

SBC 

Absolute.Y 

F9 

LO  HI 

SBC 

Immediate 

E9 

IM 

SRC 

*-cru  page 

E5 

ZP 

SBC 

Zero  oaee.X 

F5 

ZP 

SBC 

(Zero  pagerX) 

El 

ZX 

SBC 

(Zero  page),Y 

Fl 

ZY 

SEC 

Implied 

38 

SED 

Implied 

F8 

SEI 

Implied 

78 

STA 

Absolute 

8D 

LO  HI 

STA 

Absolute,X 

9D  LO  HI 

Mnemonic    Addressing  Mode  Opcode 


STA  Absolute,Y  99  LO  HI 

STA  Zero  page  85  ZP 

STA  Zeropage,X  95  ZP 

STA  (Zeropage,X)  81  ZX 

STA  (Zeropage),Y  91  ZY 

STX  Absolute  8E  LO  HI 

STX  Zero  page  86  ZP 

STX  Zero  page,Y  96  ZP 

STY  Absolute  8C  LO  HI 

STY  Zero  page  84  ZP 

STY  Zeropage,X  94  ZP 

TAX  Implied  AA 

TAY  Implied  A8 

TSX  Implied  BA 

TXA  Implied  8A 

TXS  Implied  9A 

TYA  Implied  98 


56 


ROM  Kernal 
Routines 


ROM  Kernal 
Routines 

Ottis  R.  Cowper 
Standard  Commodore  Jump  Table 

ACPTR  65445  $FFA5 

This  low-level  I/O  routine  retrieves  a  byte  from  a  serial  device 
without  checking  for  a  previous  I/O  error.  If  the  operation  is 
successful,  the  accumulator  will  hold  the  byte  received  from 
the  device.  The  contents  of  .X  and  .Y  are  preserved.  The  suc- 
cess of  the  operation  will  be  indicated  by  the  value  in  the  se- 
rial status  flag  upon  return.  (See  READST  for  details.) 

For  the  routine  to  function  properly,  the  serial  device 
must  currently  be  a  talker  on  the  serial  bus,  which  requires  a 
number  of  setup  steps.  Generally,  it's  preferable  to  use  the 
higher-level  CHRIN  routine  instead. 

CHKIN  65478  $FFC6 

This  routine  specifies  a  logical  file  as  the  source  of  input  in 
preparation  for  using  the  CHRIN  or  GETIN  routines.  The  logi- 
cal file  should  be  opened  before  this  routine  is  called.  (See  the 
OPEN  routine.)  The  desired  logical  file  number  should  be  in 
.X  when  this  routine  is  called.  The  contents  of  M  are  un- 
affected, but  the  accumulator  value  will  be  changed. 

The  routine  sets  the  input  channel  (location  $99)  to  the 
device  number  for  the  specified  file.  If  the  device  is  RS-232 
(device  number  2),  the  CIA  #2  interrupts  for  RS-232  reception 
are  enabled.  If  a  serial  device  (device  number  4  or  greater)  was 
specified,  the  device  is  made  a  talker  on  the  serial  bus. 

If  the  file  is  successfully  set  for  input,  the  status-register 
carry  bit  will  be  clear  upon  return.  If  carry  is  set,  the  operation 
was  unsuccessful  and  the  accumulator  will  contain  a  Kernal 
error-code  value  indicating  which  error  occurred.  Possible  er- 
ror codes  include  3  (file  was  not  open),  5  (device  did  not  re- 
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spond),  and  6  (file  was  not  opened  for  input).  The  RS-232  and 
serial  status-flag  locations  also  reflect  the  success  of  operations 
for  those  devices.  (See  READST  for  details.) 

The  JMP  to  the  CHKIN  execution  routine  is  by  way  of  the 
ICHKIN  indirect  vector  at  798-799  ($031E-$031F).  You  can 
modify  the  actions  of  CHKIN  by  changing  the  vector  to  point 
to  a  routine  of  your  own. 

CHKOUT  65481  $FFC9 

This  routine  (some  Commodore  references  call  it  CKOUT) 
specifies  a  logical  file  as  the  recipient  of  output  in  preparation 
for  using  the  CHROUT  routine.  The  logical  file  should  be 
opened  before  this  routine  is  called.  (See  the  OPEN  routine.) 
The  desired  logical  file  number  should  be  in  .X  when  this  rou- 
tine is  called.  The  contents  of  .Y  are  unaffected,  but  the  accu- 
mulator will  be  changed. 

The  routine  sets  the  output  channel  (location  $9A)  to  the 
device  number  for  the  specified  file.  If  the  device  is  RS-232 
(device  number  2),  the  routine  also  enables  the  CIA  #2  inter- 
rupts for  RS-232  transmission.  If  a  serial  device  (device  num- 
ber 4  or  greater)  is  specified,  the  device  is  also  made  a  listener 
on  the  serial  bus. 

If  the  file  is  successfully  set  for  output,  the  status-register 
carry  bit  will  be  clear  upon  return.  If  the  carry  is  set,  the  op- 
eration was  unsuccessful,  and  the  accumulator  will  contain  a 
Kernal  error-code  value  indicating  which  error  occurred.  Pos- 
sible error  codes  include  3  (file  was  not  open),  5  (device  did 
not  respond),  and  7  (file  was  not  opened  for  output).  The  RS- 
232  and  serial  status-flag  locations  also  reflect  the  success  of 
operations  for  those  devices.  (See  READST  for  details.) 

The  JMP  to  the  CHKOUT  execution  routine  is  by  way  of 
the  ICKOUT  indirect  vector  at  $0320-$0321.  You  can  modify 
the  actions  of  the  routine  by  changing  the  vector  to  point  to  a 
routine  of  your  own. 

CHRIN  65487  $FFCF 

This  high-level  I/O  routine  (some  Commodore  references  may 
call  it  BASIN)  receives  a  byte  from  the  logical  file  currently 
specified  for  input  (to  change  the  default  input  device,  see 
CHKIN  above).  Except  to  use  the  routine  to  retrieve  input 
from  the  keyboard  when  the  system  is  set  for  default  I/O,  you 
must  open  a  logical  file  to  the  desired  device  and  specify  the 
file  as  the  input  source  before  calling  this  routine.  (See  the 
OPEN  and  CHKIN  routines.) 

60 


ROM  Kernal  Routines 


For  keyboard  input  (device  0),  the  routine  accepts 
keypresses  until  RETURN  is  pressed,  and  then  returns  charac- 
ters from  the  input  string  one  at  a  time  on  each  subsequent 
call.  The  character  code  for  RETURN,  13,  is  returned  when  the 
end  of  an  input  string  is  reached.  (The  Kernal  GETIN  routine 
is  better  for  retrieving  individual  keypresses.) 

For  tape  (device  1),  the  routine  retrieves  the  next  character 
from  the  cassette  buffer.  If  all  characters  have  been  read  from 
the  buffer,  the  next  data  block  is  read  from  tape  into  the 
buffer. 

For  RS-232  (device  2),  the  routine  returns  the  next  avail- 
able character  from  the  RS-232  input  buffer.  If  the  buffer  is 
empty,  the  routine  waits  until  a  character  is  received — unless 
the  RS-232  status  flag  indicates  that  the  DSR  signal  from  the 
external  device  is  missing,  in  which  case  a  RETURN  character 
code,  13,  is  returned. 

CHRIN  from  the  screen  (device  3)  retrieves  characters  one 
at  a  time  from  the  current  screen  line,  ending  with  a  RETURN 
character  code  when  the  last  nonspace  character  on  the  logical 
line  is  reached.  (Note  that  CHRIN  from  the  screen  does  not 
work  properly  in  the  original  version  of  the  128  Kernal.)  For 
serial  devices  (device  numbers  4  and  higher),  the  routine  re- 
turns the  next  available  character  from  the  serial  bus,  unless 
the  serial  status  flag  contains  a  nonzero  value.  In  that  case,  the 
RETURN  character  code  is  returned. 

For  all  input  devices,  the  received  byte  will  be  in  the 
accumulator  upon  return.  The  contents  of  .X  and  .Y  are  pre- 
served during  input  from  the  keyboard,  screen,  or  RS-232.  For 
input  from  tape,  only  .X  is  preserved.  For  input  from  serial  de- 
vices, only  .Y  is  preserved.  For  input  from  the  screen,  key- 
board, or  serial  devices,  the  status-register  carry  bit  will  always 
be  clear  upon  return.  For  tape  input,  the  carry  bit  will  be  clear 
unless  the  operation  was  aborted  by  pressing  the  RUN/STOP 
key.  For  tape,  serial,  or  RS-232  input,  the  success  of  the  opera- 
tion will  be  indicated  by  the  value  in  the  status-flag  location. 
(See  the  entry  for  READST.)  The  RS-232  portion  of  the  orig- 
inal 128  version  of  CHRIN  has  a  bug:  The  carry  bit  will  be  set 
if  a  byte  was  successfully  received,  and  will  be  clear  only  if 
the  DSR  signal  is  missing — the  opposite  of  the  settings  for  the 
64.  It's  better  to  judge  the  success  of  an  RS-232  operation  by 
the  value  in  the  status-flag  location  rather  than  by  the  carry- 
bit  setting.  (See  the  READST  routine.) 

The  JMP  to  the  CHRIN  execution  routine  is  by  way  of  the 
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ICHRIN  indirect  vector  at  $0324-$0325.  You  can  modify  the 
actions  of  the  routine  by  changing  the  vector  to  point  to  a  rou- 
tine of  your  own. 

CHROUT  65490  $FFD2 

This  routine  (some  Commodore  references  call  it  BSOUT) 
sends  a  byte  to  the  logical  file  currently  specified  for  output. 
Except  to  send  output  to  the  screen  when  the  system  is  set  for 
default  I/O,  you  must  open  a  logical  file  to  the  desired  device 
and  specify  the  file  as  the  output  target  before  calling  this  rou- 
tine. (See  the  OPEN  and  CHKOUT  routines.) 

For  output  to  tape  (device  1),  the  character  is  stored  at  the 
next  available  position  in  the  cassette  buffer.  When  the  buffer 
is  full,  the  data  block  is  written  to  tape. 

For  output  to  RS-232  (device  2),  the  character  is  stored  in 
the  next  available  position  in  the  RS-232  output  buffer.  If  the 
buffer  is  full,  the  routine  waits  until  a  character  is  sent. 

For  output  to  the  screen  (device  3),  the  character  is 
printed  at  the  current  cursor  position.  For  serial  devices  (device 
numbers  4  and  higher),  the  CIOUT  routine  is  called. 

Regardless  of  the  output  device,  the  contents  of  the  accu- 
mulator, .X,  and  .Y  are  preserved  during  this  routine.  The 
status-register  carry  bit  will  always  be  clear  upon  return,  un- 
less output  to  tape  is  aborted  by  pressing  the  RUN/STOP  key. 
(In  that  case,  the  accumulator  will  also  be  set  to  0,  setting  the 
status-register  Z  bit  as  well.)  For  tape,  serial,  or  RS-232  output, 
the  success  of  the  operation  will  be  indicated  by  the  value  in 
the  status  flag.  (See  READST  for  details.) 

The  JMP  to  the  CHROUT  execution  routine  is  by  way  of 
the  ICHROUT  indirect  vector  at  $0326-$0327.  You  can  modify 
the  actions  of  the  routine  by  changing  the  vector  to  point  to  a 
routine  of  your  own. 

CINT  65409  $FF81 

This  routine  initializes  all  RAM  locations  used  by  the  screen 
editor,  returning  screen  memory  to  its  default  position  and  set- 
ting default  screen  and  border  colors.  The  routine  also  clears 
the  screen  and  homes  the  cursor.  All  processor  registers  are 
affected. 

For  the  64  only,  this  routine  initializes  all  VIC  chip  reg- 
isters to  their  default  values  (that's  done  during  the  Kemal 
IOINIT  routine  in  the  128).  For  the  128,  CINT  clears  both  dis- 
plays and  redirects  printing  to  the  display  indicated  by  the  po- 
sition of  the  40/80  DISPLAY  key.  The  128  routine  also  sets 
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SID  volume  to  zero  and  resets  programmable  function  keys  to 
their  default  definitions.  It  does  not,  however,  reinitialize  the 
80-column  character  set.  (That's  also  part  of  IOINIT.) 

CIOUT  65448  $FFA8 

This  low-level  I/O  routine  sends  a  byte  to  a  serial  device.  The 
accumulator  should  hold  the  byte  to  be  sent.  All  register  val- 
ues are  preserved.  The  success  of  the  operation  will  be  in- 
dicated by  the  value  in  the  serial  status  flag.  (See  READST  for 
details.) 

For  the  routine  to  function  properly,  the  target  serial  de- 
vice must  currently  be  a  listener  on  the  serial  bus,  which  re- 
quires a  number  of  setup  steps.  However,  if  you  have  already 
performed  all  the  preparatory  steps  necessary  for  CHROUT  to 
a  serial  device,  then  you  can  freely  substitute  CIOUT  for 
CHROUT,  since,  for  a  serial  device,  CHROUT  simply  jumps  to 
the  CIOUT  routine. 

CLALL  65511  $FFE7 

This  routine  resets  the  number  of  open  files  (location  $98)  to 
zero,  then  falls  through  into  the  CLRCH  routine  to  reset  de- 
fault I/O.  The  contents  of  .A  and  .X  are  changed,  but  M  is 
unaffected. 

Despite  its  name,  the  routine  doesn't  actually  close  any 
files  that  may  be  open  to  tape,  disk,  or  RS-232  devices.  Un- 
closed files  may  cause  problems,  particularly  on  disks,  so  this 
routine  is  of  limited  usefulness.  The  128  Kernal  provides  an 
alternate  routine  that  does  properly  close  all  files  open  to  a  se- 
rial device.  (See  CLOSE_ALL.) 

The  JMP  to  the  CLALL  execution  routine  is  by  way  of  the 
ICLALL  indirect  vector  at  $032C-$032D.  You  can  modify  the 
actions  of  the  routine  by  changing  the  vector  to  point  to 'a  rou- 
tine of  your  own. 

CLOSE  65475  $FFC3 

This  routine  closes  a  specified  logical  file.  Call  the  routine  with 
the  accumulator  holding  the  number  of  the  logical  file  to  be 
closed.  If  no  file  with  the  specified  logical  file  number  is  cur- 
rently open,  no  action  is  taken  and  no  error  is  indicated.  If  a 
file  with  the  specified  number  is  open,  its  entry  in  the  logical 
file  number,  device  number,  and  secondary  address  tables  will 
be  removed.  For  RS-232  files,  the  driving  CIA  #2  interrupts  will 
also  be  disabled.  For  tape  files,  the  final  block  of  data  will  be 
written  to  tape  (followed  by  an  end-of-tape  marker,  if  one  was 
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specified).  For  disk  files,  the  EOI  sequence  will  be  performed. 

The  128  version  of  the  routine  offers  a  special  close  func- 
tion for  disk  files:  If  this  routine  is  called  with  the  status- 
register  carry  bit  set,  and  if  the  device  number  for  the  file  is  8 
or  greater,  and  if  the  file  was  opened  with  a  secondary  address 
of  15,  then  the  EOI  sequence  is  skipped.  (The  table  entries  for 
the  file  are  deleted,  but  that's  all.)  This  solves  a  problem  in 
earlier  versions  of  the  Kemal  for  disk  files  opened  with  a 
secondary  address  of  15,  the  command  channel  to  the  drive. 
An  attempt  to  close  the  command  channel  will  result  in  an 
EOI  sequence  that  closes  all  files  currently  open  to  the  drive, 
not  just  the  command-channel  file.  This  special  mode  allows 
the  command-channel  file  to  be  closed  without  disturbing 
other  files  that  may  be  open  to  the  drive. 

The  JMP  to  the  CLOSE  execution  routine  is  bv  way  of  the 
ICLOSE  indirect  vector  at  $031C-$031D.  You  can  modify  the 
actions  of  the  routine  by  changing  the  vector  to  point  to  a  rou- 
tine of  your  own. 

CLRCHN  65484  $FFCC 

This  routine  restores  the  default  I/O  sources  for  the  operating 
system.  The  output  channel  (location  $9A)  is  reset  to  device  3, 
the  video  display.  (If  the  previous  output  channel  was  a  serial 
device,  it  is  sent  an  UNLISTEN  command.)  The  input  channel 
(location  $99)  is  reset  to  device  0,  the  keyboard.  (If  the  pre- 
vious input  channel  was  a  serial  device,  it  is  sent  an  UNTALK 
command.)  The  contents  of  .X  and  .A  are  changed,  but  .Y  is 
unaffected. 

The  JMP  to  the  CLRCHN  execution  routine  is  by  way  of 
the  ICLRCH  indirect  vector  at  $0322-$0323.  You  can  modify 
the  actions  of  the  routine  by  changing  the  vector  to  point  to  a 
routine  of  your  own. 

GETIN  65508  $FFE4 

This  routine  retrieves  a  single  character  from  the  current  input 
device.  The  routine  first  checks  to  see  whether  the  input  de- 
vice number  is  0  (keyboard)  or  2  (RS-232).  If  it's  not  either  of 
these,  the  Kernal  CHRIN  routine  is  called  instead.  For  key- 
board or  RS-232,  the  retrieved  character  will  be  in  the  accu- 
mulator upon  return,  and  the  status-register  carry  bit  will  be 
clear.  If  no  character  is  available,  the  accumulator  will  contain 
0.  (CHRIN,  by  contrast,  will  wait  for  a  character.)  The  contents 
of  .Y  are  unaffected,  but  .X  will  be  changed.  For  RS-232,  bit  3 


64 


ROM  Kemal  Routines 


of  the  status  flag  will  also  be  set  if  no  characters  are  available. 
(See  READST  for  details.) 

The  JMP  to  the  GETIN  execution  routine  is  by  way  of  the 
IGETIN  indirect  vector  at  $032A-$032B.  You  can  modify  the 
he  routine  by  changing  the  vector  to  point  to  a  rou- 
r  own. 

IOBASE  65523  $FFF3 

This  routine  returns  a  constant  I/O  chip  base-address  value  in 
.X  (low  byte)  and  .Y  (high  byte).  The  accumulator  is  un- 
affected. For  the  64,  the  value  returned  is  $DCO0 — the  address 
of  CIA  ml.  For  the  128,  the  value  is  $D000— the  address  of 


This  routine  initializes  the  CIA  chips'  registers  to  their  default 
values,  along  with  related  RAM  locations.  All  processor  reg- 
isters are  affected.  For  the  128,  the  routine  also  initializes  the 
VIC  and  VDC  chip  registers  (a  step  which  is  part  of  the  Kernal 
CINT  routine  in  the  64).  In  addition,  the  128  routine  sets  all 
SID  chip  registers  to  zero  and  calls  the  Kernal  DLCHR 
to  initialize  the  character  set  for  the  80-column  chip. 


LISTEN  65457 

This  low-level  serial  I/O  routine  sends  a  LISTEN  command  to 
a  specified  serial  device.  Call  the  routine  with  the  accumulator 
holding  the  device  number  (4-31)  of  the  serial  device  to  re- 
ceive the  command.  The  contents  of  .A  and  .X  will  be  changed; 

!  T  —  success  of  the  operation  will  be  indicated 


bv  the  value  in  the  serial  status  flag  upon  return.  (See 
READST  for  details.) 

LOAD  65493  SFFD5 

This  routine  loads  a  program  file  from  tape  or  disk  into  a 
specified  area  of  memory,  or  verifies  a  program  file  against  the 
contents  of  a  specified  area  of  memory.  A  number  of  prepara- 
tory routines  must  be  called  before  LOAD:  SETLFS,  SETNAM, 
and  (for  the  128  only)  SETBNK.  See  the  discussions  of  those 
routines  for  details. 

SETLFS  establishes  the  device  number  and  secondary  ad- 
dress for  the  operation.  (The  logical  file  number  isn't  significant 
for  loading  or  verifying.)  The  secondary-address  value  deter- 
mines whether  the  load/verify  will  be  absolute  or  relocating. 
If  bit  0  of  the  secondary  address  is  %0  (if  the  value  is  0  or  any 
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even  number,  for  example),  a  relocating  load  will  be  performed: 
The  file  will  be  loaded  starting  at  the  address  specified  in  .X 
and  .Y.  If  the  bit  is  %1  (if  the  value  is  1  or  any  odd  number, 
for  example),  an  absolute  load  will  be  performed:  The  data 
will  be  loaded  starting  at  the  address  specified  in  the  file  itself. 
For  tape  files,  the  secondary-address  specification  can  be  over- 
ridden by  the  file's  internal  type  specification.  Nonrelocatable 
tape  program  files  always  load  at  their  absolute  address, 
regardless  of  the  secondary  address. 

When  calling  the  LOAD  routine,  the  accumulator  should 
hold  the  operation  type  value  (0  for  a  load,  or  any  nonzero 
value  for  a  verify).  If  the  secondary  address  specifies  a  relocat- 
ing load,  the  starting  address  at  which  data  is  to  be  loaded 
should  be  stored  in  .X  (low  byte)  and  .Y  (high  byte).  The  val- 
ues of  .X  and  .Y  are  irrelevant  for  an  absolute  load. 

The  status-register  carry  bit  will  be  clear  upon  return  if 
the  file  was  successfully  loaded,  or  set  if  an  error  occurred  or  if 
the  RUN/STOP  key  was  pressed  to  abort  the  load.  When 
carry  is  set  upon  return,  the  accumulator  will  hold  a  Kernal  er- 
ror-code value  indicating  the  problem.  Possible  error  codes  in- 
clude 4  (file  was  not  found),  5  (device  was  not  present),  8  (no 
name  was  specified  for  a  serial  load),  9  (an  illegal  device  num- 
ber was  specified). 

On  the  128  only,  the  load  will  be  aborted  if  it  extends  be- 
yond address  $FEFF.  This  prevents  corruption  of  the  MMU 
configuration  register  at  $FF00.  In  this  case,  an  error  code  of 
16  will  be  returned.  The  success  of  the  operation  will  also  be 
indicated  by  the  value  in  the  tape/serial  status  flag.  (See 
READST  for  details.) 

MEMBOT  65436  $FF9C 

MEMTOP  65433  $FF99 

These  routines  read  or  set  the  Kemal's  bottom-of-memory 
pointer  and  top-of-memory  pointer,  respectively.  (The  bottom- 
of-memory  pointer  is  at  locations  $0281-$0282  for  the  64  or 
$0A05-$0AO6  for  the  128;  the  top-of-memory  pointer  is  at 
locations  $0283-$0284  for  the  64  or  $0A07-$0A08  for  the 
128.)  To  read  the  pointer,  call  the  routine  with  the  carry  flag 
set;  the  pointer  value  will  be  returned  in  .X  (low  byte)  and  .Y 
(high  byte).  To  set  the  pointer,  call  the  routine  with  the  carry 
flag  clear  and  with  .X  and  .Y  containing  the  low  and  high 
bytes,  respectively,  of  the  desired  pointer  value. 


66 


ROM  Kernal  Routines 


OPEN  65472  $FFC0 

This  routine  opens  a  logical  file  to  a  specified  device  in 
preparation  for  input  or  output.  At  least  one  preparatory  step 
is  required  before  the  standard  OPEN  routine  is  called: 
SETLFS  must  be  called  to  establish  the  logical  file  number,  de- 
vice number,  and  secondary  address.  For  tape  (device  1),  RS- 
232  (device  2),  or  serial  (device  4  or  higher),  SETNAM  is  also 
required  to  specify  the  length  and  address  of  the  associated 
filename.  For  the  128,  SETBNK  must  be  called  to  establish  the 
bank  number  where  the  filename  can  be  found. 

It  is  not  necessary  to  load  any  registers  before  calling 
OPEN,  and  all  processor  register  values  may  be  changed  dur- 
ing the  routine.  The  carry  will  be  clear  if  the  file  was  succef  - 
fully  opened,  or  it  will  be  set  if  it  could  not  be  opened.  When 


dude  1  (ten  files — the  maximum  allowed — are  already  open), 


and  tape/serial  status  flags  will  also  reflect  the  success  of  the 
operation  for  those  devices.  (See  READST  for  details.) 

On  the  128,  there  is  an  exception  to  the  carry-bit  rule.  Be- 
cause of  a  bug  in  the  128's  RS-232  OPEN  routine,  carry  will 
be  set  if  the  RS-232  device  is  present  when  x-line  handshaking 
is  used  (if  the  DSR  line  is  high),  or  clear  if  the  device  is  ab- 
sent— the  opposite  of  the  proper  setting. 

The  JMP  to  the  OPEN  execution  routine  is  by  way  of  the 
IOPEN  indirect  vector  $031A-$031B.  You  can  modify  the  ac- 
tions of  the  routine  by  changing  the  vector  to  point  to  a  rou- 
tine of  your  own. 

PLOT  65520  $FFF0 

This  routine  reads  or  sets  the  cursor  position  on  the  active  dis- 
play. If  it  is  called  with  the  status-register  carry  bit  clear,  the 
value  in  .X  specifies  the  new  cursor  row  (vertical  position), 
and  the  value  in  .Y  specifies  the  column  (horizontal  position). 
The  carry  bit  will  be  set  upon  return  if  the  specified  column  or 
row  values  are  beyond  the  right  or  bottom  margins  of  the  cur- 
rent output  window,  or  it  will  be  clear  if  the  cursor  was 


If  the  routine  is  called  with  the  carry  bit  set,  the  row  num- 
ber for  the  current  cursor  position  is  returned  in  .X  and  the 
current  column  number  is  returned  in  .Y.  For  the  Commodore 
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128,  the  cursor  position  will  be  relative  to  the  home  position 
of  the  current  output  window  rather  than  to  the  upper  left  cor- 
ner of  the  screen.  Of  course,  in  the  case  of  a  full-screen  output 
window— the  default  condition— the  upper  left  comer  of  the 
screen  is  the  home  position  of  the  window. 

RAMTAS  65415  $FF87 

This  routine  clears  zero-page  RAM  (locations  $02-$FF)  and 
initializes  Kernal  memory  pointers  in  zero  page.  For  the  64 
only,  the  routine  also  clears  pages  2  and  3  (locations 
$0200-$03FF),  tests  all  RAM  locations  from  $0400  upwards 
until  ROM  is  encountered,  and  sets  the  top-of-memory 
pointer.  For  the  128,  the  routine  sets  the  BASIC  restart  vector 
($0A00)  to  point  to  BASIC'S  cold-start  entry  address,  $4000. 

RDTIM  65502  $FFDE 

This  routine  returns  the  current  value  of  the  jiffy  clock.  The 
clock  value  corresponds  to  the  number  of  jiffies  (1/60-second 
intervals)  that  have  elapsed  since  the  system  was  turned  on  or 
reset,  or  the  number  of  jiffies  since  midnight  if  the  clock  value 
has  been  set.  The  low  byte  of  the  clock  value  (location  $A2)  is 
returned  in  .A,  the  middle  byte  (location  $A1)  in  .X,  and  the 
high  byte  (location  $A0)  in  .Y. 


READST  65463  $FFB7 

This  routine  (some  Commodore  references  call  it  READSS)  re- 
turns the  status  of  the  most  recent  I/O  operation.  The  status 
value  will  be  in  the  accumulator  upon  return;  the  contents  of 
.X  and  .Y  are  unaffected.  If  the  current  device  number  is  2  (in- 
dicating an  RS-232  operation),  the  status  value  is  retrieved 
from  the  RS-232  status  flag  (location  $0297  for  the  64  or 
$0A14  for  the  128),  and  the  flag  is  cleared.  Otherwise,  the  sta- 
tus value  is  retrieved  from  the  tape/serial  status  flag  (location 
s%  That  flag  is  not  cleared  after  being  read. 


Bit  VaJue 


0 

1 
2 
3 
4 


6 

7 


1/S0J 
2/$02 
4/$04 
8/$08 


32/$20 


Meaning  if  set 
Serial 

write  timeout 
read  timeout 


verify  mismatch 


EOI  (end  of  file) 


Meaning  if  set 
Tape 


short  block 
long  block 
unrecoverable  read 
or  verify  mismatch 


end  of  file 
end  of  tape 


Meaning  if  set 
RS-232 

parity  error 
framing  error 
receiver  buffer  overflow 
receiver  buffer  empty 
CTS  missing 


DSR  missing 
break 
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RESTOR 


65418 


$FF8A 


to  their  default  values.  All  processor 

SAVE  65496  $FFD8 

This  routine  saves  the  contents  of  a  block  of  memory  to  disk 
or  tape.  It  could  be  a  BASIC  or  ML  program,  but  it  doesn't 
have  to  be.  A  number  of  preparatory  routines  must  be  called 
first:  SETLFS,  SETNAM,  and  (for  the  128  only)  SETBNK.  See 
the  discussions  of  those  routines  for  details. 

SETLFS  establishes  the  device  number  and  secondary  ad- 
dress for  the  operation.  (The  logical  file  number  isn't  signifi- 
cant for  saving.)  The  secondary  address  is  irrelevant  for  saves 
to  serial  devices,  but  for  tape  it  specifies  the  header  type.  If  bit 
0  of  the  secondary  address  value  is  %1  (if  the  value  is  1,  for 
example),  the  data  will  be  stored  in  a  nonrelocatable  file— one 
that  will  always  load  to  the  same  memory  address  from  which 
it  was  saved.  Otherwise,  the  data  will  be  stored  in  a  file  that 
can  be  loaded  to  another  location.  If  bit  1  of  the  secondary  ad- 
dress is  %1  (if  the  value  is  2  or  3,  for  example),  the  file  will  be 
followed  by  an  end-of-tape  marker. 

Before  calling  SAVE,  you  must  also  set  up  a  two-byte 
zero-page  pointer  containing  the  starting  address  of  the  block 
of  memory  to  be  saved  and  then  store  the  address  of  the  zero- 
page  pointer  in  the  accumulator.  The  ending  address  (plus 
one)  for  the  save  should  be  stored  in  .X  (low  byte)  and  .Y 
(high  byte).  To  save  the  entire  contents  of  the  desired  area,  it's 
important  to  remember  that  .X  and  .Y  must  hold  an  address 
that  is  one  location  beyond  the  desired  ending  address. 

When  the  save  is  complete,  the  carry  will  be  clear  if  the 
file  was  successfully  saved,  or  set  if  an  error  occurred  (or  if  the 
RUN/STOP  key  was  pressed  to  abort  the  save).  When  carry  is 
set  upon  return,  the  accumulator  will  hold  the  Kernal  error 
code  indicating  the  problem.  Possible  error-code  values  in- 
clude 5  (serial  device  was  not  present),  8  (no  name  was  speci- 
fied for  a  serial  save),  and  9  (an  illegal  device  number  was 
specified).  The  success  of  the  operation  will  also  be  indicated 
by  the  value  in  the  tape/serial  status  flag.  (See  READST  for 


SCNKEY  65439 

This  routine  scans  the  keyboard  matrix  to  determine  which 
keys,  if  any,  are  currently  pressed.  The  standard  IRQ  service 
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routine  calls  SCNKEY,  so  it's  not  usually  necessary  to  call  it 
explicitly  to  read  the  keyboard.  The  character  code  for  the 
currently  pressed  is  loaded  into  the  keyboard  buffer,  from 
where  it  can  be  retrieved  using  the  Kernal  GETIN  routine.  The 
matrix  code  of  the  keypress  read  during  this  routine  can  also 
be  read  in  location  $CB  (64)  or  $D4  (128),  and  the  status  of 
the  shift  keys  can  be  read  in  location  $028D  (64)  or  $D3  (128). 


65517  $FFED 

routine  (Commodore  128  literature  calls  it  SCRORG)  re- 
turns information  on  the  size  of  the  screen  display.  For  the  64, 
the  routine  always  returns  the  same  values — the  screen  width 
in  columns  (40)  in  .X  and  the  screen  height  in  rows  (25)  in  .Y. 
The  accumulator  is  unaffected.  For  the  128,  the  values  returned 
reflect  the  size  of  the  current  output  window.  The  X  register 
will  contain  in  the  current  window  the  number  of  columns  mi- 
nus one,  and  .Y  will  contain  the  number  of  rows  minus  one. 
The  accumulator  will  hold  the  maximum  column  number  for 
the  display  currently  active  (39  for  the  40-column  screen  or  79 
for  the  80-column  screen). 

SECOND    •  65427  $FF93 

This  low-level  serial  I/O  routine  sends  a  secondary  address  to 
a  device  which  has  been  commanded  to  listen.  The  value  in 
the  serial  status  flag  upon  return  will  indicate  whether  the  op- 


SETLFS  65466  $FFBA 

This  routine  assigns  the  logical  file  number  (location  $B8),  de- 
vice number  (location  $BA),  and  secondary  address  (location 
$B9)  for  the  current  I/O  operation.  Call  the  routine  with  the 
accumulator  holding  the  logical  file  number,  .X  holding  the 
device  number,  and  .Y  holding  the  secondary  address.  All  reg- 
ister values  are  preserved  during  the  routine.  Refer  to  the 
LOAD  and  SAVE  routines  for  the  special  significance  of  the 
secondary  address  in  those  cases.  When  OPENing  files  to  se- 
rial devices,  it's  vital  that  each  logical  file  have  a  unique 
secondary  address.  In  the  128  Kernal,  the  LKUPLA  and 
LKUPSA  routines  can  be  used  to  find  unused  logical  file  num- 
bers anc' 


SETMSG  65424 

SETMSG  sets  the  value  of  the  Kernal  message  flag  (location 
$9D).  Call  the  routine  with  the  accumulator  holding  the  de- 
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sired  flag  value  (.X  and  .Y  are  unaffected.)  Valid  flag  values 
are  0  (no  Kernal  messages  are  displayed),  64  (only  error  mes- 
sages are  displayed),  128  (only  control  messages — PRESS 
PLAY  ON  TAPE,  for  example— are  displayed),  and  192  (both 
error  and  control  messages  are  displayed). 

SETNAM  65469  $FFBD 

This  routine  assigns  the  length  (location  $B7)  and  address 
(locations  $BB-$BC)  of  the  filename  for  the  current  I/O  opera- 
tion. Call  the  routine  with  the  length  of  the  filename  in  .A  and 
the  address  of  the  first  character  of  the  name  in  .X  (low  byte) 
and  .Y  (high  byte).  If  no  name  is  used  for  the  current  opera- 
tion, load  the  accumulator  with  0;  the  values  in  .X  and  .Y  are 
then  irrelevant.  All  register  values  are  preserved  during  this 
routine. 

SETTIM  65499  $FFDB 

This  routine  sets  the  value  in  the  software  jiffy  clock.  The 
value  in  the  accumulator  is  transferred  to  the  low  byte  (loca- 
tion $A2),  the  value  in  .X  to  the  middle  byte  (location  $A1), 
and  the  value  in  .Y  to  the  high  byte  (location  $A0).  The  speci- 
fied value  should  be  less  than  $4F1A01,  which  corresponds  to 
24:00:00  hours. 

SETTMO  65442  $FFA2 

The  SETTMO  routine  stores  the  contents  of  the  accumulator  in 
the  IEEE  timeout  flag.  (.X  and  .Y  are  unaffected.)  This  routine 
is  superfluous,  since  the  flag  isn't  used  by  any  64  or  128  ROM 
routine.  It  is  present  merely  to  maintain  consistency  with  pre- 
vious versions  of  the  Kernal.  For  the  64,  the  flag  location  is 


for  the  128,  it's  at  $0A0E. 

STOP  65505  $FFE1 

This  routine  checks  whether  the  RUN/STOP  key  is  currently 


if  RUN/STOP  is  pressed  the  CLRCH  routine  is  called  to  re- 
store default  I/O  channels,  and  the  count  of  keys  in  the  key- 
board buffer  is  reset  to  zero. 

The  JMP  to  the  STOP  execution  routine  is  by  way  of  the 
ISTOP  indirect  vector  at  $0328-$0329.  You  can  modify  the  ac- 
tions of  the  routine  by  changing  the  vector  to  point  to  a  rou- 
tine of  your  own. 
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TALK  65460  $FFB4 

This  low-level  I/O  routine  sends  a  TALK  command  to  a  serial 
device.  Call  the  routine  with  the  accumulator  holding  the 
number  (4-31)  of  the  device.  The  success  of  the  operation  will 
be  indicated  by  the  value  in  the  serial  status  flag  upon  return. 
(See  READST  for  details.) 

TKSA  65430  $FF96 

This  low-level  serial  I/O  routine  sends  a  secondary  address  to 
a  device  which  has  previously  been  commanded  to  talk.  The 
success  of  the  operation  will  be  indicated  by  the  value  in  the 
serial  status  flag  upon  return.  (See  READST  for  details.) 

UDTIM  65514  $FFEA 

This  routine  increments  the  software  jiffy  dock  and  scans  the 
keyboard  column  containing  the  RUN/STOP  key.  (The  128 
version  of  the  routine  also  decrements  a  countdown  timer.) 
This  routine  is  normally  called  every  1/60  second  as  part  of 
the  standard  IRQ  service  routine. 

UNLSN  65454  $FFAE 

This  low-level  I/O  routine  sends  an  UNLISTEN  command  to 
all  devices  on  the  serial  bus.  Any  devices  which  are  currently 
listeners  will  cease  accepting  data. 

UNTLK  65451  $FFAB 

This  low-level  I/O  routine  sends  an  UNTALK  command  to  all 
devices  on  the  serial  bus.  Any  devices  which  are  currently 


VECTOR  65421  $FF8D 

This  routine  can  be  used  either  to  store  the  current  values  of 
Kernal  indirect  vectors  at  $0314-$0333  or  to  write  new  values 
to  the  vectors.  When  calling  this  routine,  .X  and  .Y  should  be 
loaded  with  the  address  of  a  32-byte  table  (low  byte  in  .X, 
high  byte  in  .Y).  If  the  status-register  carry  bit  is  clear  when 
the  routine  is  called,  the  vectors  will  be  loaded  with  the  values 
from  the  table.  If  carry  is  set,  the  16  two-byte  address  values 
currently  in  the  vectors  will  be  copied  to  the  table. 

New  128  Kernal  Jump  Table 

Locations  $FF47-$FF7F  comprise  a  new  table  of  jump  vectors 
to  routines  found  in  Commodore  128  ROM,  but  not  in  the 
Commodore  64. 
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BOOT—CALL  65363  $FF53 

This  routine  attempts  to  load  and  execute  boot  sectors  from  a 
specified  disk  drive.  Call  the  routine  with  .X  holding  the  de- 


number  for  the  drive  (usually  8)  and  with  the  accu- 
mulator holding  the  character  code  corresponding  to  the  drive 
number — not  the  actual  drive  number.  The  single  drive  in 
1541  and  1571  units  is  drive  0;  in  this  case,  use  48,  the  charac- 
ter code  for  zero.  If  the  specified  drive  is  not  present  or  is 
turned  off,  or  if  the  disk  in  the  drive  does  not  contain  a  valid 
boot  sector,  the  routine  will  return  with  the  status-register 
carry  bit  set.  If  a  boot  sector  is  found,  it  will  be  loaded  into 
locations  $0B00-$0BFF.  Additional  boot  sectors  may  be  loaded 
into  other  areas  of  memory,  and  the  boot  code  may  not  return 
to  this  routine. 

CLOSE_ALL  65354  $FF4A 

This  routine  closes  all  files  currently  opened  to  a  specified  de- 
vice, providing  an  improved  version  of  CLALL.  Enter  the  rou- 
tine with  the  accumulator  holding  the  number  of  the  device 
on  which  files  are  to  be  closed.  If  the  specified  device  is  the 
current  input  or  output  device,  the  input  or  output  channel 
will  be  reset  to  the  default  device  (screen  or  keyboard).  If  all 
files  to  the  device  were  successfully  closed,  the  status-register 
carry  bit  will  clear  upon  return.  A  set  carry  bit  indicates  that  a 
device  error  occurred. 

C64-MODE  65357  $FF4D 

This  is  the  equivalent  of  the  BASIC  command  GO  64.  It  per- 
forms an  immediate  cold  start  of  64  mode.  To  get  back  to  128 
mode,  it  is  necessary  to  reset  the  computer,  or  to  turn  it  off 
and  back  on. 

DLCHR  65378  $FF62 

This  routine  copies  character  shape  data  for  both  standard 
ROM  character  sets  into  the  VDC  video  chip's  private  block  of 
RAM,  providing  character  definitions  for  the  80-column  dis- 
play. (The  VDC  has  no  character  ROM.)  This  routine  is  also 
called  as  part  of  IOINO"  for  the  128. 

DMA—CALL  65360  $FF50 

This  routine  passes  a  command  to  a  DMA  (Direct  Memory  Ac- 
cess) device.  The  DMA  device  will  then  take  control  of  the 
system  to  execute  the  command.  The  routine  is  written  to  sup- 
port the  REC  (RAM  Expansion  Controller)  chip  in  the  1700 
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and  1750  Memory  Expansion  Modules,  the  only  DMA  periph- 
erals currently  available.  Call  the  routine  with'.Y  holding  the 
command  for  the  DMA  device  and  .X  holding  the  bank  number 
for  the  operation.  Other  preparatory  steps  may  be  required, 
depending  on  the  command. 

GETCFG  65387 

This  routine  translates  a  bank  number  (0-15)  into  the 
corresponding  MMU  register  setting  to  configure  the  system 
for  that  bank.  Call  the  routine  with  .X  holding  the  bank  num- 
ber. Upon  return,  the  accumulator  will  hold  the  corresponding 
MMU  configuration  register  value.  (.Y  is  unaffected.)  Once  you 
have  this  value,  you  can  store  it  into  $FF00  to  change  banks. 
The  input  bank  number  is  not  checked  for  validity,  and  a 
number  outside  the  acceptable  range  will  return  a  me 
value. 

INDCMP  65402  $FF7A 

This  routine  compares  .A  to  the  number  held  in  a  memory 
location  in  a  specified  bank.  In  preparing  to  call  INDCMP, 
load  a  two-byte  zero-page  pointer  with  the  address  of  the 
location  with  which  the  accumulator  is  to  be  compared  (or 
with  the  base  location  if  a  series  of  bytes  is  to  be  compared), 
then  store  the  address  of  this  pointer  in  location  $02C8.  Call 
the  routine  with  the  accumulator  holding  the  byte  to  be  com- 
pared, .X  holding  the  bank  number  (0-15)  for  the  target  loca- 
tion, and  .Y  holding  an  offset  value  which  will  be  added  to 
the  address  in  the  pointer.  (Load  .Y  with  0  if  no  offset  is  de- 
sired.) Upon  return,  the  accumulator  will  still  hold  the  byte 
value,  and  the  status-register  N,  Z,  and  C  (carry)  bits  will  re- 
flect the  result  of  the  comparison.  The  value  in  .Y  will  also  be 
preserved,  but  it  is  necessary  to  reload  .X  with  the  bank  num- 
ber before  every  call  to  this  routine.  You  can  compare  up  to 

zero-page  pointer  by  simply  incrementing  .Y  between  calls. 

INDFET  65396  $FF74 

This  routine  reads  the  contents  of  a  location  in  a  specified 
bank.  Prior  to  calling  this  routine,  you  must  load  a  two-byte 
zero-page  pointer  with  the  address  of  the  location  to  be  read 
(or  with  the  base  location  if  a  series  of  bytes  is  to  be  read). 

Call  the  routine  with  the  accumulator  holding  the  address 
of  the  zero-page  pointer,  .X  holding  the  bank  number  (0-15) 
for  the  target  location,  and  .Y  holding  an  offset  value  which 
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will  be  added  to  the  address  in  the  pointer.  (Load  .Y  with  0  if 
no  offset  is  desired.)  Upon  return,  the  accumulator  will  hold 
the  byte  from  the  specified  address.  The  value  in  .Y  is  not 


To  read  from  a  series  of  locations,  it  is  necessary  to  reload 
the  accumulator  and  .X  values  before  every  call  to  this  routine, 
but  you  can  read  up  to  256  sequential  locations  without 
changing  the  address  in  the  zero-page  pointer  by  incrementing 
.Y  between  calls. 

INDSTA  65399  $FF77 

This  routine  stores  a  value  at  an  address  in  a  specified  bank. 
Before  calling  the  routine,  you  must  load  a  two-byte  zero-page 


stored),  and  then  store  the  address  of  this  pointer  in  location 
S02B9.  Call  the  routine  with  the  accumulator  holding  the  byte 
to  be  stored,  .X  holding  the  bank  number  (0-15)  for  the  target 
location,  and  .Y  holding  an  offset  value  which  will  be  added 
to  the  address  in  the  pointer.  (Load  Y  with  0  if  no  offset  is  de- 
sired.) Upon  return,  the  accumulator  will  still  hold  the  byte 
value;  .Y  is  also  preserved.  To  write  to  a  series  of  locations, 
you  must  reload  .X  with  the  bank  number  before  every  call, 
but  you  can  write  to  up  to  256  sequential  locations  without 
changing  the  address  in  the  zero-page  pointer  by  simply  in- 
crementing .Y  between  calls. 

JMPFAR  65393  SFF71 

JMPFAR  jumps  to  a  routine  in  a  specified  bank,  with  no  return 
to  the  calling  bank.  Prior  to  calling  this  routine,  you  must  store 
the  bank  number  (0-15)  of  the  target  routine  in  location  2  and 
the  address  of  the  target  routine  in  locations  3-4  in  high- 
byte/low-byte  order,  opposite  from  the  usual  arrangement. 
Load  location  5  with  the  value  you  want  placed  in  the  status 
register  when  the  target  routine  is  entered.  (The  behavior  of 
many  operating-system  routines  is  influenced  by  the  status- 
register  setting,  particularly  the  state  of  the  carry  bit.  Load  5 
with  the  value  0  to  clear  carry  or  with  1  to  set  carry.)  To  pass 
other  register  values,  store  the  desired  accumulator  value  in 
location  6,  the  value  for  .X  in  7,  and  the  value  for  .Y  in  8. 


JSRFAR  65390 

This  routine  jumps  to  a  subroutine  in  a  specified  bank  and  re- 
turns to  the  calling  routine  in  bank  15.  Prior  to  calling  this 


75 


ROM  Kernal  Routines 


routine,  you  must  store  the  bank  number  (0-15)  of  the  target 
routine  in  location  2  and  the  address  of  the  target  routine  in 
locations  3-4  (in  high-byte/low-byte  order,  opposite  from  the 
usual  arrangement).  Load  location  5  with  the  value  you  want 
placed  in  the  status  register  when  the  target  routine  is  called. 
(The  behavior  of  many  operating  system  routines  is  influenced 
by  the  status-register  setting,  particularly  the  state  of  the  carry 
bit.  Load  5  with  the  value  0  to  clear  carry,  or  with  1  to  set 
carry.)  To  pass  other  register  values  to  the  routine  you  will  be 
calling,  store  the  desired  accumulator  value  in  location  6,  the 
value  for  .X  in  7,  and  the  value  for  .Y  in  8.  Upon  return,  loca- 
tion 5  will  hold  the  status-register  value  at  the  time  of  exit,  6 
will  hold  the  accumulator  value,  7  will  hold  the  .X  value,  8 
will  hold  the  .Y  value,  and  9  will  hold  the  stack-pointer  value. 
The  system  is  always  configured  for  bank  15  upon  exit. 

LKUPLA  65369  $FF59 

This  routine  checks  whether  a  specified  logical  file  number  is 
currently  used.  Call  the  routine  with  the  accumulator  holding 
the  logical-file-number  value  in  question.  If  that  file  number  is 
available,  the  carry  bit  will  be  set  upon  return.  (The  logical  file 
number  will  still  be  in  the  accumulator.)  However,  if  the  num- 
ber is  used  for  a  currently  open  file,  then  the  carry  bit  will  be 
clear  upon  return,  the  accumulator  will  still  hold  the  logical 
file  number,  .X  will  hold  the  corresponding  device  number, 
and  .Y  will  hold  the  corresponding  secondary  address. 

LKUPSA  65372  $FF5C 

This  routine  checks  whether  a  specified  secondary  address  is 
currently  in  use.  Call  the  routine  with  .Y  holding  the  secondary- 
address  value  in  question.  If  that  secondary  address  is  not 
currently  used,  the  status-register  carry  bit  will  be  set  upon  re- 
turn. (The  secondary-address  value  will  still  be  in  .Y.)  How- 
ever, if  the  number  is  used  for  a  currently  open  file,  the  carry 
bit  will  be  clear  upon  return,  .Y  will  still  hold  the  secondary 
address,  the  accumulator  will  hold  the  associated  logical  file 
number,  and  .X  will  hold  the  corresponding  device  number. 

PFKEY  65381  $FF65 

When  you  turn  on  the  128,  its  function  keys  are  predefined. 
Pressing  F3  prints  DIRECTORY,  F7  holds  the  LIST  command, 
and  so  on.  The  PFKEY  Kernal  routine  assigns  a  new  definition 
to  one  of  the  10  programmable  function  keys  (F1-F8,  SHIFT- 
RUN/STOP,  and  HELP). 


ROM  Kernal  Routines 


Call  the  routine  with  the  accumulator  holding  the  address 
of  a  three-byte  zero-page  string  descriptor,  .X  holding  the  key 
number  (1-10),  and  .Y  holding  the  length  of  the  new  defi- 
nition string.  The  first  two  bytes  of  the  descriptor  in  zero  page 
should  contain  the  address  of  the  definition  string  (in  the 
usual  low-byte/high-byte  order);  the  final  byte  should  hold 
the  bank  number  where  the  definition  string  is  located.  PFKEY 
doesn't  check  the  key  number  for  validity;  a  value  outside  the 
acceptable  range  may  garble  existing  definitions.  Upon  return, 
the  carry  bit  will  be  clear  if  the  new  definition  was  success- 
fully added,  or  set  if  there  was  insufficient  room  in  the  defi- 
nition table  for  the  new  definition. 

PHOENIX  65366  $FF56 

This  routine  initializes  function  ROMs  and  attempts  to  boot  a 
disk  from  the  default  drive.  The  presence  of  function  ROMs  in 
cartridges  or  in  the  128's  spare  ROM  socket  is  recorded  during 
the  power-on/reset  sequence.  This  routine  initializes  the  func- 
tion ROMs  by  calling  their  recorded  cold-start  entry  addresses. 
If  ROMs  are  present,  they  may  or  may  not  return  to  this  rou- 
tine, depending  on  the  initialization  steps  performed.  If  no 
ROMs  are  present,  or  if  all  ROMs  return  after  initialization, 
the  routine  attempts  to  boot  a  disk  in  drive  0  of  device  ~ 
the  BOOT_CALL  routine. 


PRIMM  65405 

This  routine  prints  the  string  of  character  codes  which  im- 
mediately follows  the  JSR  to  this  routine.  (You  must  always 
call  this  routine  with  JSR,  never  with  JMP.  Only  JSR  places  the 
required  address  information  on  the  stack.)  The  routine  contin- 
ues printing  bytes  as  character  codes  until  a  byte  containing 
zero  is  encountered.  When  the  ending  marker  is  found,  the 
routine  returns  to  the  address  immediately  following  the  zero 
byte.  All  registers  (.A,  .X,  and  .Y)  are  preserved  during  this 
routine. 

SETBNK  65384  $FF68 

This  Kernal  routine  establishes  the  current  memory  bank  from 
which  data  will  be  read  or  to  which  data  will  be  written  dur- 
ing load/save  operations,  as  well  as  the  bank  where  the  file- 
name for  the  I/O  operations  can  be  found.  Call  the  routine 
with  the  accumulator  holding  the  bank  number  for  data  and 
.X  holding  the  bank  for  the  filename.  All  registers  (.A,  .X,  and 
.Y)  are  preserved  during  this  routine. 
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SPIN-SPOUT  65351  $FF47 

This  low-level  serial  I/O  routine  sets  up  the  serial  bus  for  fast 
(burst  mode)  communications.  Unless  you're  writing  a  custom 
data-transfer  routine,  it's  not  necessary  to  call  this  routine 
explicitly.  All  higher-level  serial  I/O  routines  already  include 
this  setup  step.  The  routine  should  be  called  with  the  status- 
register  carry  bit  clear  to  establish  fast  serial  input  or  with  the 
bit  set  to  establish  fast  serial  output. 

SWAPPER  65375  $FF5F 

This  routine  switches  active  screen  displays.  The  active  display 
is  the  one  which  has  a  live  cursor,  and  to  which  screen 
CHROUT  output  is  directed.  The  routine  exchanges  the  active 
and  inactive  screen-editor  variable  tables,  tab-stop  bitmaps, 
and  line-link  bitmaps;  and  it  toggles  the  active  screen  flag 
(location  $D7).  The  routine  doesn't  physically  turn  either 
video  chip  on  or  off — both  chips  always  remain  enabled. 
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Add  two  bytes  and  store  the  result 
Description 

Adding  is  one  of  the  essential  arithmetic  functions  in  machine 
language  (or  in  any  computer  language).  This  routine  simply 
adds  two  numbers' and  stores  the  result  in  memory. 

Prototype 

1 .  Load  the  first  number  from  memory. 

2.  Clear  the  carry  flag  with  a  CLC  instruction. 

3.  Add  the  second  number  with  ADC. 

4.  Save  the  result  in  memory. 

Explanation 

The  framing  routine  waits  for  a  keypress,  then  stores  the 
ASCII  value  in  memory.  It  gets  a  second  ASCII  value,  then 
prints  the  two  numbers.  After  the  ADDBYT  routine  is  called, 
the  answer  is  printed. 

If  you  want  a  proper  result,  you  should  always  clear  carry 
before  using  the  ADC  instruction.  ADC  really  adds  three  num- 
bers: two  that  are  in  the  range  0-255  and  one  (the  carry  flag) 
that's  either  0  or  1.  Adding  10  +  10  with  carry  set 
(10  +  10  +  1)  will  give  you  a  result  of  21. 

Note:  If  the  result  of  the  addition  is  greater  than  255,  the 
additional  bit  which  represents  a  value  of  256  will  be  in  the 
carry  flag  (carry  will  be  set).  If  you're  adding  signed  bytes  and 
'1  greater  than  127,  the  overflow  (V)  flag  will  be  set. 


GETTN 

UNPRT 

CHROUT 


C0OO 
C003 
C006 
C009 
C00C 
C00F 

con 

C014 
C016 
C019 
C01C 
C01E 


20    37  CO 

8D  3D  CO 

20    37  CO 

8D  3E  CO 

AE  3D  CO 
A9  00 

20  CD  BD 
A9  0D 

20    D2  FF 

AE  3E  CO 
A9  00 

CD  BD 
0D 

D2  FF 


20 


JSR 

STA 

JSR 

STA 

LDX 

LDA 

JSR 

LDA 

JSR 

LDX 

LDA 

JSR 

LDA 

JSR 


$BDCD 
$FFD2 

GETKEY 

NUMBER! 

GETKEY 

NUMBER2 

NUMBER1 

#0 

LINPRT 
#13 

CHROUT 

NUMBER2 

#0 

LINPRT 
#13 


AD  3D  CO  ADDBYT  LDA  NUMBERl 
18  CLC 


;  UNPRT  =  $8E32  on  the  128 


j  get  a  key  (ASCII  value) 
j  store  it 

:  get  a  second  key 
:  store  it,  too 
;  now  print  it 


.  print  <RETURN> 
;  second  number 

.-  print  it 

;  <RETURN>  again 

;  the  first  number 
;  clear  the  carry  flag 
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C02A  6D  3E  CO 
C02D  8D  3F  CO 


C030 
C031 
C033 


AA 

A9  00 

20    CD  BD 

60 


C037    20    E4    FF  GETKEY 
C03A   FO  FB 
C03C  60 


NUMBER2 
TOTAL 


#0 

UNPRT 


ADC 
STA 

TAX 
I.DA 

RTS 


BEQ  GETKEY 
RTS 


C03D  00 
COSE  00 
C03F  00 


NUMBER!  .BYTE 
NUMBER2  .BYTE 
TOTAL 


.BYTE  0 

See  also  ADDFP,  ADDINT,  INC2. 


;  add  the  second 
;  store  il 

;  put  it  In  .X 

i  and  print  it 
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Name 

Add  two  floating 


using  the  ROM  routine 


Enter  this  routine  with  the  two  numbers  to  be  added  in  the 
floating-point  accumulators  FAC1  and  FAC2.  The  ROM  rou- 
tine FADDT  then  adds  them  together  and  returns  the  answer 
in  FAC1. 

Prototype 

1.  Store  one  number  in  FAC1. 

2.  Store  the  other  in  FAC2. 

3.  Call  FADDT. 

Explanation 

Like  most  of  the  other  floating-point  routines  in  this  book, 
ADDFP  depends  on  built-in  ROM  routines.  The  framing  pro- 
gram starts  by  converting  the  integer  15  to  floating-point  for- 
mat, via  GIVAYF.  Next,  MOVEF  moves  the  number  from 
FAC1  to  FAC2.  GIVAYF  converts  another  integer— 1325— to 
floating-point. 

The  numbers  are  added  in  ADDFP  which  simply  calls 
FADDT.  Back  in  the  main  routine,  FOUT  converts  FAC1  to  a 
printable  ASCII  format,  and  the  result  is  printed  to  the  screen. 

Routine 


FADDT  -  $8848  on  the  128— adds  FAC1 
to  FAC2;  result  in  FAC1 
MOVEF  =  S8C3B  on  the  128-moves 
FAC1  toFAC2 

GIVAYF  -  $AF03  on  the  128— converts 
integer  to  floating  point 
FOUT  =  $8E42  on  the  128— converts  FAC1 
to  ASCII  string 


cooo 

ZP 

SFB 

cooo 

CHROUT 

SFFD2 

cooo 

FADDT 

- 

$BS6A 

cooo 

MOVEF 

$BC0F 

COOO 

GIVAYF 

SB391 

COOO 

FOUT 

$BDDD 

COOO 

A9 

00 

LDA 

#>I5 

C002 

AO 

OF 

LDY 

*<15 

C004 

20 

91  B3 

]SR 

GIVAYF 

C007 

20 

OF  BC 

ISR 

MOVEF 

A9  05 

AO  2D 

COOE 

20 

91  B3 

JSR 

GTVAYF 

con 

20 

29  CO 

JSR 

ADDFP 

C014 

20 

DD  BD 

JSR 

FOUT 

C017 

85 

FB 

STA 

ZP 

Convert  the  numbers  15  and  1325  to 
floating  point  and  add  them, 
high  byte  of  15 
low  byte 

convert  it,  now  it's  In  FAC1 
move  FAC1  to  FAC2 
high  byte  of  1325 
low  by* 
convert  il 

FACl  now  holds  1325.  and  FAC2  holds  15. 
add  them 
convert  to  t 
pointer 
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CO  19    84  FC  STY 

C01B    AO  00  LDY 

C01D  Bl  FB  PRTLOP  LDA 

COIF    DO  01  BNE 

C02I    60  RTS 

C022    20  D2  FF    PRNIT  JSR 

C025    C8  INY 

C026    DO  F5  BNE  PRTLOP 

60  RTS 


C029  20  6A  B8  ADDFP 
C02C  60 


;sr 

RTS 


ZP+1 
#0 

(ZP),Y 
PRNIT 


FADDT 

YJ,  ADDLNT,  LNC2. 


;  to  the  string 


;  add  FAC1  and  FAC2 
;  Ihe  result  Is  in  FAC1 
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Name 


Add  two  2-byte  integer  values  and  store  the  result  in  memory 


Description 

Adding  two  integers  is  a  matter  of  clearing  the  carry  flag  and 


Prototype 

1.  Clear  the  carry  flag. 

2.  Load  the  low  byte  of  the  first  number  into  .A. 

3.  Add  the  low  byte  of  the  second  number  and  store  the 


portant  thing  is  to  start  with  the  low  byte  and  work  your  way 
up  to  the  higher  bytes.  Remember  the  convention  that  low 
bytes  are  stored  in  memory  before  the  high  bytes.  The  number 
1000  is  hex  $03E8,  which  would  be  stored  as  an  $E8  followed 
by  an  $03. 

For  each  byte,  addition  is  a  three-step  process:  Load  the 
first  number  (LDA),  add  the  second  (ADC),  and  store  the  re- 
sult somewhere  (STA).  Also,  carry  should  be  cleared  before  the 
first  byte  is  added.  After  that,  carry  handles  itself. 

The  following  program  starts  with  the  number  1000  and 
loops  30  times,  repeatedly  adding  350  to  the  total  in  NUM1. 
After  each  step,  the  current  value  is  printed  to  the  screen. 


Routine 


cooo 
cooo 


LINrRT 
CHROUT 


;  L1NPRT  -  S8E32  on  the  128 


C005  A9  03 

C007  8D  48  CO 

C0OA  A9  5E 

C00C  8D  49  CO 

C0OF  A9  01 

C011  8D  4A  CO 


;  and  high  byte 


STA  NUM1  + 

LDA  *<350 

STA  NUM2 

LDA  *>350 


:  and 


;  NUM2  needs 
:  a  low  byte 


COM  A9  in 

C016  8D  4B  CO 

C019  20  2A   CO  LOOP 

C01C  A9  20 

C01£  20  D2  FF 


JSR  PRNNUM 

LDA  #32 

JSR  CHROUT 


STA  NUM2+1 


LDA  #30 
STA  RPT 
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QUI 


C021  20  33  CO 

C024  CE  4B  CO 

C027  DO  FO 

C029  60 


JSR  ADDINT 

DEC  RPT 

BNE  LOOP 
RTS 


C02A   AE  47  CO  PRNNUM     LDX  NUM1 

C02D   AD  48  CO  1-DA     NUM1  +  1 

C030    4C  CD  BD  IMP  LINPRT 

C033    18  ADDINT  CLC 

C034    AD  49  CO  LDA  NUM2 

6D  47  CO 

8D  47  CO 


AD  4A  CO 
6D  48  CO 
8D  48  CO 


C047  00  00 
C049  00  00 
C04B  00 


NUM1 
NUM2 
RPT 


LDA  NUM2+I 

ADC  NUM1+1 

STA  NUM1+1 
RTS 

-BYTE  Ofi 

•BYTE  0.0 

.BYTE  0 


INC2. 


add  NUM2  to  NUMl 

RPT  counts  down 

and  loop  back  for  more 


low  byte  of  NUMl 
high  byte 

print  it  (RTS  is  implied) 

always  clear  carry  before  adding 
low  byte  of  NUM2 
add  to  low  byte  of  NUMl 
store  it 

Now  carry  is  indeterminate,  but  If  s 
handled  by  the  ADC  below. 
Note  that  you « 
the  high  byte, 
high  byte 
add  it 
store  It 
done 
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Name 

Set  up  a  time-of-day  (TOD)  alarm 
Description 

Both  CIA  time-of-day  clocks  are  equipped  with  a  built-in 
alarm  function.  To  use  the  alarm,  you  must  set  both  the  clock 
and  the  alarm  time,  just  as  you  would  on  any  alarm  clock. 
Rather  than  actually  sounding  a  tone  when  the  clock  time 
matches  the  alarm  time,  the  TOD  clock  triggers  an  interrupt. 
Your  program  must  then  take  appropriate  action,  depending 
upon  the  intended  use  of  the  alarm. 

A  TOD  alarm  can  be  used  in  any  number  of  ways.  In  an 
arcade-style  game,  it  can  signal  the  end  of  one  player's  turn, 
the  completion  of  a  particular  skill  level,  or  the  end  of  the 
game  itself.  In  an  educational  program,  the  alarm  can  signal 
when  the  user  has  taken  too  much  time  to  respond. 

The  alarm  mechanisms  on  the  two  TOD  clocks  are  prac- 
tically identical.  The  only  difference  is  that,  because  of  the 
way  the  CIA  chips  are  wired  into  the  system,  TOD  clock  1 
causes  an  IRQ  interrupt  while  TOD  clock  2  triggers  an  NMI 
interrupt.  In  ALARM2,  we  produce  a  tone  when  the  second 
TOD  clock  alarm  causes  such  an  interrupt. 

Prototype 

In  ALARM2: 

1 .  Store  the  current  time  in  binary-coded  decimal  (BCD)  for- 
mat as  TIMSET  at  the  end  of  the  program. 

2.  Define  the  alarm  time  in  BCD  format  as  ALARTM1. 

3.  Redirect  the  NMI  interrupt  vector  at  792  to  MAIN. 

4.  Set  bit  7  of  control  register  B  at  56591  (C12CRB)  and  set  the 
alarm  time  for  TOD  clock  2  using  ARMTIM. 

5.  Then  clear  this  bit  and  set  the  current  time  for  TOD  clock  2, 
again  using  ARMTIM. 

6.  Set  bit  2,  the  alarm  interrupt  bit,  in  the  interrupt  control 
register  (CI2ICR)  at  56589  and  RTS.  Bit  7  must  be  set  in  or- 
der to  set  bit  2. 

In  MAIN: 

1.  Determine  whether  the  alarm  caused  the  NMI  interrupt  by 
testing  bit  7  of  the  interrupt  control  register  (CI2ICR). 

2.  If  this  bit  is  clear,  exit  the  routine  through  the  normal  NMI 
interrupt  handler  (in  step  7). 

3.  Otherwise,  clear  the  alarm  bit  (bit  2)  in  CI2ICR.  Bit  7  must 
be  set  to  zero  in  order  to  clear  this  bit. 
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4.  Set  the  parameters  of  the  SID  chip  to  produce  an  alarm 
sound  and  start  the  attack/decay/sustain  cycle  of  the  chip. 

5.  Wait  for  a  keypress  with  SCNKEY,  a  Kernal  routine. 

6.  When  a  keypress  occurs,  stop  the  alarm  sound  by  clearing 
the  SID  chip,  restore  the  normal  NMI  vector  address,  and 
clear  the  keyboard  buffer. 

7.  Exit  the  routine  by  executing  the  normal  NMI  interrupt 
handler. 

Explanation 

When  ALARM2  ($CO00-$C009)  is  set  up,  the  NMI  interrupt 
vector  is  changed  so  that  it  points  to  our  own  routine  at 
MAIN.  Next,  with  the  subroutine  ARMTIM,  we  set  the  TOD 
clock  time  to  4:05:10.0  p.m.  and  the  alarm  time  to  three  sec- 
onds later,  or  4:05:13.0  p.m. 

ARMTIM  is  similar  to  TOD2ST,  which  sets  the  second 
TOD  clock.  In  TOD2ST,  .Y  is  always  initialized  to  0,  whereas 
in  ARMTIM,  .Y  is  initially  0  or  4.  This  allows  you  to  set  either 
the  TOD  time  or  the  alarm  time  with  the  same  routine.  If  .Y  is 
0,  the  alarm  time,  defined  as  ALARTM,  is  set.  If  .Y  is  4,  the 
TOD  clock  time,  or  TIMSET,  is  set. 

ALARTM  and  TIMSET  can  be  set  to  any  times  you  like. 
Both  are  expressed  in  binary-coded  decimal  (BCD)  format. 

Before  the  setup  routine  is  exited,  the  TOD  alarm  interrupt 
is  enabled  by  setting  bit  2  of  the  interrupt  control  register 
(CI2ICR).  Notice  that  bit  7  of  this  register  must  be  set  in  order 
to  set  bits  0-6.  To  clear  one  of  these  bits,  store  a  zero  in  bit  7 
while  storing  a  one  in  the  bit  you  wish  to  clear. 

Having  now  pointed  the  NMI  vector  to  our  own  routine, 
the  first  thing  the  computer  does  when  an  NMI  interrupt  oc- 
curs in  MAIN  is  to  check  to  see  whether  our  alarm  caused  this 
interrupt.  If  the  NMI  interrupt  has  been  caused  by  another 
source,  the  normal  NMI  interrupt  handler  is  accessed.  Other- 
wise, the  alarm  interrupt  is  disabled,  and  the  current  alarm  ac- 
tion is  carried  out — in  this  case,  sounding  a  tone  until  a  key  is 
pressed. 

Once  the  SID  chip  starts  the  tone,  we  rely  on  the  Kernal 
routine  SCNKEY  rather  than  GETIN  to  check  for  a  keypress. 
SCNKEY,  unlike  GETIN,  works  during  interrupts. 

When  you  finally  press  a  key,  the  SID  chip  is  turned  off 
with  SIDCLR,  and  the  normal  NMI  vector  is  restored  with 
RSTVEC. 


ALARM2 


Note:  ALARM2  demonstrates  how  to  use  TOD  dock  2,  on 
CIA  (Complex  Interface  Adapter)  chip  2,  to  signal  an  alarm. 
But  if  you're  already  using  the  second  TOD  clock  elsewhere  in 
your  program,  the  first  TOD  clock  will  work  equally  well  in 
this  capacity. 

To  set  up  the  alarm  on  TOD  clock  1,  use  the  equivalent 
TOD  registers  (TODTN1)  and  interrupt  control  registers 
(CIAICR,  CIACRB)  found  in  CIA  1  (each  of  these  is  lower  in 
memory  by  256  bytes).  Since  the  interrupt  generated  by  TOD 
clock  1  is  an  IRQ  interrupt,  redirect  the  IRQ  interrupt  vector  at 
788,  rather  than  the  NM1  vector,  to  your  custom  routine 


Routine 

cooo 

cooo 
cooo 
cooo 

cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 


TODTN2 

RESTOR 
NMJVEC 
N  MINOR  = 

C12CRB  = 

CJ2ICR  = 
SIGVOL 

ATDCY1  = 

SUREU  - 

FREH11  = 
FREL01 


56584 

65418 

792 

65095 


SCNKEY 
NDX 


COOO 

A9  2A 

ALARM2 

LDA 

#<MAIN 

CO02 

BD  18 

03 

STA 

NMIVEC 

CO05 

A9  CO 

LDA 

#>MAIN 

C007 

8D  19 

03 

STA 

NMIVEC+1 

CO0A 

AD  OF 

DD 

LDA 

CI2CRB 

COOD 

09  80 

ORA 

#%100OOO00 

COOF 

8D  OF 

DD 

STA 

CT2CRB 

C012 

AO  00 

LDY 

#0 

C014 

20  66 

CO 

JSR 

ARMTIM 

C017 

AD  OF 

DD 

LDA 

C12CRB 

C01A 

29  7F 

AND 

twmiim 

C01C 

8D  OF 

DD 

STA 

CI2CRB 

COIF 

AO  04 

LDY 

#4 

C021 
C024 

20  66 

CO 

JSR 

ARMTIM 

A9  84 

LDA 

#%10000100 

C026 

8D  OD 

DD 

STA 

CI2ICR 

C029 

60 

RTS 

C02A 

AD  OD 

DD  MAIN 

LDA 

CI2ICR 

C02D 

29  04 

AND 

#%00000100 

C02F 

FO  32 

BEQ 

EXIT 

,-  time-of-day  dock  2 — tenths-of-seconds 
;  register 

;  routine  to  restore  Kemai  vectors 

:  vector  to  NMI  interrupt  routine 

:  NMINOR  =  64064  on  the  128— normal 

;  NMI  Interrupt  service  routine 

;  CIA  2  control  register  B 

;  CIA  2  Interrupt  control  register 

j  SID  chip  volume  register 

j  voice  1  attack/decay  register 

;  voice  1  sustain/release  register 

;  voice  1  frequency  control  (high  byte) 

;  voice  1  frequency  control  (low  byte) 

;  voice  1  control  register 

:  Kemai  routine  to  get  a  keypress 

;  NDX  =  208  on  the  128— number  of 

;  characters  in  keyboard  buffer 

;  Set  up  an  alarm  clock  signal  using  TOD 
;  clock  2. 

;  store  the  low  byte  of  NMI  interrupt 
;  wedge 

;  and  the  high  byte 

;  get  current  register  value 

;  turn  on  bit  7  to  set  alarm  time 

;  to  index  alarm  time  setting 

;  set  TOD  clock  2  alarm  time 

;  now,  clear  bit  7  of  the  control  register  to 

;  set  TOD  time 

;  torn  off  bit  7 

;  to  index  the  time  setting 

;  set  the  TOD  2  time 

;  act  bits  2  and  7  to  enable  TOD  alarm 

;  Interrupt 

;  exit  setup  routine 

;  did  the  alarm  cause  the  interrupt  (is  bit  2 
;  set?)? 

;  bit  2  is  dear,  so  execute  normal  Interrupts 


ALAJRM2 


C031  A9  04 

C033  8D  0D  DD 

C036  20  73  CO 

C039  A9  OD 

C03B  8D  18  D4 

COSE  A9  00 

C040  8D  OS  D4 

C043  A9  FO 

C045  8D  06  D4 

C048  A9  04 

C04A  8D  01  D4 

C04D  A9  21 

C04F  8D  04  D4 

C052  20  9F    FF  WAIT 

C05S  A5  C6 

C057  FO  F9 

C0S9  20  73  CO 

C05C  20  7E  CO 

C05F  A9  00  BUFCLR 

C061  8$  C6 

C063  4C  47    FE  EXIT 


C066  A2  03  ARMTIM 

C068  B9   84    CO  RDLOOP 

C06B  9D  08  DD 

C06E  C8 


CA 

10  F6 
60 


C073    A9  00  SIDCLR 

COTS   AO  18 

C077  99  00  D4  S1DLOP 
C07A  B8 

C07B    10  FA 
C07D  60 


C07E  78  RSTVEC 

C07F  20    8A  FF 

C082  58 

C083  60 

C084  84    05    13  ALARTM 

C088  84    05    10  TIMSET 


t  n  a 
LUA 

J*     ivuwyi  tin 

ISR 

SIDCLR 

IP' 

#13 

CTA 

3  I A 

blli  <  KM. 

LDA 

#$0 

ATDCYJ 

int 
LUA 

#»rl» 

blA 

bUKcLl 

i  nx 

S?A 
a  IA 

LDA 

3  In 

JSR 

SCNKEY 

LDA 

NDX 

■  -  ■ ■ tt 

WA1I 

JSR 

SIDCLR 

JSR 

R'iTVFr 

LDA 

#0 

9  1A 

NDX 

JMP 

NMINOR 

LDX 

W3 

A  1    A  O 11'  V 

ALAKi  M,T 

STA 

TODTN2,X 

rxjV 
UNI 

DEX 
BPL 

RDLOOP 

RTS 

LDA 

ldy 

•24 

STA 

FRELOl.Y 

DEY 

BPL 

SIDLOP 

RTS 

SFJ 

|SR 

RESTOR 

cu 

RTS 


;  the  alarm  triggered  the  interrupt,  so  dear 
;  the  alarm  bit 

;  And  signal  with  an  alarm  sound. 
;  clear  the  SID  chip 
;  set  the  volume 

;  set  attack/decay 

;  set  sustain/release 

;  set  voice  1  high  frequency 

;  select  sawtooth  waveform  and  gate  the 
;  sound 

;  wait  for  a  keypress 
;  check  keyboard  buffer 
;  if  no  key  is  pressed,  wait 
;  stop  the  alarm  sound 
,-  restore  NM1  vector 
;  cleat  keyboard  buffer 

;  exit  through  normal  NMI  interrupt 
;  handler 

,:  Set  alarm  and  time.  Come  in  with  .Y  —  0 
;  to  set  alarm  and  .Y  -  4  to  set  time. 
;  as  an  index  for  hrs.,  mins,  sees.,  tenths 
;  read  in  alarm  time  or  clock  time  to  set 
;  store  to  clock — hrs.  first 
;  for  next  data  position  (in  ALARMT  or 
;  TIMSET) 

,-  for  next  clock  position  (min.,  sec,  tenths) 
;  read  four  bytes 


:  Clear  the  SID  chip. 

;  fill  with  zeros 

:  as  the  offset  from  FRELOl 

;  store  zero  in  each  SID  chip  address 

;  for  next  lower  address 


;  Restore  Kemal  vectors  to  default  values. 
:  disable  IRQ  interrupts  while  resetting  IRQ 
;  vector 

;  reset  page  3  RAM  vectors  to  ROM  table 
;  values 

;  reenable  IRQ  interrupts 


.BYTE  $84,$05,$  13.50  ;  hr..  min..  sec.,  tenths  for  alarm  I 
;  Alarm  Is  set  Tor  04.05.13.0  p.m. 

.BYTE  $84,$05,$10,$0  ;  hr..  min.,  sec.  tenths  for  rime 
;  Time  is  set  for  04.05.10.0  p.m. 
;  For  a.m.,  subtract  $80  from  hrs.  place. 


See  also  INTCLK,  TOD1DL,  TOD1RD,  TOD2PR,  TOD2ST. 
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Name 

Alphabetize  by  swapping  pointers 
Description 

The  main  alphabetizing  routine  does  two  things.  First,  it  sets 
up  a  series  of  pointers  to  strings  in  memory.  Then  it  goes 
through  the  pointers  and  performs  a  Shell  sort,  leaving  the 
strings  where  they  are,  but  swapping  the  pointers  as  nec- 
essary. A  Shell  sort  is  generally  faster  than  the  bubble  sort 
used  in  the  ALSWAP  routine,  but  it's  easier  to  write  either  if 
the  fields  to  be  sorted  are  the  same  size  (which  they  are  not  in 
the  example)  or  if  pointers  are  used  instead  of  an  actual  swap 
of  strings.  (Incidentally,  Shell  is  capitalized  because  it's  named 
after  its  inventor,  Donald  Shell.) 

Prototype 

First,  create  the  table  of  pointers: 

1.  Look,  character  by  character,  through  the  zero-terminated 
strings. 

2.  When  a  zero  is  found,  store  the  address  (plus  one)  of  the 
location. 

3.  Check  the  next  character.  If  it's  not  zero,  increment  the 
TOTL  variable  and  continue  the  loop. 

Next,  alphabetize  the  strings: 

4.  Set  a  gap  variable  (TOTL)  initially  to  the  number  of  words. 

5.  Clear  the  FLIP  variable. 

6.  Cut  the  gap  in  half.  If  there  are  120  words,  the  gap  starts 
at  60. 

7.  Set  a  pointer  (ZP)  to  the  beginning  of  the  list  of  pointers. 

8.  Set  a  second  (ZQ)  to  the  beginning  of  the  list  plus  the  gap. 

9.  Load  the  string  pointer  from  ZP  and  store  it  in  AP. 

10.  Load  the  second  string  pointer  from  ZQ  and  store  in  AQ. 

11.  Using  .Y  as  an  offset,  compare  the  strings  in  AP  and  AQ. 

12.  If  they're  in  order,  skip  step  13. 

13.  If  they're  not  in  order,  swap  the  pointers  in  memory  and 
set  FLIP  to  a  nonzero  value. 

14.  Increment  both  ZP  and  ZQ  until  ZQ  points  beyond  the 
end  of  the  list. 

15.  If  a  swap  has  occurred,  FLIP  is  not  zero,  so  loop  back  to 
step  7. 

16.  If  it  has  not,  go  back  to  step  6  while  the  gap  is  larger  than 
zero. 
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Explanation 

This  is  a  long  routine,  but  a  good  chunk  of  it  is  devoted  to  the 
part  that  reads  a  file  into  memory  from  disk.  The  main  routine 
consists  of  three  JSRs.  The  first  calls  the  section  that  reads  a 
text  file  into  memory,  searching  for  spaces— or  CHR$(13)s— 
and  replacing  them  with  zeros  as  the  file  is  copied  to  memory. 
The  second  calls  the  alphabetizing  routine.  The  third  prints 
out  the  word  list. 

ALPNTR  itself  has  two  primary  subroutines:  MAKETL 
and  ALPHAB.  The  first  sets  up  the  table  of  pointers  at 
$5000-$5FFF,  4096  bytes.  Since  each  pointer  needs  2  bytes, 
this  is  enough  memory  to  handle  2048  strings  or  words.  Note 
that  BUFFER  holds  the  actual  words,  while  POINTR  holds  a 
series  of  pointers  to  the  words  in  BUFFER. 

Based  on  the  assumption  that  there's  at  least  one  word  in 
the  list,  the  first  entry  in  the  table  is  set  to  point  to  the  start  of 
the  buffer.  Next,  MAKETL  searches  forward  for  zeros.  When 
one  is  found,  the  next  address  in  the  buffer  is  saved  in 
POINTR.  Each  word  ends  with  a  zero  byte,  and  the  buffer  it- 
self ends  with  an  additional  zero.  When  the  final  zero  is 
found,  the  loop  ends. 

ALPHAB  is  the  main  alphabetizing  routine,  and  it  re- 
quires several  passes.  Remember,  the  words  stay  where  they 
are;  it's  just  the  pointers  that  are  being  shuffled  around. 

The  idea  of  the  gap  is  the  key  to  the  Shell  sort.  The  gap 
starts  out  at  half  the  number  of  total  items  in  the  list.  If  there 
are  56  things  to  put  in  order,  the  gap  is  28.  Entry  1  is  com- 
pared with  entry  29,  2  is  compared  with  30,  and  so  on.  If  any 
two  items  are  out  of  order,  they're  switched. 

After  the  first  pass,  the  FLIP  variable  is  checked.  If  any 
two  items  have  been  changed,  the  gap's  value  remains  the 
same,  and  the  loop  is  repeated.  If  no  swaps  have  occurred,  the 
gap  is  cut  in  half  (from  28  to  14,  for  example).  When  the  gap 
drops  to  a  value  less  than  %  the  sort  is  finished. 

The  great  advantage  to  using  a  gap  is  that  it  moves  items 
quickly  over  a  long  distance.  Imagine  that  zookeeper  is  the  first 
word  on  a  list  of,  say,  500  words,  and  that  its  rightful  place  in 
the  alphabetized  list  is  last.  On  the  first  pass  (gap  of  250),  it  is 
moved  250  places,  from  1  to  251.  On  the  next  pass  (gap  of 
125),  it  jumps  another  125.  After  just  two  comparisons,  it  has 
traveled  from  location  1  to  location  376.  In  an  ordinary  bubble 
sort,  it  would  take  375  comparisons— 375  passes  through  the 
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Routine 

cooo 

ZP 

$FB 

cooo 

ZQ 
AP 

$FD 

cooo 

$F7 

cooo 

$F9 
144 

CHROUT 
BUFFER 

SFFD2 
$6000 

cooo 

POINTR 

— 

$5000 

loop — to  move  that  far.  A  Shell  sort  of  a  medium-sized  list 
will  almost  always  beat  a  bubble  sort. 

The  following  program  is  written  in  reasonably  short 
modules  and  should  be  easy  to  follow.  One  technique  worth 
noting  occurs  at  $C069,  where  DBLINC  calls  the  routine 
INCZPZQ  directly  below  it.  The  INCZPZQ  routine  adds  1  to 
the  pointers  at  ZP  and  ZQ.  Because  the  DBLINC  (double  in- 
crement) routine  is  placed  above  the  routine  that  increments 
once,  the  routine  is  called  twice.  The  end  RTS  first  returns  to 
just  past  DBLINC,  where  the  routine  executes  a  second  time, 
after  which  the  RTS  returns  to  the  place  that  called  it. 


:  for  the  128,  use  other  available  zero-page 
;  locations  here 
:  and  here 

!  storage  area  where  the  words  will  be  loaded 
;  into  memory 

;  table  of  two-byte  pointers  to  the  words 
;  (maximum  2048  from  $5000  through  $5FFF) 
;  LDA  #0;  set  for  bank  15  (128  only) 
;  STA  $FF0O;  (128  only) 
;  read  a  file  from  disk 
;  LDA  "63;  set  for  bank  0  ( 
;  STA  $FF00;  (128  only) 
;  alphabetize  the  word  list 
;  LDA  wO;  set  for  bank  15  (128  onlv) 
;STA$FF00:  (128  only) 
;  print  it  out 


;  alphabetize  by  pointers 
;  make  a  table  of  pointers 
;  alphabetize  It 


;  clear  screen  character 
;  print  it 

;  point  ZP  to  POINTR  and  AP  to  BUFFER 
;  zero  the  counter 


;  low  byte  of  pointer  to  BUFFER 
;  store  it  in  the  table 
;  increment  ZP  and  ZQ 
;  high  byte 


up 

counter 


COOO  20 

17   CI  MAIN 

]SR 

READFTLE 

C003    20    OA  CO 

JSR 

ALPNTR 

C006  20 

92  CI 

JSR 

PR1NTM 

C009  60 

RTS 

COOA 

ALPNTR 

• 

C00A  20 

U  CO 

JSR 

MAKETL 

C00D  20 

8F  CO 

JSR 
RTS 

ALPHAB 

C010  60 

C011 

MAKETL 

m 

• 

C011  A9 

93 

LDA 

#147 

C01.S  20 

D2  FF 

JSR 

CHROUT 

C016  20 

58  CO 

JSR 

SETZPAP 

C019  AO 

00 

LDY 

#0 

C01B  8C 

12  CI 

STY 

TOTL 

C01E  8C 

13  CI 

STY 

TOTL+1 

C021  A5 

F7 

BIGLOP 

LDA 

AP 

C023  91 

FB 

STA 

(ZP),Y 

C025  20 

6C  CO 

JSR 

INCZPZQ 

C028  A5 

F8 

LDA 

AP+1 

C02A  91 

FB 

STA 

(ZP),Y 

6C  CO 

INCZPZQ 

86  CO 

PLUSTL 

C032  Bl 

F7 

LDA 

(AP).Y 
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COM  DO  10  8NE 

C036  A9  OD  LDA 

C038  20  D2  FF  JSR 

3B  A5  F7  LDA 

3D  8D  15  CI  STA 

COM  A5  F8  LDA 

C042  8D  16  CI  STA 

C045  60  RTS 

C046  A9  2A  MORE  LDA 

C048  20  D2  FF  JSR 

C04B  20  79  CO   SMALLP  JSR 

C04E  81  F7  LDA 

M  M  »  „„  BNE 

C052  20  79  CO  JSR 

C0S5  4C  21  CO  JMP 

C058  A9  00  SETZPAP  LDA 

COSA  85  F7  STA 

C05C  A9  60  LDA 

C05E  85  F8  STA 

C060  A9  00  LDA 

C062  85  FB  STA 

COW  A9  50  LDA 

C066  85  FC  STA 

C068  60  RTS 

C069  20  6C  CO   DBLINC      JSR  INCZPZQ 


MORE 
#13 

CHROUT 
AP 

BUFEND 
AP+1 
BUFEND  +  1 

#42 

CHROUT 
INCAPAQ 
<AP),Y 
SMALLP 
INCAPAQ 
BIGLOP 

#<BUFFER 
AP 

#>BUFFER 

#<POINTR 
ZP 

#>POINTR 
ZP+1 


C06C  E6  FB 

C06E  DO  02 

C070  E6  FC 

C072  E6  FD 

C074  DO  02 

C076  E6  FE 

C078  60 

C079  E6  F7 

C07B  DO  02 

C07D  E6  F8 

C07F  E6  F9 

C081  DO  02 

C083  E6  FA 

COBS  60 


INCZPZQ  INC 
BNE 
INC 

IPQ1  INC 
BNE 
INC 

IPQ2  RTS 

INCAPAQ  INC 
BNE 
INC 

IAQ1  INC 
BNE 
INC 

IAQ2  RTS 


EE 

J  EE  S  CI 
C08E  60 


CI  PLUSTL 


PLT1 


INC 
BNE 
INC 
RTS 


ZP 

IPQ1 

ZP+1 

ZQ 

DPQ2 

ZQ  +  1 


AP 

IAQ1 

AP+1 

AQ 

IAQ2 

AQ+1 


TOTL 

PLT1 

TOTL+1 


;  if  not  a  zero,  there  ar< 
;  print  a  RETURN 

;  save  the  last  painter 
;  into  BUFEND 
;  high  byte 


e  words 


;  take  an  asterisk 
;  print  it 

;  increment  AP  and  AQ 

;  check  the  next  one 

;  go  back  if  not  zero 

;  INC  the  pointer  (to  the  start 

;  and  go  back 

;  put  the  address  of  buffer 
;  into  AP 


,and  the  address  of  POINTR 
;  into  ZP 


;  call  it  < 
I  double  INC 
;  ZP  points  higher 


,  ... 

J  ZQ  too 

;  high  byte 

;  that's  all,  folks 

;  AP  points  higher 

;  it  AP  -  0,  INC  the  high  byte 
;  AQ  goes  up  by  1 

;  and  maybe  the  high  byte 
;  all  done 

:  add  1  to  the  total 

,100 


C08F  ALPHAB 

C08F  20    AO  CO  ALPLOP 

C092  20    BA  CO 

C095  AD  14  a 

COW  DO  F5 

C09A  20    FD  CO 

C09D  BO  FO 

C09F  60 

COAO  AO  00  INITPQ 

C0A2  8C   14  CI 

C0A5  20    58  CO 

C0A8  AD  12  CI 


JSR  INITPQ 

JSR  SHUFFLE 

LDA  FLIP 

BNE  ALPLOP 

JSR  HFTOTL 

BCS  ALPLOP 
RTS 

LDY  #0 

STY  FLIP 

JSR  SETZPAP 

LDA  TOTL 


;  The  main  alphabetizing  routine. 

i  set  up  the  initial  pointers  in  ZP  and  ZQ 

;  move  them  around  and  pat  them  in  order 

;  if  the  flag  is  set, 

;  go  back  and  do  it  again 

;  cut  TOTL  in  half 

;  if  carry  set,  do  more 

;  otherwise,  we're  done 


;  reset  the  FLIP  flag 

,-  set  ZP  to  POINTR  address 
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COAB  29  FE 

CO  AD  18 

COAE  65  FB 

COBO  85  FD 

COB2  AD  13 

COBS  65  FC 

C0B7  85  FE 

C0B9  SO 


a 


and  #«,unino 

CLC 

ADC  ZP 

STA  ZQ 

LDA  TOTL+1 

ADC  ZP+1 

STA  ZQ+1 
RTS 


COBA 
COBA 
COBC 


SHUFFLE 


COCO 
COC2 
C0C4 
COC5 
C0C7 
C0C9 
COCB 


AO  00 

Bl  FB 

«  FD 

85  F9 
C8 

Bl  FB 

85  F8 

Bl  FD 

85  FA 


COCD  88 

COCE  Bl  F9 

CODO  DO  01 

C0D2  60 

C0D3  Bl  F7 

C0D5  FO  20 

C0D7  Dl  F9 

C0D9  90  1C 

CODB  DO  04 
CODD  C8 

CODE  4C  D3  CO 


LDY  #0 

LDA  CZP),Y 

STA  AP 

LDA  (ZQ),Y 

STA  AQ 
INY 

LDA  (ZP),Y 

STA  AP+1 

LDA  (ZQ),Y 

STA  AQ+1 

DEY 

LDA  (AQ),Y 

BNE  KEEPON 

RTS 

KEEPON     LDA  (AP),Y 

BEQ  NOSWIT 

CMP  (AQ),Y 

bcc  noswit 

bne  switch 

1NY 


JMP  KEEPON 


8D  14  CI  SWITCH 
AO  00 


STA 
LDY 
LDA 
STA 
LDA 
STA 
INY 
LDA 
STA 
LDA 
STA 


FLIP 

#0 

AP 

(ZQ).Y 

AQ 

(ZP),Y 

AP+1 
(ZQ),Y 
AQ  +  1 
(ZP),Y 


C0F7  20  69  CO  NOSWIT  JSR  DBLINC 
COFA   4C    BA  CO  JMP  SHUFFLE 

COFD  4E    13    a    HFTOTL      LSR  TOTL+1 


C100  6E    12  CI 

C103  38 

C104  AD  13  CI 

C107  DO  08 

C109  AD  12  Cl 

C10C  C9  02 

C10E  BO  01 

C110  18 


ROR  TOTL 
SEC 

LDA  TOTL+1 

BNE  ENDHF 


;  round  dawn  to  nearest  even  number 

;  add  in  low  byte 

;  higher  pointer  in  ZQ 

;  add  the  high  byte 

;  to  ZP+1 

;  and  put  It  in  ZQ 

;  end  of  INTTPQ 


;  get  the  first  | 
;  and  a 
,-andt 


;  now 


;  back  to  zero 

;  look  for  the  zero  at  the  end  of  the  table 
;  if  the  first  character  of  (AQ)  isn't  zero,  we 
;  have  more 

;  else,  finish  this  routine 

;  found  a  zero  at  the  end  of  the  (shorter) 
;  string  from  AP 

,•  not  a  zero,  so  compare  to  the  AQ  string 

;  if  AP  <  AQ  no  switch 

;  if  not  equaL  AQ  <  AP 

;  else  they're  equal  and  we  check  some 

;  more 


;  store  a  nonzero  value  in  FLIP 

;  get  the  pointer  from  AP 
;  and  put  it  in  the  table 
;  same  for  AQ 
;  low  byte 

;  now  the  high  bytes 


and  fall  through 

double  increment  of  ZP  and  ZQ 


;  end  i 

';  shift  right  (cut  in  half)  the  high  byte  of 
;  TOTL 

;  and  the  low  byte 
;  set  carry  means  more 
j  is  there  a  high  byte? 
;  yes,  there's  more 
;  no,  check  the  low  b 
;  if  if  8  2  or  more 
;  we're  OK 
;  else  clear  < 
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cm  60 


cm  oo  oo 

cm  oo 

C115  00  00 

C117 
C117 
C117 
C117 
C117 
C117 
C117 
C117 

C117  A9  01 

C119  A2  08 

CI  IB  AO  02 

CI  ID  20    BA  FF 

C120  A9  0D 

C122  A2  85 

C124  AO  CI 

C126  20    BD  FF 

C129  20    CO  FF 

C12C  A2  01 

C12E  20    C6  FF 

CI  31  A9  00 

C133  85  FB 

C135  A9  60 

C137  85  FC 


ENDHF  RTS 


TOTL  .BYTE  0,0 
FLIP  .BYTE  0 

BUFEND      .BYTE  0,0 


;  a*  we  leave,  CLC 


READFILE 

SETLFS 

SETNAM 

OPEN 

CHKIN 

CHR1N 

CLOSE 

CLRCHN 


C139 

C13B 

C13E 

C140 

C142 

C144 

C146 

C148 

C14A 

CUB 

C14D 

C14F 

C151 

C153 

C155 

C157 

C15A 

CISC 

C15D 

C15F 

C161 

C164 

C167 


AO  00 
20  CF  FF 
C9  0D 
F0  26 
C9  20 
09 
20 
FB 


GETCHR 


90 
F0 
91 
C8 


A6  90 

Ft)  E8 

A9  00 

91  FB 

20  76  CI 

91  FB 
C8 

91  FB 

A9  01 

20  C3  FF 

20  CC  FF 
60 


CHKEND 


65466 
65469 
65472 
65478 


65484 


LDY 

JSR 

CMP 


BCC 

BEQ 

STA 

INY 

BNE 

INC 

LDX 

BEQ 

LDA 

STA 

ISR 

STA 

INY 

STA 

LDA 

)SR 

)SR 

RTS 


#<FNAME 

#>FNAME 

SETNAM 

OPEN 

#1 

CHKIN 

#<BUFFER 
ZP 

#>BUFFER 
ZP  +  1 

#0 

CHRIN 
#13 

DELIMIT 
#32 

CHKEND 


CHKEND 
ZP+1 


#0 

(ZP).Y 

ADDYZP 

(ZP),Y 

(ZP),Y 
#1 


CLRCHN 


C168  CO  00 
C16A   F0  E3 


C16C  A9  00 
C16E    91  FB 


DELIMIT     CPY  #0 


;  logical  file  number 

;  device  number  for  disk  drive 

i  secondary  address  (2-14  are  OK) 


;  logical  file  number 
;  set  for  Input 


j  set  up  a  pointer 


;  gel  a  character 
;  check  for  RETURN 

;  look  for  a  space 

;  eliminate  characters  0-31 


;  check  for  the  end 
!  increment  the  pointer 

i  If  equal,  get  more  characters 
:  close  li  up  with  three  z 
;  store  it 
:  reset  ZP 


;  close  the  file 

;  clear  channels 

;  the  end  of  the  routine 

;  is  this  the  first  character? 


LDA  #0 
STA 


;  Enter  this  routine  if  a  space  or  RETURN  is 
,-  found  after  a  word. 
:  zero  marks  the  division 
;  put  a  zero  in  memory 
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C170  20    76  CI 

C173  4C  4F  CI 

C176  38  ADDYZP 

C177  98 

C178  65  FB 

C17A  85  FB 

C17C  A9  00 

CI7E  A8 

C17F  65  FC 

C181  85  FC 

CI 83  98 

C184  60 

C185  41  53  43  FNAME 
C192 


JSR  ADDYZP 

IMP  CHKEND 

SEC 

TYA 

ADC  ZP 

STA  ZP 

LDA  #0 
TAY 

ADC  ZP+1 

STA  ZP+1 
TYA 
RTS 


ASC  "0:ASC11F1LE,S,R" 
FNLEN        =         '  -  FNAME 


C192    20  58    CO  PRINTM 

C195    AO  01 

Bl  FB 

85  F8 


15 

D2  FF  PINLOP 
79  CO 
F7 


,-  add  Y  to  ZP  (plus  1) 
j  and  check  for  end  of  file 

;  add  1  to  .Y 
;  put  it  in  .A 
;  add  to  ZP 
;  fixZP 

;  handle  the  high  byte 
;  put  zero  back  Into  .Y 


in  A 


le  to  read 


C197 
C199 

C19B  88 

C19C  Bl  FB 

C19E  85  F7 

C  I  AO  Bl  F7 

C1A2  F0 

C1A4  20 

C1A7  20 

C1AA  Bl 

C1AC  DO  F6 

C1AE  A9  0D 

C1B0  20    D2  FF 

C1B3  20    69  CO 

C1B6  4C  95  CI 


C1B9  60  QUIT1T  RTS 

See  also  ALSWAP,  SRCBIN. 


JSR 

LDY 

LDA 

STA 

DEY 

LDA 

STA 

LDA 

BEQ 

J5R 

|SR 

LDA 

BNE 

LDA 

JSR 

JSR 


SETZPAP 
#1 

(ZP),Y 
AP+1 

(ZP),Y 
AP 

(AP).Y 

QUITTT 

CHROUT 

INCAPAQ 

!AP),Y 

PINLOP 

#13 

CHROUT 
DBUNC 


;  set  ZP  to  point  to  POINTR  table 

;  get  the  POINTR  high  byte 
;  set  up  AP 

;  now  the  low  byte 

;  (and  .Y  holds  a  zero) 

:  is  the  first  character  a  zero? 

;  if  so,  we're  all  done 

;  no,  print  it 

;  AP  increases  by  1 

;  get  the  next  character 

;  until  there's  a  zero 

;  print  RETURN 

;  move  ZP  up  two  notches 
;  and  set  up  the  next  address 
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Name 

Alphabetize  a  list  by  swapping  strings  that  are  out  of  order 
Description 

Although  the  example  program  is  longer  than  most  others  in 
this  book,  it's  short  for  an  alphabetizing  routine.  (See  ALPNTR 
for  a  longer,  but  much  faster  routine.)  For  reasons  explained 
below,  ALSWAP  uses  a  relatively  slow  bubble-sort  algorithm, 
which  at  machine  language  speeds  is  fast  enough  if  the  list  to 
be  sorted  has  either  fixed-length  records  or  a  small-to-medium 
number  of  variable-length  records. 

Prototype 

L  Count  the  number  of  records.  Each  word  is  a  record  in  the 
example  program. 

2.  Start  by  setting  two  zero-page  pointers:  one  pointer  (ZP)  to 
the  first  record  and  another  (ZQ)  to  the  second. 

3.  Decrement  the  counter  for  number  of  records.  If  it's  zero,  exit. 

4.  Otherwise,  copy  the  counter  to  a  second  variable  (INCOUNT). 

5.  Compare  the  two  records. 

6.  If  they're  out  of  place,  swap  them. 

7.  Continue  the  inner  loop  by  decrementing  INCOUNT  and 
incrementing  the  pointers  to  the  two  records.  Branch  back 
to  step  5. 

8.  When  the  inner  loop  counter  INCOUNT  reaches  zero, 
branch  to  step  3. 

Explanation 

The  strings  in  the  example  program  were  selected  randomly 
from  a  book  of  folktales.  Each  is  terminated  by  a  zero  byte. 
The  three  primary  subroutines  in  the  framing  routine  are 
COUNTEM,  ALSWAP,  and  PRINTEM. 

COUNTEM  cruises  through  memory,  finding  the  zero  ter- 
minators and  generally  counting  the  number  of  words  in  the 
list.  When  the  number  of  words  is  known,  ALSWAP  alphabet- 
izes them. 

Two  zero-page  pointers  hold  the  addresses  of  two  neigh- 
boring strings.  Start  by  comparing  the  first  to  the  second.  Then 
compare  the  second  to  the  third,  and  so  on. 

The  COMPAR  subroutine  ($C08F-$C0AA)  makes  a  de- 
cision about  the  two  strings'  positions.  If  they're  in  the  right 
order,  the  carry  flag  is  cleared  and  the  subroutine  ends.  If  not, 
carry  is  set.  Back  in  the  main  alphabetizing  routine,  a  BCC 
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skips  ahead  if  the  words  are  in  their  proper  places.  Otherwise, 
the  strings  switch  positions. 

The  SWITCH  routine  handles  the  trading  of  two  strings.  If 
the  two  strings  are  next  to  each  other,  it's  relatively  easy  to 
make  them  trade  places;  "THERE@HI@"  takes  up  the  same 
amount  of  memory  as  "HI@THERE@"  (the  @s  represent  the 
zero  terminators).  If  the  two  strings  "THERE"  and  "HI"  oc- 
cupy different  parts  of  the  list,  a  variety  of  time-wasting  mem- 
ory moves  are  necessary  just  to  get  the  words  in  the  right 
places. 

After  the  comparison  (COMPAR)  and  the  trade  (SWITCH), 
we  check  the  next  two  strings,  until  the  inner  loop  has  fin- 
ished. The  outer  loop  counts  backward  to  1  (from  one  less 
than  the  number  of  items  on  the  list). 

The  alphabetizing  routine  ends,  and  the  PRINTEM  rou- 
tine takes  over,  listing  the  words  in  order. 


ZP 

= 

ZQ 

— 

cooo 

CHROUT 

= 

cooo 

20 

OA 

CO 

|SR 

C003 

20 

32 

CO 

JSR 

C006 

20 

EB 

CO 

C009 

60 

COOA 

AO 

00 

COUNTEM 

l-DY 

CMC 

BC 

IB 

CI 

STY 

COOF 

8C 

1C 

CI 

STY 

C012 

20 

0E 

CI 

]SR 

C015 

Bl 

FB 

CNIOOP 

LDA 

C017 

DO 

01 

C019 

60 

RTS 

EE  ID 

DO  03 

CI 

CNMORE 

INC 
BNE 

COIF 

EE 

1C 

ct 

FIND0 

INC 

C022 

C8 

INY 

C023 

DO 

02 

BNE 

C025 

E6 

FC 

INC 

C027 

Bl 

FB 

LOOKMORE 

LDA 

C029 

DO 

F7 

BNE 

C02B  C8 

INY 

C02C 

DO  E7 

BNE 

C030 

FC 
E3 

M 
BNE 

20  0E  CI  AtUftP  JSR 

20  58  CO  JSR 

C038    20  77  CO  ALINLP  JSR 

C03B    20  80  CO  JSR 

C03E    20  8F  CO  JSR 

C041    90  03  BCC 


$FB 
$FD 
$FFD2 

COUNTEM 

ALSWAP 

PRINTEM 


*0 

COUNTER 
COUNTER +1 
BUF2ZP 
(ZP),Y 


COUNTER 
FIND0 

COUNTER +  1 

LOOKMORE 
ZP  +  1 
(ZP),Y 


CNLOOP 

ZP+1 

CNLOOP 


;  count  the  number  ol  words 
;  alphabetize  by  swapping 
;  print  them  in  order 


i  first  zero  out  the  counter 
i  low  byte 
;  high  byte 

;  copy  the  address  of  buffer  to  ZP 

|  get  a  first  character 

I  if  <•'«  "ot  zero,  continue 

;  done 

j  counter  up  one 

:  high-byte  increments 
;  increase  the  .Y  counter 
:  it  Y  <>  0,  continue 
;  else,  add  256  to  ZP 
;t  the  next  character 


;  branch  always 


;  ALSWAP— the  main  routine  for 
;  alphabetizing. 

BUF2ZP  ;  >et  up  ZP  and  ZQ  pointers 

CNDOWN  f  counter  down  by  one 

ZPZQ  ;  copy  ZP  to  ZQ 

FIN  WORD  ;  find  the  next  word  for  ZQ 

COMPAR  ;  compare  the  two  words 

SKIP  ;  If  CC,  leave  them  alone 
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C043  20  AB  CO  JSR 

C046  CE  ID  CI   SKIP  DEC 

C049  DO  ED  BNE 

C04B  CE  IE  CI  DEC 

C04E  AD  IE  O  LDA 

C051  C9  FF  CMP 

C053  DO  E3  BNE 

C055  4C  32  CO  JMP 


CNDOWN  DEC 


DEC 
LDA 
CMP 
BNE 
PIA 
PLA 


SWITCH 
INCOUNT 
AL1NLP 
INCOUNT+1 

INCOUNT+I 
#255 
ALINLP 
ALUTLP 

COUNTER 
COPYUI 
COUNTER +1 
COUNTER+1 


C077  A5  FB 

C079  85  FD 

C07B  AS  FC 

C07D  85  FE 

C07F  60 

C080 

C080  AO  00 

Bl  FD 

E6  FD 

C086  DO  02 

C086  E6  FE 

C08A  C9  00 

C08C  DO  F4 

C08E  60 


COPYUI 


ZPZQ 


LDA 
STA 

STA 
RTS 


;  else,  switch  them 

;  are  we  done? 

;  no,  continue  the  inner  loop 

;  else,  INCOUNT  =  0,  so  check  tl 

;byte 

;  255  means  we're  done 
;  if  not  255,  continue 
;  go  back  (or  outer  loop 

;  counter  down  by  one 
;  if  not  zero,  we're  OK 
;  DEC  the  high  byte 
;  check  it 

;  if  255,  we're  all  done 
;  if  not,  continue 

;  trash  the  return  address 

;  return  to  the  previous  routine 


INCOUNT 

Kl  ;  copy  COUNTER  to  INCOUNT 


COSF    AO  00 

COM    Bl  FB 

C093    F0  OA 

C09S    Dl  FD 

C097    90  06 

C099    DO  OE 
C09B  C8 

C09C   4C  91  CO 

C09F    A5  FD 

C0A1   85  FB 

C0A3  A5  FE 

C0A5  85  FC 
C0A7  18 
C0A8  60 

C0A9  38 
C0AA  60 

C0AB  AO  00 
C0AD  38 

C0AE  Bl  FB 

COBO    DO  01 


LDA  ZP 

STA  ZQ 

IDA  ZP+1 

STA  ZQ+1 
RTS 


FINWORD  - 

IDY  #0 

FINLP        LDA  (ZQ),Y 

INC  ZQ 

BNE  CHECKQ 

INC  ZQ+1 

CHECKQ     CMP  #0 

BNE  FINLP 
RTS 

COMPAR 
COMLP 

CMP  (ZQ),Y 

BCC  RIGHT 

BNE  WRONG 
tNY 

JMP  COMLP 


RIGHT        LDA  ZQ 
STA  ZP 
LDA  ZQ+1 
STA  ZP+1 
CLC 
RTS 

WRONG  SEC 
RTS 

SWITCH      LDY  #0 
SEC 


SWILP 


LDA  (ZP),Y 
BNE  AHEAD 


; copy  ZP 

r  «0  ZQ 

;  and  the  high  byte 
;  as  well 


,-  finds  the  next  word 

;  index  for  ZQ 

;  get  a  character 

;  the  counter  must  go  forward 

;  handle  the  high  byte 
;  check  the  character  we  get 
;  if  it  isn't  zero,  go  back 
;  but  if  it  is,  we're  done 

• 

;  get  a  character  from  the  first  word 
;  the  first  Is  shorter,  so  quit 
;  compare  it 

;  if  ZP<ZQ  they're  right 

;  if  not  equal,  they're  in  the  wrong  order 

;  else  try  for  more 


;  set  up  ZP  for  the  next  word 
;  copy  low  byte 
;  and  also 
1  the  high 

f  a  flag  that  means  ifs  OK 
;  and  we're  done  here 

;  carry  set  —  a  problem 

;  now  SWITCH  will  be  caUed 


j  carry  should  be  set,  but  we'll  make 
;  if  ifs  not  zero 
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C0B2  18 

C0B3    99    7D  CI  AHEAD 

C0B6   Bl  FD 

COBS    91  FB 

COBA  FO  03 

COBC  C8 

COBD  DO  BF 

COBF    90    11  SWI2 

C0C1    8C   IF  CI 

C0C4  C8 

COCS    Bl    FB  LOOP2 

C0C7   99    7D  CI 

COCA  FO  03 

COCC  C8 

COCD  DO  F6 

COCF  AC  IF   CI  LOTV 

C0D2  C8  COPY2 

C0D3  98 
C0D4  18 
C0D5  65  FB 
C0D7  85  FB 
C0D9  A9  00 
CODB  A8 
CODC  65  FC 
CODE  85  FC 

COEO  B9  7D  O  t-ASTLP 

C0E3  91  FB 

C0E5  DO  01 

C0E7  60 

C0E8  C8  INN  MY 

C0E9  DO  F5 


CLC 

STA  TEMBUF.Y 

IDA  (ZQ),Y 

STA  (ZP),Y 

BEQ  SWI2 
INY 

BNE  SWILP 

STY  TEMPY 
INY 

LDA  (ZP),Y 

STA  TEMBUF.Y 

BEQ  LOTY 

BNE  LOOP2 

LDY  TEMPY 
INY 

TYA 
CLC 

ADC  ZP 

STA  ZP 

LDA  #0 

TAY 

ADC  ZP+1 

STA  ZP+1 

LDA  TEMBUF.Y 

STA  (ZP),Y 

BNE  INNNY 
RTS 
INY 

BNE  LASTLP 


; 


COEB  20  OE    CI  PRINTEM    JSR  BUF2ZP 

COEE  AO  00  LDY  #0 

COFO  Bl  FB  FIRST         LDA  (ZP).Y 

C0F2  DO  01  BNE  NOT  DONE 

C0F4  60  RTS 

COB  20  D2  FF  NOTDONE  JSR  CHROUT 


if  we  get  a  zero,  dear  carry  to  mark  the 
end  of  the  first  word 
save  the  word  from  ZP 
copy  ZQ 
to  ZP 

the  end  of  ZQ  is  a  zero 

otherwise,  keep  going 

branch  back  (always) 

if  carry  clear,  the  first  word  was  shorter 


,  get  more  cnaracters 


;  if  not,  keep  going 
;  get  Y  back 
;  INC  .Y  to  point  one  past  the  current 
;byte 

,-  put  it  in  .A 

;  add  it  to  ZP 

;  and  store  It 

;  do  the  high  byte,  too 

;  set  up  Y  for  the  next  loop 

;  add  zero  plus  carry 

;  store  it 

;  Now  ZP  points  to  a  new  location. 


;  if  not  zero,  continue 
!  we're  done 
;  or  we're  not 
,-  and  loop  back 

; 


;  get  the  first  character 

;  if  its  t  zero,  finish  this  routine 


NOTEQ 


C109 
C10B 


DO  02 

E6  FC 

Bl  FB 

DO  F4 

A9  0D 

20  D2  FF 
C8 

DO  02 

E6  FC 

4C  F0    CO  ZIZT 


NOTEQ 

ZP+1 

(ZP).Y 

NOTDONE 

013 

CHROUT 

ZIZL 

ZP+1 

FIRST 


;  take  care  of  the  high  byte 
l  get  more  characters 

;  print  a  return 


C10E  A9  20 

C110  85  FB 

C112  85  FD 

C114  A9  CI 

C116  85  FC 

C118  85  FE 

C11A  60 


BUF2ZP 


#<BUFFER 

Fo 

#>BUFFER 

ZP+1 

ZQ+1 


;  set  up  a  pointer  to  BUFFER 
;  low  byte  of  BUFFER  to  ZP 
;  also  in  ZQ 


cub  oo  oo 

CI  ID  00  00 
C11F  00 


COUNTER  .BYTE  0,0 
INCOUNT  .BYTE  0.0 
TEMPY       .BYTE  0 
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C120  41 

4E    44  BUFFER 

.ASC 

"AND" 

C123  00 

.BYTE 

o 

C124  43 

4C  45 

.ASC 

"CI  FAR" 

C129  00 

.BYTE 

o 

C12A  53 

54  55 

ASC 

"STUMPS" 

O30  00 

.BYTE 

o 

G131  57 
CI 33  00 

45 

.ASC 
-BYTE 

"WE" 
n 

C134  46 

4F  4C 

-ASC 

"FOLKS" 

C139  00 

.BYTE 

n 

V 

C13A  54 

48  45 

.ASC 

"THEY" 

C13E  00 

.BYTE 

o 

C13F  54 

48  45 

.ASC 

"THEN" 

C143  00 

.BYTE 

o 

C144  52 

45  4D 

"REMEMBER" 

RYTF 
"lie 

.ASC 

o 

C14D  59 

4F  55 

"YOU" 

C150  00 

-BYTE 

o 

C151  53 

45  45 

.ASC 

"SEEN" 

CI 55  00 

.BYTE 

o 

C156  54 

4F 

!asc 

"TO" 

C158  00 

-BYTE 

C159  54 
C15F  00 

57  45 

"TWFNTY" 

.BYTE 

o 

C160  47 

45  4E 

"GENERALLY" 

- 

0 

C169  00 

CI  6 A  44 

4F  47 

.ASC 

"DOG" 

C16D  00 

-BYTE 

0 

C16E  41 

42  4F 

-ASC 

"ABOUT" 

CI  73  00 

BYTE 

0 

C174  53 

54  52 

BYTE 

"STRIPE" 

St 

0 

00 

0,0 

C17D 

TEMBUF 

■ 

See  also  ALPNTR,  SRCBIN. 
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Name 

Animation:  alternating  character  sets 


This  is  one  of  the  easier  ways  to  animate  characters  on  the  40- 
column  screen  of  the  64  or  128.  If  you  press  SHIFT  and  the 
Commodore  key  at  the  same  time,  the  character  set  will  switch 
between  uppercase/graphics  mode  and  lowercase/uppercase 
mode.  By  alternately  printing  CHR$(14)  and  CHR$(142)(  you 
can  cause  any  or  all  of  the  characters  on  the  screen  to 


Prototype 

1.  Check  a  timer  (the  jiffy  clock,  in  this  example). 

2.  If  enough  time  has  passed,  start  at  step  3  below.  Otherwise, 
exit  the  routine. 

3.  Add  a  constant  to  the  timer  and  store  it  for  the  next  time. 

4.  Load  .A  with  the  FLIP  value,  which  is  either  14  or  142. 
Print  it  and  then,  using  EOR,  change  it  to  the  other  value. 

5.  Move  characters  that  should  be  in  motion. 


cooo 


Although  the  example  provides  a  lively  screen,  there's  really 
no  movement  of  characters  at  all.  The  alternating  M's  and  W's 


are  the  effect  we're  looking  for— animation  via  character  set 
flipping.  The  character  that  flips  between  C  and  a  dash  is  an- 
other by-product  of  this  technique.  It  seems  to  move  from  left 
to  right,  but  it's  not  actually  being  placed  and  erased.  The  line 
where  it  moves  contains  a  series  of  40  C  characters,  but  at  any 
given  point,  39  of  them  are  black,  which  is  the  background 
color.  The  apparent  motion  comes  from  a  different  value  being 
stored  into  color  memory. 

There  aren't  a  lot  of  interesting  dual  characters  in  the  two 
built-in  character  sets,  but  if  you  define  your  own  custom 
characters,  you  can  achieve  some  very  interesting  effects. 


COLMEM 


GETIN 


DO 


COOO  A9  00 

C002  8D  21 

COOS  A9  05 

C007  20  D2  FF 

C00A  A9  93 


$A2 

;  LSB  of  the  jiffy  clock 

55296 

;  color  memory 

n  u  n 

1024 

SCRMEM+i 

;  screen  memory 

10 

- 

$FFD2 
SFFE4 

;  KemaJ  routines 

LDA 

#0 

STA 

BKGKND 

;  background  color  =■  black 

LDA 

#5 

;  ASCII  code  for  white 

ISR 

CHROLT 

;  print  it 

LDA 

•147 

;  ASCII  for  clear  screen 
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ANIMAT 


COOC  20  D2  FF 

C0OF  AO  00 

C011  B9  71    CO  PRLOOP 

C014  FO  06 

C016  20  D2  FF 

C019  C8 

C01A  DO  F5 

C01C  20  28    CO  PROUT 

COIF  20  3D  CO  CONT 

C022  20  E4  FF 

C025  FO  F8 

C027  60 

C028  AO  00  SETUP 

C02A  8C  70  CO 


C02D  A9  00 

C02F  99  50  D8 

C032  A9  43 

C034  99  50  04 

C037  C8 

C038  CO  28 

C03A  DO  Fl 

C03C  60 


SETLOP 


ISR 
LDY 
LDA 
BEQ 


BNE 

ISR 

ISR 

JSR 

BEQ 

RTS 


CHROUT 
#0 

STRING.Y 

PROUT 

CHROUT 

PRLOOP 

SETUP 

ANIMAT 

CETIN 

CONT 


LDY 
STY 
LDA 
STA 
LDA 


»0 

POSITION 
#0 

L1NCOL.Y 
*67 

STA  LINSCR.Y 
INY 


CPY 
BNE 
RTS 


SETLOP 


;  print  it,  also 


;  if  zero,  quit 

;  print  it 

;  count  up 

;  branch  back 

t  set  up  the  animation 

;  animate 

;  get  a  key 

i  if  no  key,  continue 


;  start  at  zero 
:  color  for  black 
j  store  in  < 
j  shifted  C  s 

;  count  forward 

;  to  39 

;  loop  back 


C03D 

C03D  AD  92  CO 

C040  C5  A2 

C042  FO  01 

C044  60 

C045  18 

C046  69  OA 

C048  8D  92  CO 

C04B  AD  93  CO 

C04E  20  D2  FF 

C0S1  49  80 

C0S3  8D  93  CO 

C0S6  10  00 


ANIMAT  = 

LDA 
CMP 
BEQ 
RTS 

MOVEM  CLC 
ADC 
STA 
LDA 
JSR 
EOR 
STA 
BPL 


C058  AC  70  CO 

C05B  A9  00 

C05D  99  50  D8 

C060  C8 

C061  CO  28 

C063  DO  02 

C065  AO  00 

C067  8C  70  CO 

C06A  A9  01 

C06C  99  50  D8 

C06F  60 


AHEAD 


WHITE 


TIMER 
MOVEM 


#10 

TIMER 

FLIP 

CHROUT 
#$80 


AHEAD 


LDY  POSITION 

LDA  #0 

STA  LINCOL,Y 

INY 

CPY  #40 

BNE  WHITE 

LDY  #0 

STY  POSITION 

LDA  #1 

STA  LDMCOL,Y 

RTS 


)  check  the  timet 
;  Is  it  time  yet? 
;  yes.  move  ahead 
;  oi  her  wise,  go  back 

;  -A  already  holds  the  current  jiffy  value 
;  add  ten  jiffies  (1/6  second) 
;  remember  it 
;  either  14  or  142 
;  print  it 

;  change  it  to  the  other  one  (14  or  142) 

;  and  save  it 

;  if  It's  14,  move  ahead 

;  RTS;  else,  quit  (optional) 

1 

;  where  Is  the  character? 

I  black 

:  clear  it  out 

;  move  ahead  one  space 

;  is  it  40  yet? 

;no 

;  yes,  mike  it  zero 
;  remember  .Y 
,-  the  color  code  for  white 
;  store  it 


C070 
C071 
C078 
C080 
C08I 
C08A 
C09I 


57 
0D 
OD 
OD 
4D 
00 


POSITION  .BYTE  0 
57  57  STRING  .ASC  "WWWWWWW" 
.BYTE 
.BYTE 
.BYTE 
•ASC 
BYTE 
BYTE 


Bl  Bl 


FLIP 


13,177,177,177,177,177,177.177 
13 

1 3, 1 78. 178, 1 78. 1 78, 1 78. 1 78, 1 78, 1 3 
"MMMMMMM" 
0 
0 


.BYTE  14 


See  also  CHRDEF,  CUST80. 
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B2SNIN 


Name 

Convert  a  signed  byte  value  to  a  signed  integer  value 
Description 

This  very  short  routine  changes  an  8-bit  signed  number  into  a 
16-bit  signed  number. 

Prototype 

1.  Copy  the  original  byte  to  the  low  byte  of  the  integer. 

2.  If  the  sign  bit  (bit  7)  is  set,  store  an  $FF  to  the  high  byte. 

3.  If  bit  7  is  clear,  store  a  $00  to  the  high  byte. 

Explanation 

A  memory  location  can  hold  only  256  possible  numbers.  In 
unsigned  arithmetic,  the  numbers  are  0-255.  Signed  arithmetic 
also  allows  256  numbers,  but  they  range  from  —128  to  +127. 
If  that  sounds  confusing,  think  of  a  clock  with  the  numbers 
1-12.  Add  one  hour  to  3:00,  and  the  clock  shows  4:00.  But  if 
you  add  ten  hours  to  3:00,  the  result  is  1:00,  because  there  are 
no  hours  beyond  12:00.  In  a  sense,  adding  10  to  3:00  is  the 
same  as  subtracting  2  from  3:00,  so  10  =  —  2  when  you're 
using  a  clock.  In  signed  arithmetic,  a  255  is  the  same  as  —1,  a 
254  is  —2,  and  so  on.  If  a  memory  location  holds  a  zero  and 
you  use  the  DECrement  instruction,  it  will  now  hold  an  $FF, 
which  can  be  called  a  255  (unsigned)  or  a  —  1  (signed). 

Bit  7  indicates  whether  a  number  is  positive  (0)  or  negative 
(1).  The  numbers  0-127  (%00000000-%011 11111)  all  have  a  0 
in  the  high  bit.  Likewise,  the  numbers  from  — 128  through  —  1 
(%10000000-%11111111)  contain  a  1  in  the  sign  bit. 

Two-byte  signed  integer  values  follow  the  same  rules,  but 
the  numbers  fall  between  -32768  and  32767  and  bit  15  is  the 
sign  bit.  The  number  -1  is  $FFFF  instead  of  $FF,  and  the  num- 
ber +1  is  $0001  instead  of  $01.  Thus,  to  make  a  positive  byte 
into  a  positive  two-byte  integer,  we  have  to  add  a  $00  as  the 
high  byte.  For  negative  bytes,  an  $FF  becomes  the  high  byte. 

The  example  routine  copies  the  original  value  to  the  low 
byte  of  the  integer.  It  then  checks  the  sign  bit  and  puts  the 
appropriate  value  ($00  or  $FF)  into  the  high  byte  of  the  integer. 


Routine 

C0OO    AD  IS 

CO  B2SN 

UN  LDA 

NUMBER 

;  the  byte  we're  copying 

C003    8D  16 

CO 

STA 

INTGER 

;  into  the  low  byte  of  INTGER 

C006  2A 

ROL 

;  check  the  sign  bit 

C007    B0  06 

BCS 

NEGATV 

;  branch  ahead  if  negative 

C009    A9  00 

LDA 

#%00000000 

;  it's  positive 

C00B    8D  17 

CO 

STA 

INTGER +1 

;  so  clear  the  high  byte 
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B2SMN 


60 


C00F    A9  FF  NEGATV 
C011    8D   17  CO 
COM  60 


C015  09 
C016  00 


NUMBER 
1NTGER 


RTS 
LDA 


DVTGER  +  l 


.BYTE  09 
-BYTE  00.00 


;  and  we're  done 

;  the  number  is  negative 

;  and  we"re  done 


See  also  B2UNIN,  BCD2BY,  CB2BCD,  CFP2I,  CI2FP,  CNVBFP. 
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B2UNIN 


Name 

Convert  a  byte  value  (8  bits)  to  an  t 
bits) 

Description 

This  is  a  very  simple  routine  that  adds  a  high  byte  of  $00  to  a 
byte  value  to  make  it  an  unsigned  integer  value. 

Prototype 

1 .  Copy  the  original  byte  to  the  low  byte  of  the  integer. 

2.  Put  a  zero  in  the  high  byte  of  the  integer. 

Explanation 

Bytes,  by  their  very  nature,  can  contain  only  the  numbers 
0-255  ($00-$FF).  By  combining  two  bytes  to  represent  a  single 
number,  you  can  extend  the  range  to  0-65535  ($0000-$FFFF). 
On  the  64  and  128,  the  convention  is  to  put  the  low  byte  in 
front  of  the  high  byte.  The  number  $A012,  for  example,  would 
be  stored  in  memory  as  18  ($12)  followed  by  160  ($A0). 

This  routine  merely  copies  the  byte  to  the  first  position  of 
the  integer  and  then  tacks  on  a  zero  for  the  high  byte. 

Routine 

C000    AD  DC   CO  B2UNDM      LDA     NUMBER         ;  the  byte  we're  copying 
C003    8D  0D  CO  STA     INTGER         ;  into  the  low  byte  of  Integer 

C006    A9  00  LDA    #0  ;  If  it's  unsigned,  always  a  zero 

COOS    8D  0E    CO  STA     INTGER +1      ;  the  high  byte 

C0OB    60  RTS 

;  data  bytes 

C00C  09  NUMBER     .BYTE  09 

C00D  00    00  INTGER       BYTE  00,00 

See  also  B2SNIN,  BCD2BY,  CB2BCD,  CFP2I,  CI2FP,  CNVBFP. 
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BCD2AX 


Name 

Convert  a  binary-coded  decimal  value  to  ASCII  characters 
Description 

Although  the  processor  has  a  decimal  flag  and  can  perform 
math  in  binary-coded  decimal  (BCD),  this  mode  is  rarely  used 
on  Commodore  computers.  The  CIA  chips'  time-of-day  clocks 
keep  time  in  BCD  format,  but  that's  about  it. 

If  you  decide  there's  some  merit  in  using  BCD  math,  how- 
ever, this  routine  will  convert  a  single  BCD  byte  into  two 
ASCII  numbers.  Its  construction  closely  resembles  the  conver- 
sion routine  that  handles  hexadecimal. 

Prototype 

1.  Enter  with  the  number  to  be  converted  in  the  accumulator. 

2.  Save  it  temporarily. 

3.  AND  with  the  number  $0F  and  add  48  for  the  low  nybble 

4.  Transfer  to  .X. 

5.  Restore  the  previous  value. 

6.  Repeat  the  above  steps,  but  rotate  right  four  times  with  the 
carry  flag  set  (or  cleared)  as  needed  to  add  48. 

7.  Exit  with  the  high  nybble  in  .A,  the  low  in  .X. 

Explanation 

The  high  and  low  nybbles  of  a  byte  are  the  top  four  bits  and 
the  bottom  four,  respectively.  A  nybble  is  half  a  byte.  Nor- 
mally, a  nybble  can  have  16  possible  settings,  from  %0000 
through  %1111.  Given  two  nybbles,  a  byte  can  hold  256  pos- 
sible values  (16  X  16).  Not  so  in  decimal  mode.  If  you  set  the 
decimal  flag  (with  the  SED  operation),  nybbles  are  suddenly 
limited  to  10  values,  from  $0  through  $9.  That  means  bytes 
can  hold  only  100  different  numbers  (10  X  10),  from  $00 
through  $99. 

Such  mathematical  operations  as  addition  (ADC)  and 
subtraction  (SBC)  are  also  affected  by  the  decimal  flag.  Sud- 
denly, $35  plus  $49  is  $84  (in  decimal  mode)  instead  of  $7E 
(in  nondecimal  mode).  The  number  $2001  in  hex  means  8193. 
But  in  decimal  mode,  $2001  means,  well,  2001.  For  those  of  us 
who  count  with  ten  fingers,  decimal  mode  is  quite  convenient. 

If  you  need  to  print  out  a  BCD  number,  this  routine  will 
do  the  trick.  It  basically  isolates  the  nybbles  and  adds  48  to 
convert  one  byte  into  two  ASCII  characters,  which  can  then  be 
printed. 


108 


BCD2AX 


Routine 


COOO  CHROUT     =  $FFD2 

C00O  A9  93  LDA  #$93 

C0D2  20  OD  CO  JSR 

C005  20   D2  FF  |SR 

CO08  8A  TXA 

C009  20    D2  FF  JSR  CHROUT 

COOC  60  RTS 


; convert  $93 

;  to  the  characters  9  and  3 

;print9 

;  print  3 


COOD  D8 

COOE  48 

COOF  29  OF 

C011  09  30 

C013  AA 

C014  68 

C015  29  FO 

C017  38 

C018  6A 

COW  38 

C01A  6A 

C01B  4A 

C01C  4A 

C01D  60 


BCD2AX 


CLD 
PHA 
AND 
ORA 

TAX 

PIA 
AND 

ROR 

SEC 

ROR 

LSR 

LSR 

RTS 


#%00001111 
#48 


#%11 110000 


;  make  sure  decimal  mode  is  off 

;  save  the  value 

;  low  nybble  first 

;  add  48  (or  ASCII 

;  result  in  .X  (or  you  can  store  it  in 

;  memory) 

;  gel  back  the  original  value 
;  high  nybble 

,-  what  will  become  bit  5  (16)? 
;  move  it  right  one 
;  bit  6  (32) 
;  right  again 

;  and  shift  right  with  zeros 

j  done  (high  nybble  in  .A.  low  in  .X) 


See  also  CAS2IN,  CB2ASC,  CB2HEX,  CI2HEX. 
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BCD2BY 


Name 


Convert  binary-coded  dc  imal  (BCD)  to  a  byte  value 


Description 

If  you  need  to  convert  a  binary-coded  decimal  (BCD)  number 
to  a  standard  byte  value,  this  routine  will  do  it. 

Prototype 

1.  Store  the  value  temporarily  in  memory. 

2.  Get  the  high  nybble  by  masking  off  the  low  nybble. 

3.  Shift  the  high  nybble  right  once  (the  nybble  value  times 
eight).  Store  it  in  the  RESULT  byte. 

4.  Shift  it  right  twice  more  (nybble  times  two).  Add  the  num- 
ber to  RESULT. 

5.  Reload  the  original  value. 

6.  Mask  off  the  high  nybble. 

7.  Add  the  low  nybble  to  RESULT. 

Explanation 

The  SED  (SEt  Decimal)  operation  puts  the  64  and  128  into 
decimal  mode,  where  the  accumulator  can  hold  only  100  val- 
ues instead  of  256.  Each  nybble  counts  from  $0  through  $9  in- 
stead of  $0  through  $F.  Thus,  if  you  add  $03  to  $19,  the  result 
is  $22  instead  of  $1C  (because  3  plus  19  is  22  in  decimal 
arithmetic). 

Converting  a  BCD  number  to  a  normal  byte  value  means 
changing  a  number  like  $71  to  $47,  because  71  in  decimal  is 
$47  in  hexadecimal.  The  ten's  place  of  $71  is  the  high  nybble, 
$7.  If  the  low  byte  is  masked  off,  the  number  becomes  $70 
(decimal  112).  Shift  it  right  once  and  it  becomes  $38  (decimal 
56),  which  is  8  X  7.  That  number  gets  stored  in  memory.  Shift 
it  right  two  more  times,  and  $38  is  changed  to  $0E  (decimal 
14),  which  is  two  2X7.  Add  that  to  the  first  number,  and  the 
result  is  decimal  70,  because  (8  X  7)  +  (2  X  7)  is  the  same  as 
10  X  7.  This  operation  changes  $70  (112)  to  70  ($46).  The 
next  step  is  to  add  in  the  low  nybble,  the  one's  place  in  both 
decimal  and  hexadecimal. 


Routine 


cooo 
cooo 


CHROUT  = 
UNPRT  = 


$FH>2 
$BDCD 


:  LINPRT  -  S6E32  on  the  128 


COOO  AO  00  FRAME 

C002  8C  IF  CO  LOOP 

C005  B9  20  CO 

COOS  20  25  CO 

C00B  AA 


;  get  a  BCD  value 
;  convert  it 
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BCD2BY 


COOC  A9  00 

CODE  20  CD  BD 

C011  A9  OD 

CO  13  20  D2  FF 

C016  AC  IF  CO 

C019  C8 

C01A  CO  05 

C01C  DO  E4 


C020  10    01    99  LKSTP 

C02S  D8  BCD2BY 

C026  8D  45  CO 

C029  29  FO 

C02B  4A 

C02C  8D  46  CO 

C02F  4A 

COM  4A 

C031  18 

C032  6D  46  CO 

C035  8D  46  CO 

C038  AD  45  CO 

C03B  29  OF 

C03D  18 

C03E  6D  46  CO 

C041  8D  46  CO 

C044  60 


C045  00 
C046  00 


TEMPA 
RESULT 


LDA  #0 

JSR  LINPRT 

LDA  S13 

JSR  CHROUT 


INY 

CPY  #5 

BNE  LOOP 
RTS 

.BYTE  0 

.BYTE  : 

CLD 

STA  TEMPA 
AND  #%1U10000 
LSR 

STA  RESULT 

LSR 

LSR 

CLC 

ADC  RESULT 
STA  RESULT 
LDA  TEMPA 
AND  Mffl 
CLC 

RTS 

.BYTE  0 
.BYTE  0 


;  print  it 

;  and  a  RETURN 
;  gel .Y  back 
;  INC  it 
;  is  it  S  yet? 
;  no.  go  back 


,-  just  to  be  sure  that  decimal  mode  isn't  on 

;  save  the  number 

j  get  the  high  nybble 

;  shift  right  (nybble  X  161/2  Is  nybble  X  8 

;  start  preparing  the  result 

'  nybble  X2 

;  now  add  nybble  X  8  and  nybble  X  2 
;  which  is  nybble  X  (8  +  2) 
;  and  we're  almost  done 
;  now  the  low  nybble 
;  get  the  four  bits 

;  add  it 

I  store  it,  for  whatever  reason 
;  all  done 


See  also  B2SNIN,  B2UNIN,  CB2BCD,  CFP2I,  CI2FP, 
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BCKCOL 


Name 

Set  the  text  screen  I 

Description 

This  routine  sets  the  background  color  of  the  text  screen.  Pick 
a  color  value,  assign  it  as  COLVAL,  and  access  the  routine. 

Prototype 

1.  Enter  this  routine  with  the  selected  background  color  in  .A. 

2.  Store  .A  in  the  background  color  register  at  53281 


Explanation 

The  example  program  shows  how  to  set  the  background  color 
of  the  screen  to  red.  Here,  COLVAL  is  given  a  value  of  2, 
representing  the  color  red.  To  ch 
ble  of  color  values  found  under 


Routine 

cooo 


C003  20 


BCCOL0     -  53281 


LDA  COLVAL 
ISR  BCKCOL 


;  background  color  register  0 

J  Set  background  to  red. 
;  A  cor 
;  set  it 


C007  8D  21  DO  BCKCOL  STA  BGCOL0  ■  set  bad 
COOA  60  RTS 


•ound  color.  Color  value  in  .A 


C00B  02 


COLVAL     .BYTE  2 


J  color  red 


See  also  BORCOL,  COLFIL,  TXTCCH,  TXTCOL. 
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BEEPER 


Name 


sound 


BEEPER  produces  a  beep.  Call  it  whenever  you  want  to  get 
the  user's  attention  without  startling  him  or  her.  You  could  use 
it,  for  example,  to  prompt  for  a  question  or  to  signal  a  correct 
(or  incorrect)  response. 

Prototype 

1.  Clear  the  SID  chip  with  SIDCLR. 

2.  Set  up  the  necessary  SID  chip  parameters  for  voice  1.  Set 
volume  to  15,  attack/decay  to  0,  sustain/release  to  $F0,  low 
frequency  to  132,  and  high  frequency  to  125. 

3.  Select  a  triangle  waveform  for  voice  1  and  start  the 
attack/decay/sustain  cycle  (set  the  gate  bit). 

4.  Allow  a  delay  of  two  jiffies  and  then  start  the  release  cycle 
(clear  the  gate  bit). 

Explanation 

Depending  upon  the  application,  the  beeping  sound  that 
BEEPER  generates  may  or  may  not  be  quite  what  you're  look- 
ing for.  If  it's  not  what  you  want,  experiment  with  the  SID 
chip  parameters  in  the  routine  until  you  get  the  effect  you 
want. 

When  the  SID  chip  is  called  upon  to  make  a  particular 
sound,  it  often  echoes  the  last  frequency  at  a  level  that  is 
barely  audible  even  after  the  release  cycle  is  complete.  In  fact, 
this  occurs  to  some  degree  with  BEEPER.  If  you  find  this  ef- 
fect annoying,  you  can  stop  it  before  exiting  from  the  routine. 
Either  store  zeros  in  the  frequency  registers  (FRELOl, 
FREHI1),  or 


SIDCLR. 


Routine 


cooo 
cooo 
cooo 


SIGVOL 

ATDCY) 

SUREL1 

FRELOl 

FREHJ1 

VCREG1 


C003 
C005 

cooa 


20  2F 
A9  OF 
8D  18 
A9  00 


CO  BEEPER 


D4 


COOA  8D  05 
C00D   A9  FO 


D4 


=  54296 
=  54277 
54278 
54272 
=  54273 
54276 


JSR  SIDCLR 

LDA  #15 

STA  SIGVOL 

LDA  #$0 

STA  ATDCY  1 

LDA  #$F0 


Ot 


;  SID  chip  volume  register 

;  voice  1  attack/decay  register 

;  voice  1  sustain/release  register 

;  voice  1  frequency  control  (low  byte) 

;  voice  1  frequency  control  (high  byte) 

:  voice  1  control  register 

j  low  byte  of  jiffy  clock 


;  se 

;  set  sustain/release 
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COOF    8D  06  D4 

C012    A9  84 

COM    8D  00  D4 

C017    A9  7D 

COW    8D  01  D4 

C01C    A9  11 

C01E    8D  04  D4 

A9  02 

65  A2 

C5  A2 

C027    DO  FC 
10 

04  D4 


C021 
C023 
C02S 


DELAY 


C02B 
C02E  60 


C02F 
C031 
C033 
C036 
C037 
C039 


A9 
AO 
99 
88 
10 
60 


DO 
18 
00 


SIDCLR 


D4  SIDLOP 


STA 
LDA 
STA 


LDA 

STA 

LDA 

ADC 

CMP 

BNE 

LDA 

STA 

RTS 


LDA 
LDY 
STA 

BPL 

RTS 


SUREL1 

#132 

FRELOl 

#125 

FREHI1 

#<M>00010001 

VCREG1 

#2 

JIFFLO 

JIFFLO 

DELAY 

#%00010000 

VCREG1 


#0 

»24 

FRELOl,  Y 


SIDLOP 


;  net  voice  1  frequency  ( 

;  set  voice  1  frequency  I 

;  select  triangle  waveform  and  gate  sound 

;  cause  a  delay  of  two  jiffies 

;  add  current  jiffy  reading 

;  and  wait  for  two  jiffies  to  elapse 

;  ungate  sound 


:  Clear  the  SID  chip. 

;  fill  with  zeros 

i  Index  to  FRELOl 

;  store  zero  in  SID  chip  address 

:  tor  next. ower  byte 


See  also  BELLRG,  EXPLOD,  INTMUS,  MELODY,  NOTETB,  SIDCLR, 
SIDVOL,  SIRENS. 


114 


BELLRG 


Name 

Emit  a  bell  sound 

Description 

BELLRG  produces  a  bell  tone.  You  might  find  it  useful  in 
your  programs  as  a  signal  to  the  user  that  some  ongoing 
task— like  copying  a  memory  buffer  to  disk— has  finished. 

Prototype 

1.  Clear  the  SID  chip  with  SIDCLR. 

2.  Set  up  the  necessary  SID  chip  parameters.  Set  volume  to  7, 
attack/decay  and  sustain/release  of  voice  1  to  $0A,  and  the 
high  frequency  of  both  voices  1  and  3  to  67. 

3.  Select  a  triangle  waveform  for  voice  1.  At  the  same  time,  set 
bit  2  for  ring  modulation  and  start  the  attack/decay/sustain 
cycle  (set  the  gate  bit). 

4.  Start  the  release  cycle  of  voice  1  (clear  the  gate  bit). 

Explanation 

This  routine  relies  on  ring  modulation  to  simulate  a  bell  sound. 
Ring  modulation  produces  a  waveform  that  is  a  combination  of 
the  sum  and  difference  of  two  waveforms  of  different  frequencies. 

You  can  use  any  or  all  of  the  SID  chip's  three  voices  for 
ring  modulation.  In  BELLRG,  the  frequency  of  voice  1  is  ring 
modulated  by  the  selection  of  a  triangle  waveform  for  this 
voice  and  by  storage  of  a  second  frequency  value  in  voice  3. 
Since  voice  3  is  not  actually  heard,  no  SID  chip  parameters 
other  than  the  frequency  value  are  necessary  for  this  voice. 
Here,  identical  frequencies  are  used  for  both  voices. 

Storing  different  frequencies  in  voice  3  will  produce 
widely  varying  sound  effects.  For  instance,  a  10  in  FREHI3 
will  cause  a  gonglike  sound  rather  than  a  bell.  To  set  this  up, 
insert  an  LDA  #10  instruction  just  before  the  STA  FREHI3  at 
$C015. 

The  SID  chip  often  tends  to  run  on  in  the  background 
even  after  the  release  cycle  is  complete.  BELLRG  is  not  im- 
mune from  this  effect.  To  stop  this  from  happening,  store  ze- 
ros in  the  frequency  registers  (FREHIl,  FREHI3),  or  turn  off 
the  chip  altogether  by  JSRing  to  SIDCLR  once  the  bell  has 
sounded. 
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Routine 


cooo 
cooo 
cooo 

COOO 


COOO 
COOO 


SIGVOL 

ATDCYl 

5UREL1 

FRELOl 

FREHI1 

FREHI3 

VCREG1 


COOO  20  23    CO  BELLRG 

C0C3  A9  07 

COOS  SD  18  D4 

COOS  A9  OA 

COOA  8D  05  D4 

COOD  8D  06  D4 

C010  A9  43 

C012  8D  01  D4 

C015  8D  OF  D4 

C018  A9  IS 


54296 
=  54277 
=  54278 
-  54272 
=  54273 

54287 

54276 

JSR  SiDCLR 

LDA  #7 

STA  SIGVOL 

LDA  #S0A 

STA  ATDCYl 
STA 
LDA 

STA  FREHI1 

STA  FREHI3 

LDA  #%OO01O101 


C01A 

8D 

04 

D4 

STA 

VCREG1 

C01D 

A9 

14 

LDA 

#%00010100 

COIF 

8D 

04 

D4 

STA 

VCREG1 

C022 

60 

RTS 

C023 

A9 

00 

SIDCLR 

LDA 

#0 

C025 

AO 

18 

LDY 

#24 

C027 

99 

00 

D4  SIDLOP 

STA 

FRELOl.Y 

C02A 

88 

DEY 

10 
60 

FA 

SIDLOP 

See  also  BE 


I,  EXPLOD,  INTMUS, 

IS. 


;  SID  chip  volume  register 

i  voice  1  attack/decay  register 

;  voice  1  sustain/release  register 

j  voice  1  frequency  control  (low  byte) 

:  voice  1  frequency  control  (high  byte) 

i  voice  3  frequency  (high  byte) 

i  voice  1  control  register 

|  clear  the  SID  chip 
;  set  the  volume 

jset  attack/decay 

;  set  sustain/release 

;  set  voice  1  high  frequency 

;  for  ring  modulation 
;  select  triangle  wav 
;  modulation/gate  the  sound 

;  ungate  the  sound 


;  Clear  the  SID  chip. 
;  fill  with  zeros 
;  index  to  FRELOl 
;  store  zero  in  each  SID 
I  for  next  lower  byte 
i  fill  25  bytes 

)Y,  NOTETB, 


BIGMAP 


Name 

Display  in  a  virtual  window  portions  of  a  much  larger  map 

The  normal  40-column  screen,  with  25  rows,  is  somewhat  lim- 
ited when  it  comes  to  games  or  applications  that  need  a  larger 
workspace.  This  routine  allows  you  to  use  the  40-column 
screen  as  a  window  on  a  larger  screen. 

Prototype 

1.  Set  aside  a  section  of  memory  for  use  as  the  big  screen. 

2.  Place  values  for  the  upper  left  corner  in  CORNRX  and 
CORNRY. 

3.  Establish  a  zero-page  pointer  for  the  real  screen. 

4.  Working  40  characters  at  a  time,  store  a  character  and  a 
color  into  screen  and  color  memory. 

5.  At  the  end  of  each  line,  add  40  to  the  zero-page  pointer. 

6.  Add  the  width  of  the  large  screen  to  that  pointer. 

7.  While  the  number  of  rows  is  less  than  maximum,  continue 
to  loop  back  to  step  4. 

Explanation 

Although  this  routine  is  great  for  war  games  and  adventure 
games  (both  of  which  benefit  when  they  have  a  large  map 
area),  it  could  also  be  used  in  a  serious  application  like  a 

The  example  map  is  100  columns  by  50  rows.  You  can  ad- 
just this  by  changing  the  variables  WIDTH  and  HEIGHT  at 
$C120-$C121.  The  variables  LINES  and  COLS  indicate  the 
size  of  the  normal  text  screen. 

Note  that  100  columns  and  50  rows  give  you  5000  cells 
on  the  large  map.  This  means  the  program  uses  5000  bytes  of 
memory.  The  larger  you  make  the  map,  the  more  memory  it 
needs.  If  you  create  your  own  map,  you  could  load  it  into 
memory  directly  from  disk.  The  example  uses  a  table  to  build 
the  map.  The  label  CRUNCH5  at  $C149  contains  four  num- 
bers: 80,  1,  20,  and  2.  This  means  line  5  of  the  large  screen 
contains  80  ones  and  20  twos.  There  are  only  five  characters 
allowed  on  this  particular  map  (a  maximum  of  256  can  be 
placed,  if  you  expand  the  table  MCHAR  and  MCOLR  just 
before  the  CRUNCH  table). 
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The  five  characters  are: 


0 
1 
2 
3 
4 


White 
Green 
Blue 


102 
88 

160 
81 
87 


Crosshatch 
spade 
RVS  space 


Gray2      87  circle 

The  numbers  in  MCHAR  ($C129)  are  screen  codes.  In 
MCOLR  ($C12E),  the  numbers  are  color  codes.  In  the  5000 
bytes  of  the  map,  youll  find  the  numbers  0-4.  When  a  portion 
of  the  map  is  displayed,  the  number  is  used  as  an  index  into 
MCHAR  and  MCOLR,  and  the  corresponding  numbers  are 
POKEd  to  screen  or  color  memory. 

The  framing  routine  looks  for  the  cursor  keys  (up,  down, 
left,  and  right)  and  moves  the  values  of  CORNRX  and 
CORNRY  according  to  the  direction  of  movement.  You  won't 
have  to  scroll  one  character  at  a  time,  however.  Just  store  new 
values  to  CORNRX  and  CORNRY  and  call  BIGMAP.  To  exit 
this  routine,  press  RETURN. 

Note:  Since  location  $4000  is  in  bank  0  on  the  128,  you 
may  want  to  put  the  map  at  $2000  instead.  If  you  use  a  128, 
you  should  substitute  MAPTAB  =  $2000  in  the  list  of  equates 
at  the  beginning  of  the  program. 

Routine 


C0D0 
C000 

cooo 
cooo 
cooo 
cooo 


I 

GETIN 
SCREEN 
COLOR 
MAPTAB 


$FB 

JFD 

SFFE4 

$0400 

SD800 


COOO  20  DF  CO 

C003  20  62  CO 

C006  20  E4    FF  GLP 

C009  F0  FB 

C00B  C9  0D 

C00D  DO  01 

C00F  60 


C010  C9  11 

C012  F0  IB 

C014  C9  91 

C016  F0  29 

C018  C9  ID 

C01A  F0  34 

C01C  C9  9D 

C01E  DO  E6 

C020  AE  24  CI 

C023  FO  El 

C02S  CA 


JSR  BIGMAP 

|SR  GETIN 

BEQ  GLP 

CMP  #13 

BNE  MORE 
RTS 


CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
LDX 
BEQ 
DEX 


#17 

MOVEDN 
#145 
MOVEUP 
#29 

MOVERT 

#157 

GLP 

CORNRX 

GLP 


;  screen  memory 

;  color  memory 

;  lookup  table  for  map 

]  onfninfh  the  i"p,i'i  p 

;  print  the  map  (starting  at  0,0) 
:  get  a  key 

;  is  it  RETURN? 

;  yes,  so  quit 

;  if  cursor  down 
;  move  the  map  down 
i  if  cursor  up 
;  move  the  map  up 
;  cursor  r-1- 


;  check  cursor  left 

:  if  not  left,  go  back 

;  get  the  x  comer 

;  if  zero,  it  can't  decrement 

;  else,  count  down 
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C026 

8E 

24 

CI 

STX 

CORNRX 

C029 

20 

62 

CO 

J5R 

BIGMAP 

C02C 

4C 

06 

CO 

MOVEDN 

IMP 

GLP 

C02F 

AC  25  CI 

UDY 

CORNRY 

C032 

CC 

27 

CI 

CPY 

MAXY 

C035 

FO 

CF 

BEQ 

GLP 

C037 

C8 

INY 

C038 

8C 

25 

CI 

STY 

CORNRY 

C03B 

20 

62 

CO 

)SR 

BIGMAP 

C03E 

4C 

06 

CO 

IMP 

GLP 

C041 

AC 

25 

CI 

MOVEUP 

LDY 

CORNRY 

C046 

FO 

CO 

BEQ 

GLP 

88 

DEY 

C047 

8C 

25 

CI 

CTV 

K 

rnox  ids/ 

C04A 

20 

62 

CO 

BIGMAP 

C04D 

4C 

06 

CO 

IMP 

GLP 

C050 

AE 

24 

CI 

MOVERT 

LDX 

CORNRX 

C053 

EC 

26  CI 

CPX 
BEQ 

MAXX 

C056 

FO 

AE 

GLP 

C058 

E8 

INX 

C059 

8E 

24 

STX 

CORNRX 

C05C  20 

62 

CO 

ISR 

BIGMAP 

4C  06 

IMP 

GLP 

C062 

A9 

00 

BIGMAP 

LDA 

#<MAPTAB 

COM 

F9 

STA 

ZP 

% 

40 

LDA 

#>MAPTAB 
ZP+1 

85 

FA 

STA 

C06A 

AC  25 

a 

F1XROW 

LDY 

C06D 

FO 

OF 

BEQ 

FIXCOL 

C06F 

18 

LPROW 

CLC 

C070 

A5 

F9 

LDA 

ZP 

C072 

6D 

20 

Cl 

ADC 

WIDTH 

C075 

F9 

STA 

ZP 

C077 

02 

BCC 

INROW 

C079 

E6 

FA 

INC 

ZP+1 

C07B 

88 

INROW 

DEY 

C07C 

DO 

Fl 

BNE 

LPROW 

C07E 

AD  24 

Cl 

FIXCOL 

LDA 

CORNRX 

C081 

18 

CLC 

C082 

65 

F9 

ADC 

ZP 

C084 

85 

F9 

STA 

ZP 

C086    A9  00 

LDA 

#0 

C088 

65 

FA 

ADC 

ZP+1 

C08A 

85 

FA 

STA 

ZP+1 

;  change  (he  y  comer 
;  is  it  at  the  top  value? 
;  ves.  skip  il 

I  one 


C08C  A9  00 

COSE  85  FB 

C090  A9  04 

C092  85  FC 

C094  A9  00 

C096  85  FD 

C098  A9  D8 

C09A  85  FE 


C09C  AD  22  Cl 
C09F   8D  28  Cl 


;  increment  the  x  comer 
!  is  it  the  maximum? 
;  if  so,  go  back 


;  row  number 

;  if  row  0,  skip  ahead 

;  else,  add  the  number  of  columns 

;  lo  the  pointer 


if  the  carry  flag  is  set 
then  increment  the  high  byte 
count  down 
and  loop  back 

now  add  the  x  offset 

;  add  to  ZP 
;  store  il 

;f 

;  add  zero  or  one 
;  depending  on  whether  carry  is  set  or  not 

;  Now  the  pointer  ZP  is  set  up. 

;  Set  up  a  second  pointer  to  the  screen  and 


LDA  #<SCREEN 

STA  ZS 

LDA  #>SCREEN 

STA  ZS+1 

LDA  #<COLOR 

STA  ZC 

LDA  #>C_. 

STA  ZC+1 


LDA  LINES 
STA  COUNTR 


;  Start  storing  the  characters  and  colors. 

;  number  of  lines 

;  COUNTR  will  count  down 
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C0A2  AC  23    CI  STORLP 

COAS  Bl  F9  INIOOP 

C0A7  AA 

C0A8  BD  29  CI 

COAB  91  FB 

COAD  BD  2E  CI 

W I FD 

C0B3  10  FO 


CODF  A9  00  MAKMAP 

C0E1  85  F9 

C0E3  A9  40 

A59  It 

C0E9  85  FB 

COEB  A9  CI 

COED  85  FC 

COEF  AO  00  MAKLP 

C0F1  Bl  FB 

C0F3  FO  2A 

C0F5  AA 

C0F6  8D  28  CI 

C0F9  C8 

COFA  Bl  FB 

COFC  88 

COFD  91  F9  MKSTOR 

COFF  CB 

C100  CA 

C101  DO  FA 


C103  A5  FB 

C105  18 

C106  69  02 

C108  85  FB 

C10C  Eft  FC 

C10E  AS  F9  AHD 


LDY 

COLS 

LDA 

(ZP),Y 

TAX 

LDA 

MCHAR.X 

STA 

(ZS),Y 

LDA 

MCOLR.X 

STA 

(ZC),Y 

DEV 

BPL 

INLOOP 

CLC 

LDA 

ZP 

ADC 

WIDTH 

STA 

ZP 

LDA 

#0 

ADC 

ZP+1 

STA 

ZP+1 

CLC 

LDA 

zs 

ADC 

#40 

STA 

ZS 

INC 

ZS+1 

CLC 

LDA 

zc 

ADC 

#40 

STA 

zc 

BCC 

FD 

INC 

ZC+1 

DEC 

COUNTR 

BPL 

STORLP 

RTS 

LDA 

#<*M  APTAR 

STA 

ZP 

LDA 

#>MAPTAB 

STA 

ZF+1 

LDA 

#<CRUNCH0 

STA 

ZS 

LDA 

#>CRUNCH0 

STA 

ZS+1 

LDY 

#0 

LUA 

(ZS),Y 

BEQ 
TAX 

mkqutt 

STA 

COUNTR 

TNY 

LDA 

DEY 

STA 

(ZP).Y 

1NY 

DEX 

BNE 

MKSTOR 

LDA 

CLC 
ADC 
STA 


;  number  of  columns 

;  get  the  character  number 

;  which  is  an  offset 

;  to  the  character 

;  store  it  to  the  screen 

;  also,  a  color 

;  which  goes  in  color  memory 

;  .Y  counts  down 

;  40  times  (in  this  example) 

;  After  each  time  through  the  loop, 

;  fix  the  zero-page  pointers. 

;  toZP 

,-  add  the  width  of  the  big  map 


!  to  ZS 

;  add  40 

;  and  store  it 


;  to  ZC 
j  add  40 


;  no,  do  another  row 


i  set  up  ZP  to  point  to  the  table 


;  and  ZS  points  to  the  crunch  table 


;  number  of 
j  quit  if  zero 
;pu,itin.X 
s  save 


too 


;  the  fill  character  is  in  A 

;  .Y  is  back  to  zero 

;  store  it  in  MAPTAB  memory 

;  .Y  counts  forward 

;  .X  counts  down 

.loop 

IL 


:  add  2 
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C110  18 

Clll  6D  2S  CI 

CI  14  85  F9 

CI  16  A9  00 

CI  18  65  FA 

C11A  85  FA 

C11C  4C   EF  CO 

CUF  60 

C120  64 

C121  32 

C122  18 

C123  27 

C124  00 

C125  00 

C126  3C 

C127  19 

C128  00 


CLC 

ADC 
STA 

COUNTR 

LDA 

#0 

ADC 

ZP  +  1 

STA 

ZP+1 

JMP 

MAKLP 

mkquit 

RTS 

WIDTH 

BYTE 

100 

HEIGHT 

.BYTE 

50 

LINES 

.BYTE 

24 

COLS 

.BYTE 

39 

CORNRX 

.BYTE 

0 

CORNKY 

.BYTE 

0 

MAXX 

.BYTE 

60 

MAXY 

BYTE 

25 

COUNTR 

BYTE 

0 

;  width  of  the  big  map 

:  height  of  the  big  screen 

:  number  of  screen  lines  (0-24  is  25  li 

;  number  of  screen  columns  (0-39  is  t 

:  of  40) 

:  x-position  of  upper  left  comer 
;  y-position  of  comer 


66  58 

01  05 
64  00 

31  00 
OA  00 
64  Ql 
0E  01 
50  01 

52  01 

53  01 
OF  00 
IE  00 

32  00 
34  00 
58  00 
5A  00 
57  00 
52  00 

05  00 

02  01 

06  01 
OA  01 
0E  01 
12  01 

17  01 
IF  01 

23  01 

24  01 
20  01 

18  01 
OA  01 
64  00 
64  00 
50  00 
45  00 

33  00 
33  00 
2D  00 
27  00 
20  00 
14  00 
12  00 
OF  00 


AO 
06 

01 
50 

02 
14 
12 
01 
45 
37 
26 
24 
01 
OA 
0D 
12 
01 
49 
4A 
4B 
47 
01 
14 
45 
41 
01 


14 

02 
01 
31 
37 
05 
44 
50 
IE 
55 


MCHAR  .BYTE 
MCOLR  .BYTE 
CRUNCH0  .BYTE 
CRUNCH1  BYTE 
CRUNCH2  .BYTE 
CRUNCH3  .BYTE 
CRUNCH4  .BYTE 
CRUNCH5  .BYTE 
CRUNCH6  .BYTE 
CRUNCH7  .BYTE 
CRUNCH8  BYTE 
CRUNCH9  .BYTE 
CRUNCH  10  .BYTE 
CRUNCH11  .BYTE 
CRUNCH12  -BYTE 
CRUNCH13  .BYTE 
CRUNCH14  BYTE 
CRUNCH  15  .BYTE 
CRUNCH16  BYTE 
CRUNCH17  BYTE 
CRUNCH  18  .BYTE 
CRUNCH19  .BYTE 
CRUNCH20  .BYTE 
CRUNCH21  .BYTE 
CRUNCH22  .BYTE 
CRUNCH23  BYTE 
CRUNCH24  .BYTE 
CRUNCH25  .BYTE 
CRUNCH26  .BYTE 
CRUNCH27  .BYTE 
CRUNCH28  -BYTE 
CRUNCH29  .BYTE 
CRUNCH30  .BYTE 
CRUNCH31  .BYTE 
CRUNCH32  .BYTE 
CRUNCH33  .BYTE 
CRUNCH34  .BYTE 
CRUNCH35  .BYTE 
CRUNCH36  -BYTE 
CRUNCH37  BYTE 
CRUNCH38  .BYTE 
CRUNCH39  .BYTE 
CRUNCH40  BYTE 


102,88,160,81,87 
1,  5,  6,  0,12 
100,0 

49.0,1.1.50.0 
10.0,80,1,10.0 

14,1,2,3,84,1 

80,1,20,2 

82.1,18,2 

83,1,1,4,16.2 

15.0,69.1,16,2 

30,0,55,1,15,2 

50,0,38,1,12,2 

52.0.36,1,12,2 

88.0.1,3,11,2 

90,0,10,2 

87,0.13,2 

82,0.18.2 

5,0,1,4,5,0,1.4,63,0,25,2 

2,1,73,0,25,2 

6.1,74.0,20.2 

10,1,75,0,15.2 

14,1,71,0,15.2 

18.1,1.4,67.0.14,2 

23,1,20.0,13,47.0,9,2 

31.1,69.0 

35,1,65,0 

36,1,1.4.63,0 

32,1,68.0 


mm 

100,0 
100,0 
80,0,20,1 
69,0,2,3,29,1 
51.0,1,3,48,1 
51.0.49,1 
45,0,55,1 
39.0,5,1,1.435.1 
32.0,68,1 
20,0,80,1 
18,0,30,1.1,3,51,1 
15.0,85.1 
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57    CRUNCH41  .BYTE 
59    CRUNCH42  BYTE  11,0,89,1 
CRUNCH43  BYTE  100.1 
CRUNCH44  ,BYTE  90,1.10,2 
CRUNCH45  .BYTE  60,1.20.2 
CRUNCH46  .BYTE  60,1,40.2 
CRUNCH47  .BYTE  50,1.1,3,49,2 
CRUNCH48 -BYTE  41,139,2 
CRUNCH49  .BYTE  20.1.80.2 


0,0  |  end  of  Ihe  table  is  a  zero 


BITMAP 


Name 

Enable/disable  the  hi-res  screen  (bitmap  mode) 
Description 

This  routine  turns  on  the  hi-res  screen  if  it's  off  and  turns  it 
off  if  it's  currently  on. 

Prototype 

EOR  the  contents  of  SCROLY  (or  GRAPHM  on  the  128)  with 
%00 100000  and  store  the  result  back  in  the  appropriate 
register. 

Explanation 

On  the  64,  setting  bit  5  of  the  vertical  fine-scrolling/control 
register  at  53265  (labeled  SCROLY)  enables  high-resolution 
graphics,  or  bitmap  mode.  On  the  128,  GRAPHM  (location 
216)  serves  as  a  shadow  register  for  SCROLY.  During  each 
IRQ  interrupt  of  the  128,  the  contents  of  GRAPHM  are  copied 
to  SCROLY.  So,  to  enable  bitmap  mode  on  the  128,  set  bit  5  of 
location  216. 

To  disable  bitmap  mode  and  return  to  the  normal  text- 
screen  arrangement,  clear  bit  5  of  either  SCROLY  on  the  64  or 
GRAPHM  on  the  128. 

Both  operations,  enabling  and  disabling  bitmap  mode,  can 
be  carried  out  by  exdusive-ORing  this  bit. 


COOO  SCROLY     =         53265  ;  scroll/control  register;  use  GRAPHM  =  216 

i  on  the  128 

;  Enable/disable  bitmap  mode. 
COOO    AD  11    DO  BITMAP    LDA    SCROLY       ;  substitute  GRAPHM  for  SCROLY  on  the  128 
C0OJ    49    20  EOR     #%00100000  ;  flip  bit  5 

C005    8D  11    DO  STA     SCROLY       ;  reset  register  (again  use  GRAPHM  instead  of 

;  SCROLY  on  the  128 

COOS    60  RTS 

See  also  SCRDN1,  SCRDN2,  SCRDN3;  CLRHRF  or  CLRHRS  for  ex- 
ample programs  using  BITMAP. 
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Name 

Set  the  text  screen  border  color 
Description 

BORCOL  uses  the  color  value  in  the  accumulator  to  set  the 
border  color  of  the  text  screen.  A  table  of  color  values  and 
their  corresponding  colors  is  given  under  COLFIL. 

Prototype 

L  Come  into  this  routine  with  the  designated  border  color 
value  in  .A. 

2.  Store  .A  in  the  border  color  register  at  53280  (EXTCOL). 


In  the  example  program,  the  border  color  of  the  screen  contin- 
ually cycles  through  the  16  available  colors.  Pressing  any  key 
exits  the  routine. 

A  series  of  horizontal,  or  raster,  lines  make  up  the  screen 
display.  These  raster  lines  are  updated  and  redrawn  every 
1/60  second.  Only  200  (lines  50-249)  of  the  262  raster  lines 
(312  on  European  machines)  are  actually  part  of  the  visible 
display.  The  rest  constitute  the  screen  border. 

Here,  we  determine  the  current  raster  line  being  drawn 
with  RASTER,  changing  the  border  color  only  when  this  raster 
line  is  off  the  top  of  the  visible  screen  area  (when  it  has  a 
value  of  25  or  less).  This  prevents  the  "moving  lines"  effect 
where  the  raster  line  is  updated  before  it's  completely  drawn. 


Routine 


cooo 


EXTCOL 


GETIN 
ZP 


3266 

if 


C000    AD  12    DO  GETRAS     LDA  RASTER 


C003  C9  19 

COOS  90  F9 

C007  E6  FB 

C009  AS  FB 

C00B  20  14  CO 

C00E  20  E4    FF  WAIT 

C011  F0  ED 

C013  60 


CMP  #25 
BCS  CETRAS 


INC 
LDA 
JSR 
|SR 
BEQ 
RTS 


ZP 

BORCOL 

GETIN 
GETRAS 


COM  8D  20  DO  BORCOL  STA  EXTCOL 
C017    60  RTS 


!  current  raster  scan  line 


;  Cycle  border  color  while  raster  line  is  off 

:  bottom  of  screen. 

;  check  current  raster  line 

:  is  it  off  the  top  of  the  screen? 

;  no.  so  wait 

i  yes,  so  cycle  color 

;  .A  contains  border  color 

;  change  It 

;  get  a  keypress 

j  no  key.  so  continue  to  cycle 

; 

;  Set  border  color  .A  holds  color  value. 


See  also  BCKCOL,  COLFIL,  TXTCCH,  TXTCOL. 
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Clear  the  keyboard  buffer 


There  are  often  situations  where  you  want  to  accept  only  the 
last  input  from  the  user  and  ignore  any  previous  input.  For  in- 
stance, suppose  your  program  has  a  series  of  yes/no  questions 
requiring  a  Y  or  N  response.  If  the  user's  finger  lingers  on  a 
key,  several  such  responses  can  unintentionally  be  entered  into 
the  keyboard  buffer.  And  subsequent  questions  will  be  an- 
swered, for  better  or  for  worse,  in  a  flash. 

Or  suppose  you  have  written  a  game  that  requires  key- 
board control.  At  the  end  of  the  game,  you  might  have  a 
"Play  again  (Y/N)?"  question.  If  the  keyboard  buffer  contains 
a  number  of  moves,  the  question  can  be  answered  before  the 
player  realizes  what  has  happened. 

In  both  cases,  you  need  to  clear  the  keyboard  buffer  just 
before  a  response  is  accepted.  To  clear  the  keyboard  buffer, 
simply  store  a  zero  in  NDX,  the  location  containing  the  num- 
ber of  characters  currently  in  the  buffer. 

Prototype 

Store  a  zero  in  the  keyboard  buffer  c 


The  example  routine  illustrates  how  to  clear  the 
buffer  before  input  is  accepted. 

The  keyboard  buffer,  which  begins  at  location  631  on  the 
64  and  location  842  on  the  128,  can  hold  up  to  ten  characters 
before  overflow  occurs.  When  the  buffer  fills,  additional 
characters  are  ignored.  Note  that  GETIN  returns  the  first 
character  placed  in  the  buffer. 


i  NDX  -  208  on  the  128— number  of  characters 
:  in  k  ' 


Routine 

COCIO 

NDX 

198 

cooo 

GETIN 

= 

65508 

cooo 

CHROUT 

COOO  20 

oc 

co 

JSR 

BUFCLR 

C003  20 

E4 

FF 

wait 

JSR 

GETIN 

C006  F0 

FB 

BEQ 

WAIT 

C008  20 

D2 

FF 

JSR 

CHROUT 

COOB  60 

RTS 

COOC  A9 

00 

BUFCLR 

LDA 

#0 

C00E  85 

C6 

STA 
RTS 

NDX 

C010  60 

See  also 

Cf- 

IRC 

;tr,  ch 

RGT< 

3,  CHRK 

;  Clear  keyboard  buffer  and  fetch  a  keypress 
:  clear  the  keyboard  buffer 
1  fetch  the  next  character 
;  no  keypress,  so  WAIT 
:  print  it 

! 

i  Clear  the  keyboard  buffer. 
;  set  number  of  keys  to  0 
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Cause  a  one-byte  delay 
Description 

Access  the  BYT1DL  routine  whenever  you  need  to  produce  a 
very  brief  delay  in  your  program.  By  using  this  routine,  you 
can  generate  delays  of  a  rnillisecond  or  less. 

Prototype 

1.  Enter  this  routine  with  the  delay  byte  in  .X. 

2.  Decrement  .X  to  zero  and  then  RTS. 

Explanation 

The  requirements  of  the  routine  are  simple:  Just  load  the  X 
register  with  a  delay  value — some  number  from  0-255 — and 
JSR  to  the  routine. 

Within  the  routine  itself,  a  branching  loop  repeats  until  .X 
decrements  to  zero.  Because  .X  is  decremented  before  the 
branch,  the  maximum  delay  occurs  when  .X  is  initially  equal 
to  zero.  In  this  case,  256  branches  take  place. 

By  knowing  the  number  of  machine  cycles  required  by 
each  instruction  (see  the  opcode  table  which  appears  else- 
where in  this  book),  you  can  determine  the  actual  delay  time 
for  BYT1DL  based  on  the  incoming  .X  value.  Within  the  rou- 
tine, each  DEX  requires  two  cycles  while  the  BME,  assuming 
no  page  boundaries  are  crossed,  takes  three.  If  no  branch  ac- 
tually occurs,  which  is  the  case  on  the  last  pass  through  the 
loop,  the  BNE  instruction  requires  only  two  cycles. 

In  addition  to  instructions  within  the  loop,  you  must  con- 
sider the  JSR  and  the  RTS.  Both  of  these  require  six  cycles. 

Overall,  then,  the  number  of  machine  cycles  (MC),  based 
on  the  incoming  .X  value,  can  be  calculated  by  using  the  for- 
mula MC=B  *  X  —  1  +  12.  B  is  either  5  or  6  here,  depending 
on  whether  or  not  the  branch  crosses  a  page  boundary;  X  is 
the  number  of  times  the  loop  repeats.  In  all  cases  but  one — 
the  exception  being  when  .X  is  initially  zero— X  in  the  formula 
is  the  same  as  the  contents  of  the  X  register. 

On  the  64  or  128,  the  duration  of  each  machine  cycle  is 
based  on  the  clock  speed  for  the  microprocessor.  For  North 
American  (NTSC)  systems,  the  microprocessor  runs  at 
1,022,730  Hz  (cycles  per ^second^  European  systems  (PAL) 

chine  cycle  takes  approximately  1  microsecond  (IE  — 6  sec- 
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ond)— 0.978  microseconds  for  NTSC  systems  and  1.015 
microseconds  for  PAL  systems. 

And  so,  if  .X  were  zero  coming  into  BYT1DL,  the  delay 
loop  would  have  a  maximum  number  of  repetitions — 256.  In 
this  case,  a  delay  of  5  *  256  —  1  4-  12,  or  1291,  machine  cy- 
cles would  result.  Assuming  a  64  or  128  using  the  North 
American  convention,  the  actual  time  that  elapses  would  be 
1291*0.978  microseconds,  or  1.263  milliseconds  (1.263E-3 
second). 

On  the  other  hand,  if  .X  holds  1  upon  entry  into  the 
loop— so  no  repetitions  take  place— a  delay  of  16  cycles,  or 
15.6  microseconds,  would  result. 

All  in  all,  then,  BYT1DL  offers  a  wide  range  of  delays,  al- 
though they're  consistently  brief.  If  you  need  to,  you  can  ad- 


loop.  Just  make  sure  any  instructions  you  add  d 
execution  of  the  routine. 

A  typical  practice  is  to  insert  one  or  more  NOPs,  which 
take  two  cycles  each,  in  the  code.  Of  course,  you  could  also 
use  instructions  other  than  the  NOP  here,  as  long  as  they 
have  no  effect  on  the  zero  flag.  For  instance,  inserting  an  STX, 
which  stores  into  an  unused  absolute  address,  would  add  four 
cycles  each  time  through  the  loop. 

Routine 


BGCOLO 
DELAY 


53281 
255 


C000  A9  OF  MAIN 

C002  8D  21    DO  BCXCOL 

C005  A2  FF 

C007  20    0E  CO 

COOA  EE  21  DO 


CO0D  60 


CO0E  CA 
COflF    DO  FD 
COU  60 


BYT1DL 


LDA  #15 

STA  BGCOLO 

LDX  #D£LAY 

JSR  BYT1DL 

INC  BGCOLO 


BYT1DL 


DEX 
BNE 
RTS 


;  screen  background  color 
;  one-byte  delay  value 

 _ 

:  Set  the  screen  background  color  to  light 
;  gray,  cause  a  one-byte  delay 
i  on  ."' 

;  b 
;  for  I 

;  enter  BYT1DL  with  the  delay  value  in  .X 
;  cause  a  delay 

•  to  produce  a  black  background  (only  low 
;  nybble  is  significant) 


;  Enter  BYT1DL  with  the  delay  value  in  -X. 
;  decrement  the  one-byte  delay  value 
;  If  .X  is  greater  than  zero,  continue 
;  we're  finished 


See  also  BYT2DL,  INTDEL,  JI 


TOD1DL. 
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Name 

Cause  a  two-byte  delay 
Description 

Like  BYT1DL,  this  routine  also  produces  short  program  de- 
lays. But  with  BYT2DL,  the  delays  are  slightly  longer— from  a 
few  milliseconds  (1/1000  second)  to  roughly  1/3  second.  De- 
lays on  this  order  are  frequently  needed  in  writing  game  pro- 
grams, especially  when  you  move  sprites  about  the  screen. 

Prototype 

1.  Enter  this  routine  with  the  delay  byte  in  .X. 

2.  Initialize  .Y  to  zero.  Then  in  YLOOP,  decrement  .Y  until  it 
reaches  zero  (256  times). 

3.  When  .Y  reaches  zero,  decrement  .X,  repeating  YLOOP  each 
time  until  .X  reaches  zero.  Then  RTS  to  the  main  program. 

Explanation 

To  use  BYT2DL,  load  the  X  register  with  a  delay  byte  and 
JSR  to  the  routine.  Notice  that  because  of  the  BNE  instruction 
in  SCO  14,  a  maximum  delay  actually  occurs  when  the  incom- 
ing value  of  .X  is  zero.  In  this  case,  the  loop  from  $C00E  to 
$C015  repeats  265  times. 

As  with  BYT1DL,  the  actual  amount  of  time  that  elapses 
during  a  delay,  based  on  the  initial  value  of  .X,  can  be  cal- 
culated from  the  number  of  machine  cycles  in  the  routine. 
(See  that  entry  for  an  explanation  of  the  calculation  method 
used.)  If  we  assume  no  page  boundaries  are  crossed,  each  time 
YLOOP  executes,  it  requires  5  *  256  -  1,  or  1279,  cycles.  Each 
cycle  takes  approximately  a  millionth  of  a  second. 

The  remaining  instructions  are  the  LDY  at  $C00E  (2  cy- 
cles), the  DEX  at  $C013  (2  cycles),  the  BNE  at  $C014  (3  cy- 
cles), the  RTS  at  $C016  (6  cycles),  and  a  JSR  to  the  routine  (6 
cycles).  Again,  assuming  no  page  boundaries  are  crossed,  the 
number  of  machine  cycles  (MC)  for  the  entire  routine  can  be 
determined  using  the  equation  MC  =  (1279  +  2  +  2  +  3) 
*X  -  1  +  12. 

The  X  here  represents  the  number  of  times  the  loop  re- 
peats. In  all  cases  but  one,  X  in  the  formula  is  the  same  as  the 
X  register.  If  .X  is  initially  zero,  use  256  for  X  in  the  formula. 

Based  on  the  clock  speed  for  the  64  or  128,  and  with  X 
varying  from  0  to  256  in  the  formula,  each  delay  can  take 
from  1286  •  1  -  1  +  12  =  1297  cycles  to  1286  *  256  -  1 
+  12  =  329,227  cycles,  or  from  1.262  milliseconds  to  0.322 
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seconds  for  North  American  (NTSC)  systems. 

Again,  as  with  BYT1DL,  additional  instructions,  such  as 
NOPs,  can  be  inserted  into  the  code  to  adjust  the  delay  times 
upward.  In  fact,  using  this  approach,  delays  of  a  second  or 
more  can  be  achiev 


cooo 


BGCOLO  =  53281 
DELAY         =  255 


COOO  A9  OF  MAIN 

C002  8D  21    DO  BCKCOL 

COOS  A2  EF 

C007  20  OE  CO 

C00A  EE  21  DO 


COOE  AO  00 

C010  88 

C011  DO  FD 

C013  CA 

C014  DO  F8 

C016  60 


BYT2DL 
YLOOP 


LDA  #15 

STA  BGCOLO 

LDX  "DEI-AY 

|SR  BYT2DL 

INC  BGCOLO 

RTS 


LDY  #0 
DEY 

BNE  YLOOP 


DEX 


RTS 


BYT2DL 


;  screen  background  color 
;  two-byte  delay  value 

! 

;  Set  the  screen  background  color  to  light 
;  gray,  cause  a  two-byte  delay 
;  based  on  .X,  and  then  change  the 
i  background  color  to  black. 

;  enter  BYT2DL  with  the  delay  value  In  .X 
;  cause  a  delay 
;  lo  produce  a  t< 


;  Enter  BYT2DL  with  the  < 
;  initialize  -Y 


tlue  in  .X. 


;  now  decrement  the  delay  value  in  .X 
;  continue  if  .X  is  greater  than  0 


See  also  BYT1DL,  INTDEL,  JLFDEL,  KEYDEL,  TOD1DL. 
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Name 

a  one-t 


At  some  point,  programs  that  handle  numbers — such  as 
games,  financial  programs,  and  scientific  and  mathematical 
programs— are  bound  to  require  a  routine  that  prints  a  one- 
byte  integer.  Not  only  is  a  routine  like  BYTASC  ideal  in  pro- 
grams of  this  type,  but  it  can  also  be  handy  in  overall  program 
debugging. 

For  instance,  suppose  you  have  a  problem  in  a  lengthy 
section  of  coding.  Knowing  that  BYTASC  prints  the  one-byte 
value  in  the  accumulator,  you  may  be  able  to  isolate  your 
problem  by  transferring  certain  intermediate  values  to  .A  and 
JSRing  to  BYTASC. 

Prototype 

1.  Enter  this  routine  with  the  one-byte  integer  you  wish  to 
print  in  .A. 

2.  Initialize  a  place-holder  table  by  storing  three  ASCII 
zeros— CHR$(48)— to  it. 

3.  Set  up  a  table  of  subtrahends  for  each  digit's  place— 100, 
10,  1. 

4.  Count  the  number  of  times  (beginning  with  48)  the  sub- 
trahend representing  the  largest  digit's  place  (100)  can  be 
subtracted  from  the  value  in  the  accumulator  before  a  num- 
ber less  than  zero  results. 

5.  Store  this  number  to  the  proper  position  in  the  place-holder 
table. 

6.  Repeat  steps  4  and  5  for  the  next  two  digit  places — 10  and  1. 

7.  Finally,  print  out  the  ASCII  place-holder  table. 

Explanation 

In  the  example  program,  we  fetch  a  one-byte  value  from  the 
jiffy  dock  and  print  it  with  BYTASC. 

The  integer  occupying  any  single-byte  location  is  nec- 
essarily confined  to  a  range  from  0-255.  This  number  can 
have  as  many  as  three  digits  when  it's  printed  as  a  decimal 
number. 

With  this  in  mind,  we  set  up  a  counter  table  (DIGITS — 
see  below)  containing  three  ASCII  zeros,  or  CHR$(48)s.  A 
common  subtraction  technique  is  then  employed  to  convert 
the  single-byte  value  in  the  accumulator  into  an  equivalent 
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In  this  method,  begin  with  the  highest  digit  for  the  num- 
ber, or  the  100's  place.  We  repeatedly  subtract  100 — the  first 
entry  in  the  table  of  one-byte  subtrahends,  or  TBI  SUB — from 
the  number  until  a  negative  result  occurs.  After  each  subtrac- 
tion yielding  a  positive  value  (>=0),  increment  the  first  entry 
in  the  DIGITS  table  representing  the  100's  place.  When  sub- 
traction finally  gives  a  negative  value,  the  number  is  restored 
to  the  value  it  had  before  this  last  subtraction,  and  the  whole 
process  is  repeated  for  the  next  two  digits  (the  10's  place,  then 
the  l's  place). 

When  all  three  places  in  the  number  have  been  accounted 
for,  DIGITS  contains  a  three-byte  string  for  the  number.  This 
is  printed  out  beginning  at  DONE. 

By  maintaining  a  flag  (ZEROFL)  within  the  printing  rou- 
tine, we're  able  to  print  the  number  without  printing  any  lead- 
ing zeros.  The  flag  tells  us  whether  a  nonzero  digit  has  been 
printed.  It  has  a  value  of  zero  as  long  as  the  preceding  digits 
are  all  zeros.  Whenever  the  first  nonzero  digit  is  encountered 
by  the  routine,  ZEROFL  takes  on  this  value.  In  other  words, 
it's  no  longer  zero. 

The  printing  routine  must  also  consider  the  special  case 
where  the  byte  has  a  value  of  zero  (all  three  digits  are  zero). 
This  is  taken  care  of  within  OUT.  If  ZEROFL  is  still  zero  after 
all  three  digits  have  been  assessed,  we  print  a  zero. 

Routine 


cooo 
cooo 


162 
251 


COOO  A3  A2 

C002  20  15  CO 

C005  A9  20 

C007  20  D2  FF 

C00A  A9  0D 

C00C  20  D2  FF 

C00F  20  E4  FF 

C012  F0  EC 

C014  60 


LOOP 


LDA 

JSRA 

LDA 

JSR 

ISR 

BEQ 

RTS 


JIFFY 
BYTASC 

#32 

CHROUT 
#13 

CHROUT 

CETIN 

LOOP 


;  gel  a  jiffy 

;  convert  value  to  ASCII  and  print  it 
;  print  a  f~ 


•  print  a  RETURN 

;  check  for  keypress 
;  if  no  key,  continue 


C015    A2  30 


BYTASC     LDX  #48 


C017  8E  63  CO  STX 

C01A  8E  64  CO  STX 

C01D  8E  65  CO  STX 

C022  8C  Ta  CO  STY 

C025  BE  63  CO  NMLOOP  LDX 


;  BYTASC  converts  the  o 
;  to  ASCII  and  print  ' 


DIGITS 
DIGITS +1 
DIGTTS+2 
#0 

ZEROFL 
DIGITS,Y 


i  ASCII  0 


r  table  (DIGITS)  with 


|  as  an  index 

;  initialize  ZEROFL 

;  load  with  ASCII  counter  for  a  particular 
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C0Z8 

FO  14 

BEQ 

DONE 

C02A 
C02B 

38 

F9  67 

CO 

SUB  LOP 

SEC 
SBC 

TBlSUB.Y 

C02E 

Eg 

INX 

C02F 

BO  FA 

BCS 

SUBLOP 

C031 

79  67 

CO 

ADC 

TBlSUB.Y 

COM  CA 

DEX 

C035 

48 

PHA 

C036 

8A 

TXA 

C037 

99  63 

CO 

STA 

DIGITS,  Y 

C03A 

68 

PLA 

C03B 

C8 

[NY 

C03C 

DO  E7 

BNE 

NMtOOP 

C03E 

AO  FF 

DONE 

LDY 

#255 

COM 

C8 

PRTLOP 

INY 

C041 

B9  63 

CO 

LDA 

DIG1TS.Y 

C044 

FO  12 

BEQ 

OUT 

C046 

AE  6A 

CO 

LDX 

ZEROFL 

C049 

DO  07 

BNE 

PRINT 

C04B 

C9  30 

CMP 

#48 

C04D  FO  fi 

BEQ 

PRTLOP 

cm 

BD  6A 

CO 

STA 

ZEROFL 

C052 

20  D2 

FF 

PRINT 

JSR 

CHROUT 

C055 

4C  40 

CO 

JMP 

PRTLOP 

C058 

AD  6A 

CO 

OUT 

LDA 

ZEROFL 

C05B 

DO  05 

BNE 

EXIT 

C05D 

A9  30 

LDA 

#48 

C05F 

20  D2 

FF 

JSR 

CHROUT 

C062 

60 

EXIT 

RTS 

C063 

00  00 

00 

DIGITS 

.BYTE 

0,0.0 

C066 

00 

.BYTE 

0 

C067 

64  OA 

01 

TB1SUB 

BYTE 

100,10.1 

C06A 

00 

ZEROFL 

BYTE 

0 

See  c 

ilsoCb 

/IOT,FA 

CPRD,  FACPR 

;  if  we've  reached  (he  last  digit's  place,  go 
;  print  the  number 

;  subtract  corresponding  table  value  from  .A 
;  increment  ASCII  counter  for  a  particular 
;  digit's  place 

;  if  .A  is  still  zero  or  above 

;  we  subtracted  one  time  too  many,  so  add 

;  subtrahend  back  to  .A 

;  since  one  time  too  many 

;  temporarily  save  .A 

;  store  respective  digit  to  place-holder  table 

;  restore  .A 

;  for  next  digit's  place 

;  branch  always 

;  as  index  in  the  number 

,  start  with  first  digit 

;  if  we're  at  the  end  of  the  table,  leave  routin. 

;  check  ZEROFL  to  see  if  a  nonzero  digit  has 

;  been  printed 

;  if  so,  go  print  the  digit 

;  check  for  leading  zeros 

;  if  leading  zero  occurs,  get  the  next  digit 

;  store  nonzero  digit 

;  print  each  digit 

;  and  go  to  next  place 

;  determine  if  the  number  is  000 

;  if  not,  then  return 

;  print  a  zero 

;  we're  finished 

/. 

;  for  storing  ASCII  counter  values  for  each 

;  digit's  place 

;  digit's  terminator  byte 

i  table  of  one-byte  subtrahends  for  each  digit's 
;  place 

;  ZEROFI-  is  nonzero  if  a  nonzero  digit  has 
j  printed 
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Name 

Convert  an  ASCII  number  to  a  binary  integer  value 
Description 

The  four  characters  in  the  string  2025  translate  to  the  hex 
value  $0401.  If  you  have  a  program  in  which  you  expect  users 
to  type  in  individual  numbers  such  as  2,  0,  2,  and  5,  and  if 
you'd  like  to  change  the  characters  to  a  workable  integer,  this 
routine  will  handle  the  conversion. 

Prototype 

1.  Zero  the  bytes  that  hold  the  result. 

2.  Get  the  first  (or  next)  character  and  subtract  48  to  strip  off 
the  ASCII  trappings. 

3.  Multiply  the  result  by  10  and  add  the  new  value. 

4.  Jump  back  to  step  2  and  get  the  next  character;  repeat  until 
all  have  been  taken  care  of. 

Explanation 

This  example  routine  can  take  nine  or  ten  ASCII  characters 
and  translate  them  into  binary  values.  The  limit  is  the  four 
bytes  of  the  RESULT  variable;  four  bytes  can  count  up  to 
approximately  4.3  billion  (4,294,967,206).  It  should  be  rel- 
atively easy  to  add  a  fifth  byte  (or  even  more)  to  extend  the 
range  to  the  size  of  the  U.S.  budget. 

The  CAS2IN  routine  has  no  error  checking.  It's  up  to  you 
to  make  sure  the  characters  are  within  the  range  48-57  (ASCII 
0-9).  The  ASCII  string  should  be  terminated  with  a  zero  byte, 
or  with  any  byte  that's  less  than  48,  for  that  matter. 

An  example  of  conversion  is  the  short  string  9801,  which 
contains  four  characters.  Start  at  the  leftmost  character,  9.  Mul- 
tiply the  result  (0)  by  10  (still  0)  and  add  9.  Now  the  result 
holds  a  9.  The  next  character  is  8.  Multiply  the  result  (9)  by  10 
(90)  and  add  8  (98).  The  next  character  is  0.  Multiply  result 
(98)  by  10  (980)  and  add  0  (980).  The  final  character  is  I.  So, 
980  becomes  9800,  then  9801.  The  ASCII  string  of  characters 
9801  (the  four  characters  $39,  $38,  $30,  and  $31)  has  been 
transformed  into  the  numeric  value  $2649. 

One  of  the  key  routines  is  TIMES  10.  If  you  shift  a  binary 
number  to  the  left,  you  multiply  it  by  2.  Likewise,  if  you  shift 
a  decimal  number  to  the  left,  you  multiply  by  1 0.  For  example, 
120  shifted  left  in  base  10  is  1200  (120  X  10).  In  binary, 
%1101  (decimal  13)  shifted  left  becomes  %11010  (decimal  26). 
To  multiply  a  binary  number  by  10,  shift  it  left  once  (times  2) 
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and  save  it.  Then  shift  left  two  more  times  (times  2  times  2, 
for  a  grand  total  of  times  8).  Add  the  two  results  (x  times  2 
plus  x  times  8)  and  the  number  has  been  multiplied  by  10. 

Warning:  Don't  succumb  to  the  temptation  to  replace  the 
multiple  ADC  or  ROL  instructions  with  an  indexed  loop.  The 
X  and  Y  registers  would  have  to  count  from  zero  to  three,  be- 


of  the  loop,  you'd  have  to  CPX  or  CPY.  But  the  act  of  compar- 
ing sets  or  clears  the  carry  flag,  and  the  whole  point  of  the 
addition  or  rotation  is  to  move  the  carry  flags  as  they  overflow 
from  one  byte  to  the  next.  If  you  compare,  you  change  the 
carry  flag,  with  potentially  weird  results. 


Routine 

C0O0  CAS2IN       -  • 

C000  A9  00  IDA  #0 

C002  A2  03  LDX  #BYTES 

C004  9D  78  CO  ZLOOP       STA  RESULXX 

COOT  CA  DEX 

COOS  10    FA  BPL  ZLOOP 

COOA  AA  TAX 

CO0B  BD  71  CO   MAINLP  I.DA 

C00E  38  SEC 


CO0F  E9  30 
C0U    90  IE 


C013  48 


32  CO 


18 

COW  6D  78  CO 

C01C  8D  78  CO 

C01F  90  0D 

C021  EE  79  CO 

C024  DO  08 

C025  EE  7A  CO 

C029  DO  03 

C02B  EE  7B  CO 

C02E  E8 

C02F  DO  DA 


DOX 


C031  60 


FINIS 


SBC  #48 
BCC 


PHA 

B 

CLC 

ADC 

STA 

BCC 

INC 

BNE 

INC 

BNE 

INC 

INX 

BNE 

RTS 


TIMES10 


RESULT 
RESULT 
DOX 

RESULT+1 
DOX 

RESULT+2 
DOX 

RESULT+3 
MAINLP 


C032  20  42  CO  TIMES10      JSR  TCMES2 

C035  20  4F  CO  JSR  COPtTT 

C038  20  3F  CO  JSR  TCMES4 

C03B  20  5B  CO  JSR  ADDEM 

C03E  60  RTS 


C03F  20  42    CO  TIMES4 

C042  OE  78    CO  TIMES2 

C045  2E  79  CO 

C048  2E  7A  CO 

C04B  2E  7B  CO 


JSR  TIMES2 
ASL  RESULT 
ROL     RESULT  + 1 


;  first,  zero  out  the  total 

;  number  of  bytes  in  the  result 

;  count  down 
;  and  loop 
I  .A  holds  a  zero 
;  get  a  number 

;  strip  off  the  ASCII  part  to  get  a  number 
;  0-9 

;  by  subtracting  48 

;  if  the  number  is  less  than  48,  carry  is 
;  clear 

;  save  this  number  temporarily 
;  multiply  RESULT  by  10 
;  get  the  value  again 

;  and  add  it  to  RESULT 
;  store  it  back 

;  do  the  high  bytes 


;  count  forward 

j  and  go  back  for  more/branch  always 

;  end  of  the  routine 

i  multiply  RESULT  by  2 

,-  copy  RESULT  to  TEMP 

;  multiply  RESULT  by  4  more  (total  oi  8) 

;  add  TEMP  and  RESULT  (times  10  total) 

;  done 


;  call  TIMES2  and  fall  ll 
;  times  2  v 
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C04E 

60 

RTS 

C04F 

AO  03  COPYIT 

LDY 

#  BYTES 

C051 

89 

78    CO  CPLOOP 
7C  CO 

LDA 

RESULT.Y 

C054 

99 

STA 

TEMP.Y 

C057 

88 

DEY 

C058 

10 

F7 

BPL 

CPLOOP 

C05A 

60 

RTS 

C05B 

AO 

00  ADDEM 

LDY 

sO 

C05E 
COSF 

08 
28 

ADLOOP 

PHP 

PU> 

C060 

89 

7C  CO 

LDA 

TEMP.Y 

C063 

79 

78  CO 

ADC 

RESULT.Y 

C066 

99 

78  CO 

STA 

RESULT.Y 

C069 

08 

PHP 

C06A 

C8 

INY 

C06B 

CO 

04 

CPY 

"MAX 

C06D 

DO 

FO 

BNE 

ADLOOP 

C06F 

28 

PLP 

C07O 

60 

RTS 

C071 

31 

39   36  ASCNUM 

.ASC 

-196863" 

C077 

00 

00   00  RESULT 

.BYTE  0 

C078 

00 

-BYTE  0.0.0,0 

C07C 

MAX 

♦  -  RESULT 

C07C 

BYTES 

MAX  -  1 

C07C 

00 

00    00  TEMP 

BYTE 

0,0.0,0 

;  end  of  times  routines 
;copy 

i  from  RESULT 


! 

j gel .P  back 
;  get  TEMP 
;  add  it  to  RESULT 
;  and  store  it 
;  save  carry  temporarily 


t  remove  .P  from  the  stack 


;  always  zero  terminated 
;  enough  to  handle  roughly  4,000,000.000 
;  but  you  can  add  more  zeros  for  larger 
i  n  j  rubers 


See  also  BCD2AX,  CB2ASC,  CB2HEX,  CI2HEX. 
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Convert  Commodore  ASCII  characters  into  screen  codes 
Description 

Both  the  64  and  128  represent  their  character  sets  in  different 
ways,  depending  on  the  application.  CASSCR  converts  char- 
acters from  one  of  these  coding  systems  to  another — namely, 
from  Commodore  ASCII  into  screen  codes.  This  routine  is  help- 
ful anytime  you  need  to  store  Commodore  ASCII  characters  or 
strings  of  characters  directly  into  screen  memory.  Two  popular 
word  processors  (WordPro  and  SpeedScript)  store  their  files  as 
screen  codes,  so  this  routine  is  useful  in  performing  conver- 
sions of  ASCII  files  to  be  used  with  these  word  processors. 

The  routine  itself  is  set  up  to  receive  Commodore  ASCII 
character  values  in  the  accumulator.  An  equivalent  screen 
code,  if  it  exists,  is  then  returned  in  the  accumulator.  In  the 
process,  the  carry  flag  is  cleared.  However,  if  no  screen  code  is 
defined  for  the  character,  the  accumulator  is  left  unchanged, 
and  carry  is  set  to  indicate  the  conversion  error. 

Prototype 

h  Check  for  the  pi  character  (255).  If  the  character  is  pi,  set  A 
to  126,  clear  carry,  and  return. 

2.  Otherwise,  determine  whether  the  character  lacks  an 
equivalent  screen  code  value  (character  code  is  in  the  range 
0-31  or  128-159).  If  so,  set  the  carry  flag  and  return,  leav- 
ing A  as  is. 

3.  If  the  character's  value  exceeds  127,  go  to  step  5. 

4.  If  it's  in  the  range  96-127,  AND  it  with  95,  clear  carry,  and 
return. 

5.  Replace  bit  6  of  A  with  bit  7,  place  a  zero  in  bit  7,  and 
RTS,  leaving  carry  clear. 

Explanation 

The  example  program  converts  a  string  of  Commodore  ASCII 
characters  (in  STRING)  into  screen  codes  and  stores  them  at 
the  beginning  of  screen  memory.  Any  characters  that  lack 
screen  codes  won't  appear  (BCS  SKIP). 

Except  for  the  special  case  of  character  255,  which  is  set 
to  126,  CASSCR  performs  conversions  based  on  the  range  in 
which  the  character  lies.  As  it  turns  out,  each  range  can  be 
characterized  by  a  different  bit  pattern.  The  table  shows  the 
bit  patterns  of  characters  within  each  range  before  and  after 
conversion. 
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Characte 

r  Bit  Patterns 

I/ClUi  v.  . 

After: 

Bit  Pattern 

Range 

Bit  Pattern 

0-31 
128-159 

%000x  xxxx 
%100xxxxx 

Nonexisten 
Nonexisten 

t 

96-127 

%011x  xxxx 

64-95 

%010x  xxxx 

32-63 

%001x  xxxx 

32-63 

%001x  xxxx  (same) 

64-95 

%010x  xxxx 

0-31 

%000x  xxxx 

160-191 

%101x  xxxx 

96-127 

%011x  xxxx 

192-223 

%110x  xxxx 

64-95 

%010x  xxxx 

224-254 

%lllxxxxx 

96-127 

%011x  xxxx 

Within  each  bit  pattern,  a  zero  designates  bits  that  are  al- 
ways off;  a  one  designates  bits  that  are  always  on.  An  x  repre- 
sents bits  that  may  be  on  or  off. 

We've  intentionally  grouped  together  character  ranges  that 
can  be  converted  with  the  same  bit  manipulations.  The  first 
group  is  handled  as  in  step  2  of  the  prototype  above,  the  sec- 
ond as  in  step  4,  and  the  third  as  in  step  5. 

If  you  look  closely  at  the  bit  patterns,  you'll  see  how  the 
routine  will  work.  First,  if  the  result  of  the  number  AND  127 
(%01111111)  is  31  or  less,  the  ASCII  value  can't  be  converted. 
If  the  number  is  in  the  range  96-127,  AND  it  with  95 
(%01011111),  and  you're  finished.  The  final  and  largest  group 
has  three  characteristics:  Bit  7  is  always  %0  in  the  result.  Bit  6 
of  the  screen  code  is  always  the  same  as  bit  7  of  the  ASCII 
code.  And  bit  5  remains  unchanged. 

The  overall  effect  is  that  ASCII  characters  without  screen 
codes  (in  the  range  0-31  or  128-159)  are  left  alone,  but  the 
carry  flag  is  set.  For  all  others,  the  carry  flag  is  cleared. 

Note:  CASSCR  has  no  effect  on  either  .X  or  .Y.  For  this 
reason,  you  can  use  the  routine  in  a  loop  indexed  by  either 
register  without  first  having  to  save  the  register  contents. 

Routine 

C000  CHROUT 

C000  ZP 

C000  SCREEN 

C000  COLRAM 

C000  BGCOL0 

C000  BLACK 

CO00  MDGRAY 
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65490 
—  251 

1024  ;  stan  ot  text  screen 

=        55296  ;  start  of  color  RAM 


cooo 

A9  93 

CLRCHR 

IDA 

#147 

C002 

20  D2 

FF 

1SR 

CHROUT 

C0O5 

A9  OC 
8D  21 

DO 

LDA 
STA 

#MDGRAY 
BGCOLO 

AO  00 

LDY 

#0 

B9  5A 

CO 

LOOP 

LDA 

STRINCY 

COOF 

FO  10 

BEQ 

FINISH 

con 

20  22 

CO 

JSR 

CASSCR 

C014 

BO  08 

BCS 

SKIP 

C016 

99  00 

04 

STA 

SCREEN.Y 

C019 

A9  00 

LDA 

•BLACK 

C01B 

99  00 

D8 

STA 

COLRAM,Y 

COIE 

C8 

SKIP 

INY 

COIF 

DO  EB 

BNE 

LOOP 

C021 

60 

FINISH 

RTS 

C022  C9  FF  CASSCR  CMP 

C024  DO  04  BNE 

C026  A9  7E  LDA 

C028  18  CLC 

C029  60  RTS 

C02A  8D  80  CO   NEQUIV  STA 


#255 

NEQUTV 

#126 


TEMPA 


C02D   29  60 


C02F    DO  05 


AND  #%01 100000 
BNE  UPPLOW 


C031  AD  80  CO    ERROR  LDA 

COM  38  SEC 

C035  60  RTS 

C036  AD  80  CO   UPPLOW  LDA 

C039  30    06  BM1 

C03B  29    60  AND 


C03D  C9  60 
C03F    FO  12 


CMP 
BEQ 


TEMPA 


TEMPA 

REMAIN 

#%01100000 

#%01100000 
TOPIOW 


;  Convert  a  string  from  Co 
i  screen  codes  and  POKE  It. 
;  cleat  the  screen 

.  set  screen  background  color  to  medium  gray 
;  as  an  index 


;  is  it  a  zero  1 
:  convert  it  to  a  i 

;  if  carry  is  set,  no  screen  code  exists 
:  POKE  message  to  screen  using  modified 
; POKSCR 

;  set  foreground  color  of  character  to  black  (for 


C041 

0E  80 

CO  REMAIN 

ASL 

TEMPA 

C044 

2A 

ROL 

C045 

2E  80 

CO 

ROL 

TEMPA 

C048 

6A 

ROR 

C049 

6E  80 

CO 

ROR 

TEMPA 
TEMPA 

C04C 

4E  80 

CO 

LSR 

C04F 

AD  80 

CO 

LDA 

TEMPA 

C052 

60 

RTS 

C053 

AD  80 

CO  TOPLOW 

LDA 

TEMPA 

C056 

29  5F 

AND 

#%01011111 

C058 
C059 

18 

CLC 

60 

RTS 

;  continue  printing 


:  Convert  Commodore  ASCII  in  .A  to  screen 
;  code  in  .A. 

;  If  no  corresponding  screen  code  exists,  carry 
:  is  set  to  indicate  the  error  and 
;  A  is  unchanged. 
;  la  it  pi? 

;  it  not,  check  for  nonequlvalent  codes 
;  255  becomes  126 

;  and  we  exit 

;  preaerve  Commodore  ASCII  value  for  later 
;  checks 

;  check  for  noneqnivalent  codes  (0-31  and 
;  128-159) 

;  if  no,  go  check  for  upper/lower  half  of 
;  character  set 

;  otherwise,  no  equivalent  code  so  restore  .A 
;  and  indicate  error 

;  restore  .A 

;  in  lower  half;  first  check  whether  in  range 
;  96-127 

;  bit  5  and  6  are  set  if  in  96-127 
;  if  so,  go  convert 

;  Otherwise,  handle  remainder  (32-63,  64-95, 

;  160-191,  192-223,  224-254). 

;  Shift  bit  7  to  6  of  TEMPA  (containing  the 

;  character)  and  set  bit  7  to  0. 

;  bit  7  of  TEMPA  into  carry 

;  carry  into  bit  0  of  .A 

;  bit  6  of  original  TEMPA  goes  into  carry 

;  bit  0  of  .A  back  into  carry 

;  carry  into  bit  7 

;  move  7  to  6  while  setting  7  to  0 
;  restore  .A 

;  and  return  (the  LSR  cleared  the  carry) 
;  convert  range  96-127 

;  and  return  with  an  equivalent  code 
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C05A  54    C8   C9  STRING  .ASC 
C07F   00  -BYTE0 
CO80  TEMPA  .BYTEO 


i,  CNVbKT,  bC 


TASCAS. 
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Name 

Convert  Commodore  ASCII  characters  to  true  ASCII 
Description 

Commodore  computers,  including  the  64  and  128,  use  their 
own  special  character  codes  known  as  Commodore  ASCII. 
Many  other  microcomputers  use  a  more  standard  character  set 
known  as  true  ASCII.  On  a  64  or  128,  for  example,  the  ASCII 
character  65  is  a  lowercase  a.  But  true  ASCII  defines  65  as  an 
uppercase  A.  This  is  the  primary  difference  between  the  two 
ASCIIs:  The  upper  and  lowercase  letters  are  switched.  In  order 
to  send  transmissions  via  a  modem  to  other  computers,  or  to 
use  certain  printers  that  expect  to  receive  true  ASCII,  you  need 
to  convert  Commodore's  ASCII  to  true  ASCII. 

CASTAS  converts  Commodore  characters  in  the  accu- 
mulator to  true  ASCII  and  leaves  the  result  in  A.  All  true 
ASCII  characters  are  in  the  range  0-127.  Ordinarily,  no 
characters  above  127,  most  of  which  are  graphics  characters, 
will  be  converted.  However,  the  64  and  128  have  a  second  set 
of  uppercase  characters,  193-218,  which  are  used  when  print- 
ing to  the  screen.  In  addition,  shifted-space— CHR$(160)— is 
sometimes  typed  in  as  if  it  were  a  normal  space  (when  SHIFT 
LOCK  is  engaged,  for  example).  So  these  two  instances  are 
exceptions  to  the  rule. 

Also,  there  are  characters  on  the  64  and  128  for  which 
there  are  no  true  ASCII  equivalents.  If  CASTAS  receives  one 
of  these,  it  returns  a  zero  in  the  accumulator  and  sets  the  carry 
flag. 

Prototype 

1.  Change  the  shifted-space  character  (160),  if  it  occurs,  to 
space  (32). 

2.  Check  the  character  value  to  see  whether  it  lies  within  one 
of  three  ranges  of  Commodore  ASCII  alphabetic  characters 
(193-218,  97-122,  or  65-90). 

3.  If  it  doesn't,  go  to  step  7. 

4.  If  the  character  in  A  is  within  one  of  the  three  ranges,  ASL  it. 

5.  If  carry  is  clear  (so  the  character  is  either  in  the  range 
97-122  or  65-90),  flip  bit  6.  Otherwise,  go  to  step  6  (the 
character  is  193-218). 

6.  Perform  an  LSR. 

7.  Determine  whether  the  character  value  is  128  or  greater.  If 
it's  not,  then  RTS. 

8.  Otherwise,  set  A  to  zero  and  leave  carry  set. 
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Explanation 

You  can  test  this  routine  in  the  example  program  by  typing  in 
all  sorts  of  Commodore  ASCII  characters.  As  each  character  is 


also  shown.  This  process  continues  until  you  press  RETURN. 
Conversion  from  Commodore  ASCII  to  true  ASCII  is 
1  -  ■         -■■  i-  —  between  the 


two  character  sets.  Basically,  all  we  need  to  do  is  switch  upper- 
case (97-122  or  193-218)  to  lowercase  (65-90)  letters,  or 
lowercase  to  uppercase  (97-122).  This  is  all  handled  by  the 
routine  SWITCH,  explained  elsewhere  in  this  book.  As  men- 
tioned, the  shifted-space  is  a  special  case.  So,  before  entering 
SWITCH,  we  convert  this  character  to  a  normal  space  (32). 

Note:  CASTAS  corrupts  the  Y  register.  If  your  program 
uses  .Y,  be  sure  to  save  it  to  a  temporary  location  before  enter- 
ing the  routine.  And,  of  course,  restore  it  when  you  return 


Routine 


cooo 
cooo 


CHRQUT  = 

Ch  i  IN  = 

LINPRT  = 
ZP 


65490 


COOO 


COOO  A9  0E 

C002  20  D2  FF 

C005  A9  08 

C007  20  D2  FF 

C0OA  20  E4    FF  WAIT 

C00D  F0  FB 

COOF  20  30  CO 

C012  A9  20 

C014  20  D2  FF 

C017  A3  FB 

C019  20  38  CO 

C01C  20  30  CO 

C01F  A9  0D 

C021  20  D2  FF 

C024  A5  FB 

C026  C9  0D 

C028  DO  EO 

C02A  A9  09  QUIT 


251 

8 

9 


C02C  20 
C02F  60 


FF 


LDA  #14 

J5R  CHROUT 

LDA  #DSFTCM 

JSR  CHROUT 

JSR  GETIN 

BEQ  WAIT 

JSR  NUMPRT 

LDA  s*32 

JSR  CHROUT 

LDA  ZP 

JSR  CASTAS 

|SR  NUMPRT 

LDA  «13 

JSR  CHROUT 

LDA  ZP 

CMP  «3 

BNE  WAIT 

LDA  UESFTCM 

JSR  CHROUT 
RTS 


;  LtNPRT  =  36402  on  the  128 

;  DSFTCM  =  11  on  the  128 
;  ESFTCM  =  12  on  Ihe  128 

i  Get  a  character:  print  its  Commodore  ASCII 

;  value  and  true  ASCII  value. 

i  Quit  on  RETURN. 

.-  switch  to  lowercase/uppercase  mode 


rommodore  key  case 


;  get  a  character 

;  il  null  string,  then  get  another  key 
,-  print  the  Commodore  ASCII  value 
;  print  space 

;  restore  .A 

:  convert  value  in  A  from  Commodore  to 
;  true  ASCII 

i  print  the  true  ASCII  value 
:  print  RETURN 


I  is  itB 

;  no.  so  get  an 
;  enable  SHI  FT /Commodore  key  c 
:  switching 

!  and  return 


CASTAS 


C030  85  FB  NUMPRT  STA  ZP 

C032  AA  TAX 

C033  A9  00  LDA  #0 

C03S  4C  CD  BD  NUMOUT  JMP  L1NPRT 


CASTAS 


SWITCH 
LOOP 


C038  C9  AO 

C03A  DO  02 

C03C  A9  20 

C03E  AO  03 

C040  88 

C041  30  10 

C043  D9  5A  CO 

C046  90  OB 

COW  D9  5D  CO 

C04B  BO  F3 

C04D  OA 

C04E  BO  02 

C050  49  40 

C052  4A 

C053  C9  80 

C0S5  90  02 

C057  A9  00 

C059  60  OUT 

C05A  CI  61    41  RANGE1 

C05D  DB  7B    5B  RANGE2 


FLIPIT 


F1XIT 
EXIT 


LDA  #32 

LDY  #3 
DEY 

BMI  EXIT 

CMP  RANGEl.Y 

BCC  EXIT 

CMP  RANGE2.Y 

BCS  LOOP 

ASL 

bcs  Fixrr 

EOR  #64 
LSR 

CMP  #128 

BCC  OUT 

LDA  #0 

RTS 

BYTE  193,97,65 

-BYTE  219.123,91 


;save  .A 

.  low  byte  of  ASCII 

J  print  the  ASCII 
;  return 


value  (see  NUMOUT)  and 


:  Convert  Commodore  ASCII  in  .A  to  true 
:  ASCII  in  A. 

;  A  is  zero  and  carry  flag  i5  set  U  there  is  no 

;  equivalent  true  ASCII  value 

;  (except  characters  193-218,  which  are 

;  converted  as  if  they  were  97-122). 

;  Also  character  160  is  handled  as  if  it  were  a 

.32. 

;  take  care  of  shift-space 
;  others 


;  Index  to  (able 
;  exit  if  no  more  ranges  to  chedc 

r  falls  below  RANGEI,  so  exit 


is  above  RANGE2  so  check  next 


;  character  is  in  a  range;  si 
;  character  is  >= 128 
;  Hip  bll  6 

;  restore  character  (bit  7  becomes  zero) 
;  carry  is  set  for  all  characters  above  128 
;  (except  193-218  and  160) 

;  ref  urn  a  zero  in  .A  If  above  128  (and  not 
;  exceptions) 


;  lower  delimiter  of  each  range 
;  upper  delimiter  + 1  of  each  ran. 


See  also  CASSCR,  CNVERT,  SCRCAS,  TASCAS. 
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Name 


Convert  a  byte  value  to  an  ASCII  number  by  using  subtraction 


A  byte  value  such  as  102  is  stored  in  memory  as  a  series  of  bi- 
nary bits.  If  you  want  to  print  it  out,  not  as  a  CHR$(102),  but 
as  the  three  characters  1,  0,  and  2,  you  can  use  this  routine  to 
convert  the  byte  to  three  ASCII  values. 


Prototype 

1.  Enter  CB2ASC  with  the  value  to  be  translated  in  the 
accumulator. 

2.  Load  .Y  with  a  zero. 

3.  Repeatedly  subtract  100  until  the  value  becomes  negative. 

4.  After  each  successful  subtraction,  increment  .Y. 

5.  When  the  value  becomes  less  than  zero,  add  back  100  and 
store  .Y. 

1  and  1. 


Explanation 

The  procedure  is  straightforward.  Subtract  hundreds,  then 
tens,  then  ones.  At  each  step,  save  the  result  in  memory. 
These  numbers  can  then  be  ORed  with  48  to  create  printable 
ASCII  numbers. 

Routine 


cooo 
cooo 

cooo 


RESULT 
CHROUT  - 


COOO  A5  A2 

C002  20  15  CO 

COOS  AO  00 

C007  B9  3C  03  LOOP 

C00C  20  D2  FF 

C00F  C8 

C010  CO  03 

C012  DO  F3 

C014  60 

C015 

C015  AO  00 

C017  38 

C018  E9  64 

C01A  90  03 

C01C  C8 

C01D  DO  F9 

C01F  8C  3C 

AO  00 


CB2ASC 
HLOOP 


828 

$ffd: 

LDA 

TIMER 

JSR 

CB2ASC 

LDY 

#0 

LDA 

RESULT.Y 

ORA 

»%O0UOOl 

)SR 
INY 

CHROUT 

CPY 

#3 

LOOP 

BNE 
RTS 

• 

LDY 

#0 

SEC 
SBC 

#100 

INY 

TENS 

HLOOP 

STY 

RESULT 

LDY 

#0 

;  the  jiffy  clock 

J  store  ASCII  digits  in  the  cassette  buffer 
;  (RESULT  -  2816  on  the  128) 


;  get  a  changing  number 
;  convert  it 
,-  loop  counter 

;  get  the  ASCII  numbers  one  by  one 
;  make  it  ASCII 


;  counter  increases 
;  quit  after  0-2 
;  or  go  back 

;  end  of  the  framing  routine 

;  .Y  is  the  counter 
;  get  ready  to  subtract 

';  r^S  weVeg'cmr  past  zero 
'one 


;.Y  holds  the  hundred's  place 
;  zero  it  again 


CB2ASC 


#100  ;  set  .A  back  to  normal 


COM  69  64 

C026  38 

C027  E9   OA  TLOOP 

C029  90  03 

C02C  DO  F9 

C02E  8C  3D  03  ONES 

C031  69  OA 

C033  8D  3E  03 

C036  60 


ADC 
SEC 
SBC  #10 
BCC  ONES 
INY 

BNE  TLOOP 

STY  RESULT +  1 

ADC  #10 

STA  RESULT  +2 

RTS 


;  this  time,  minus  10 

;  carry  dear  meant  underflow 

;  else,  inc  the  counter 

i  and  go  back  to  subtract 

it 

i  Y  1«  the  ten',  place 
;  add  10  to  .A 
;  and  store  it 
;  end  of  routine 


See  also  BCD2AX,  CAS2IN,  CB2HEX,  CI2HEX. 
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CB2BCD 


Name 

Convert  a  byte  value  (0-99)  to  a  BCD  number 

Bytes  range  in  value  from  0  to  255  ($00  to  $FF).  BCD  num- 
bers, on  the  other  hand,  can  only  have  100  values  ($00-$99). 
This  routine  converts  a  byte  in  the  range  0-99  decimal  to  a 
BCD  value. 

Prototype 

|.  Isolate  the  high  nybble. 

2.  Compare  to  10.  If  the  high  nybble  is  more  than  10,  sub- 
tract 10. 

3.  Rotate  the  carry  flag  into  ANSWER. 

4.  Loop  back  to  step  2  five  times. 

5.  Shift  ANSWER  to  the  left  and  OR  the  remainder  in  .A  with 
ANSWER. 

Explanation 

The  framing  routine  takes  a  value  from  one  location  ($FB), 
calls  the  conversion  routine,  and  stores  the  result  in  a  second 
location  ($FC).  Note  that  at  the  beginning  of  CB2BCD,  num- 
bers greater  than  99  are  trapped  by  subtracting  100  until  the 
value  is  in  the  proper  range.  This  means  that  if  you  enter  with 
a  value  of  132,  the  result  will  be  $32. 

Routine 

:  get  a  byte  from  memory 
i  convert  it 

;  end  of  routine 

* 

;  first  check  the  range 
;  ready  to  start  If  it's  0-99 
;  subtract  100 

;  Put  an  INC  here  if  you  want. 
;  branch  always 

,.  _. 
;  store  it 
;  ready  to  ROL 
;  the  answer  will  be  here 
;  four  times 

;  move  the  high  bit  into  carry 
;  and  rotate  it  inlo  .A 
;  count  down 
;  four  times 

J 

;  this  loop  happens  five  times 
;  is  .A  bigger  than  10? 
,-  save  the  status 
;  and  put  carry  into  answer 
;  get .P  back 


C000  A3  FB  MAIN 

C002  20  08  CO 

COOS  85  FC 

C007  60 


COOS 


PRELIM 


C00E  B0  F8 

C010  8D  45    CO  BEGIN 

C013  A9  00 

C015  8D  46  CO 

C018  AO  04 

C01A  0E  45    CO  RLOOP 

C01D  2A 

C01E  88 

COIF  DO  F9 

C021  AO  05 

C023  C9  OA  CLOOP 

C0Z5  08 

C026  2E  46  CO 

C029  28 


LDA 

SFB 

JSR 

CB2BCD 

STA 
RTS 

$FC 

• 

CMP 

#100 

BCC 

BEGIN 

SBC 

#100 

BCS 

PRELIM 

STA 

TEMPA 

LDA 

#0 

STA 

ANSWER 

LDY 

#4 

ASL 

TEMPA 

ROL 

DEY 

BNE 

RLOOP 

LDY 

#5 

CMP 

#10 

PHP 

ROL 

ANSWER 

PLP 

CB2BCD 


C02A  90  02 

C02C  E9  OA 

C02E  OE    45    CO  AHEAD 

C031  2A 

C032  88 

C033  DO  EE 

C035  4A 

C036  AO  04 

C038  OE    46    CO  AALOOP 

C03B  88 

COJC  DO  FA 

C03E  OD  46  CO 

C041  8D  46  CO 

C044  60 


C045  00 
C046  00 


TEMPA 
ANSWER 


nee* 

A  UF  An 

;  if  clear,  leave  .A  alone 

cnr 
DDK, 

»10 

;  else  subtract  10 

ASL 

TEMPA 

-  shift  lB{» 

oni 
HUL 

■   lain  A 

;  into  .a 

DEY 

;  loop 

BNE 

CLOOP 

;  back  to  the  compare 

;  .A  contains  the  remainder. 

LSR 

;  .A  needs  to  be  corrected 

LDY 

#4 

;  four  shifts 

ASL 

ANSWER 

DEY 

BNE 

AALOOP 

ORA 

ANSWER 

;  add  the  low  nybble 

STA 

ANSWER 

RTS 

BYTE 

0 

f 

.BYTE 

0 

See  also  B2SNLN,  B2UNIN,  BCD2BY,  CFP2I,  CI2FP,  CNVBFP. 
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CB2HEX 


Name 

Convert  a  byte  to  two  hexadecimal  digits  (ASCII) 
Description 

When  you're  looking  at  the  contents  of  memory,  hexadecimal 
(base  16)  is  sometimes  preferable  to  decimal  or  binary. 
CB2HEX  takes  a  single  number  (in  the  range  0-255)  as  input 
and  returns  the  two  ASCII  characters  that  make  up  the  hexa- 
decimal equivalent. 

Prototype 

1  Enter  the  routine  with  the  value  in  .A. 

2.  Temporarily  save  it. 

3.  AND  with  the  mask  value  %00001U1  to  extract  the  lower 
nybble  and  ORA  with  48  ($30)  to  convert  to  ASCII.  If  the 
result  is  greater  than  57  (ASCII  9),  add  7  to  put  it  in  the 
range  A-F.  This  result  goes  into  .X. 

4.  Retrieve  the  original  value  and  shift  it  right  four  times. 

5.  Repeat  step  3  to  convert  the  high  nybble  to  an  ASCII  value. 

Explanation 

The  example  routine  gets  a  keypress,  checks  for  the  letter  Q 
(quit)  and  then  prints  four  things:  the  letter  pressed,  the  deci- 
mal ASCII  value  of  the  character  for  the  key,  the  hexadecimal 
equivalent  of  the  decimal  number,  and  a  RETURN.  It  then 
loops  back  to  get  another  key. 

The  subroutine  is  fairly  simple.  It  first  extracts  the  low 
nybble  and  high  nybble  (a  byte  contains  eight  bits,  while  a 
nybble  is  half  a  byte — four  bits).  The  nybbles  are  then  con- 
verted to  ASCII.  Because  the  characters  0-9  correspond  to  the 
ASCII  codes  48-57,  and  the  characters  A-F  are  ASCII  65-70, 
it's  sometimes  necessary  to  add  7  to  bridge  the  gap  between 
the  character  codes  for  9  and  A. 

A  few  techniques  bear  mentioning.  First,  the  RTS  that 
ends  the  framing  routine  occurs  very  early  in  the  program 
($C009).  Most  of  the  time,  the  program  branches  over  this 
instruction.  There's  no  rule  that  says  a  routine  must  have  an 
RTS  as  the  last  instruction.  Second,  within  the  CB2HEX  rou- 
tine itself,  the  ASCSUB  subroutine  is  used  twice.  The  first 
time,  $C034  performs  a  JSR  ASCSUB.  The  subroutine  executes 
once  and  returns  back  to  $C037.  The  second  time,  the  pro- 
gram falls  through  to  ASCSUB.  This  time,  the  RTS  ends  the 
CB2HEX  routine.  The  first  time,  the  RTS  ends  a  subroutine 
within  the  CB2HEX  subroutine;  the  second  time,  it  ends 
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CB2HEX  itself.  Finally,  the  ADC  #6  at  $C041  doesn't  add  6;  it 
adds  7.  The  instruction  above  is  a  BCC  (Branch  if  Carry  Clear) 
around  the  ADC  instruction,  which  means  ADd  with  Carry.  If 
the  carry  flag  is  set,  adding  6  plus  a  carry  of  1  is  the  same  as 


Note:  The  value  of  .A  is  temporarily  stored  in  .Y  at  $C031. 


combination. 


COOCI 

cooo 
cooo 
cooo 

C003 
C005 
C007 
C009 
COOA 
COOD 
CODE 
COOF 
C011 
C014 
C016 
C019 
C01B 
C01E 
COIF 
C022 
C025 
C026 
C029 
C02B 


CHROITT  - 
GETJN  = 
LINPRT  - 

20    E4    FF  MAIN  JSR 

FO    FB  BEQ 

C9   51  CMP 

DO  01  BNE 

60  RTS 

20    D2  FF  CONTIN  )SR 

48  PHA 

AA  TAX 

A9  20  LDA 

20    D2  FF  JSR 

A9  00  LDA 

20    CD  BD  JSR 

A9  3D  LDA 

20   D2  FF  JSR 

68  PLA 

20    31    CO  JSR 

20    D2  FF  JSR 

8A  TXA 

20    D2  FF  JSR 

A9  OD  END  LDA 

20    D2  FF  JSR 

4C   00    CO  JMP 


C031 

C031  A8 

C032  29  OF 

C034  20    3D  CO 

C037  AA 

C038  98 

C039  4A 

C03A  4A 

C03B  4A 

C03C  4A 

C03D  C9  OA 

C03F  90  02 

C041  69  06 

C043  69  30 


CB2HEX  - 


$FFD2 

SFFE4 

$BDCD 

GETIN 

MAIN 


ASCSUB 


ADD4B 


C045  60 


#32 

CHROUT 
#0 


CHROUT 

CB2HEX 

CHROUT 

CHROUT 

m 

CHROUT 


i  LINPRT  =  $8E32  on  the  128 
■  get  a  key 

;  loop  back  if  no  key 
;  if  Q  then  quit 
:  else  continue 


CHROUT       :  print  the  character 


;  push  it  on  slack 
;  low  byte  in  .X 
;  character  code  for  space 
;  print  it 

;  high  byte  for  LINPRT 

;i 


TAY 
AND 
JSR 
TAX 
TYA 
LSR 
LSR 
LSR 
LSR 

CMP 
BCC 

ADC 
ADC 

RTS 


#%oooomi 

ASCSUB 


#10 
ADD4B 

#6 


;  print  an  equal  sign 

;  get  the  original  number 

;  convert  it  to  hex 

;  print  high  nybble 

;  .X  into  .A 

;  print  that,  loo 

.  carriage  return 


;  save  contents  of  .A  in  .Y 
;  extract  low  nybble 
;  the  conversion  subroutine 
;  put  the  low  nybble  in  JC 
;  retrieve  the  original  number 


;  shift  right  four  times 

;  Now  fall  through  to  the  ASCSUB  routine. 

;  is  it  0-9? 

;  yes,  branch  forward  and  add  48 
;  (for  ASCID 

;  this  really  adds  7  because  carry  is  set 
;  add  48  to  make  0-9  into  48-57  or  10-1 S 
;  into  A-F 
;  and  that's  that 


See  also  BCD2AX,  CAS2DNI,  CB2ASC,  CI2HEX. 


CHARX4 


Name 

Print  semilarge  (4  X  4)  characters 
Description 

This  routine  looks  up  the  character  shape  in  ROM  and  prints 
it  out  (to  screen  or  printer)  as  a  large  character  that's  four 
times  the  normal  size. 

Prototype 

1.  Set  up  a  zero-page  pointer  to  the  character  shape. 

2.  Read  the  eight  bytes  from  character  ROM;  store  them  in 
memory. 

3.  Loop  four  times,  once  through  each  pair  of  bytes. 

4.  Rotate  each  byte  to  the  left  twice  to  get  a  number  0-15. 

5.  Look  up  the  appropriate  graphics  character  and  print  it. 

6.  The  resulting  printout  has  four  graphics  characters  on  four 
lines. 


At  the  beginning  of  the  routine,  the  screen  code  of  the  charac- 
ter to  be  printed  is  in  the  accumulator,  and  the  choice  of 
uppercase/graphics  or  lowercase/ uppercase  is  determined  by 
the  carry  flag.  The  first  thing  we  have  to  do  is  find  the  charac- 
ter shape  in  ROM,  so  .A  is  stored  in  a  free  zero-page  location, 
and  a  $0D  is  stored  in  the  corresponding  high  byte  of  the 
pointer.  A  single  ROL  transfers  the  contents  of  the  carry  flag 
into  FREEZP+1.  Now  we  have  either  a  $1A  or  $1B  there.  The 
next  task  is  to  multiply  this  two-byte  pointer  by  8,  via  three 
ASL/ROL  pairs. 

The  pointer  at  $FB  now  points  to  the  character  shape,  so 
we  can  look  up  the  eight  bytes  that  form  the  letter.  The  rou- 
tine from  $C014  through  $C02B  does  this.  The  interrupts  must 
first  be  turned  off  with  SEI.  Then  bit  2  of  location  1  is  turned 
off  so  we  can  read  character  ROM.  The  shape  is  stored  into 
CHCOPY  (at  the  end  of  the  program). 

As  an  example,  imagine  that  we're  printing  a  large  capital 
A.  The  figure  shows  how  the  bits  are  arranged  in  the  character. 

Start  with  a  0  in  the  accumulator.  Rotate  byte  0  to  the  left 
twice;  then  rotate  byte  1  twice.  The  result  is  a  number  be- 
tween 0  and  15  in  the  accumulator.  This  number  is  used  as  an 
offset  to  find  out  first  whether  we  should  print  {RVS  ON}  or 
{RVS  OFF},  and  then  which  character  to  print.  This  procedure 
repeats  four  times,  and  we  go  down  to  the  next  row  (bytes  2 
and  3),  and  so  on. 
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CHARX4 


The  Letter  A 


Character 


6 

12  3 

J 

1*1+1    1  1 

■■ 

□□□□■■ 

■□□■■□□a 

□□□□□can 


3 

4 

2 

1  

■ 

If  you  look  at  character  3  on  line  %  you'll  see  that  the 
graphics  character  to  be  printed  should  be  a  Commodore-C  (in 
reverse  mode). 

Note:  On  the  64,  it's  necessary  to  turn  off  bit  2  of  location 
1  to  get  to  the  character  set  in  ROM.  On  the  128,  you  can  ac- 
cess the  character  by  switching  to  bank  14.  Thus,  it's  necessary 
to  remove  the  instructions  from  SEI  to  STA  $01  ($C014- 
$C01A)  and  the  instructions  from  LDA  $01  to  CLI  ($C025- 
$C02B).  Also,  the  instruction  LDA  (FREEZP),Y  at  $C01D 
should  be  replaced  with  a  call  to  the  INDFET  (indirect  fetch) 
Kernal  routine,  as  follows: 

LOOP  LDA  #FREEZP  ;  the  zero  page  pointer 
LDX  #14  ;  the  bank  to  access 

JSR   653%        ;  the  INDFET  Kernal  routine 


Routine 


O)00 


COOO    85  FB 

C002    A9  0D 

COM    85  PC 

26  FC 


C008    06  FB 

COOA   26  FC 

CMC   06  FB 

COOE    26  FC 

C010    06  FB 
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CHARX4 


STA  FREEZP 
LDA  #HOOOOU01 


j  for  lowercase/uppercase. 

;  screen  code  (low  byte  to  multiply  by  8) 
;  $0D,  which  will  be  shifted  foot  times  to 
;  become  $D0  ot  SD8 
j  almost  ready  to  rotate 

"  carry  now 
;  Now  multiply  it  by  8. 


ASL 
ROL 
ASL 
ROL 
ASL 


FREEZP 
FREEZP+1 
FREEZP 

rl 


CHARX4 


C012    26  FC 


C014  78 

C015  A5  01 

C017  29  FB 

COM  85  01 

C01B  AO  07 

C01D  Bl  FB 

COIF  99  8B 

C022  88 

C023  10  F8 

C02S  A5  01 

C027  09  04 

C029  85  01 

C02B  58 


C02C 
C02E 
C031 
C033 


C04B  A8 

C04C  B9 

C04F  20 

C052  B9 

C055  20 

C058  CA 

C059  CE 

COSC  DO 

COSE  A9 

COW  20 

C063  E8 

C064  E8 

CMS  CE 

C068  DO 

C06A  60 


CO 


LOOP 


ROL  FREEZP+1 


SEI 

LDA  $01 

AND  #%iiiiion 

STA  $01 

LDA  m  Y 

DEY 

BPL  LOOP 

LDA  $01 

ORA  #%00000100 

STA  $01 

CL1 


CO 


CO 


OUTLOP 
INLOOP 


CO 


8B  CO 


CO 


6B  CO 
D2  FF 
7B  CO 
D2  FF 

94  CO 

DA 

OD 

D2  FF 


93  CO 
C9 


LDA 

STA 
LDX 
LDA 
STA 
LDA 
ASL 
ROL 
ASL 
ROL 
INX 
ASL 
ROL 
ASL 
ROL 

TAY 
LDA 
JSR 
LDA 


DEC 

BNE 

LDA 

JSR 

INX 

INX 

DEC 


#4 

COUNTR 

#0 

#4 

COUNT2 
#0 

CHCOPY,X 
CHCOPY,X 


CHCOPY.X 


C06B 
C073 
C07B 
C083 
C08B 


9: 

92 
20 
BE 


92 
92 
AC 
BF 


OFFON 

QSCHAR 

CHCOPY 

COUNTR 

COUNT2 


OFFON.Y 
CHROUT 
QSCHAR,Y 
CHROUT 

COUNT2 
INLOOP 
#13 

CHROUT 


RTS 

.BYTE 
.BYTE 
.BYTE 
.BYTE 


COUNTR 
OUTLOP 


i  character  ROM. 

;  torn  off  interrupts  while  we  read 
;  character  ROM 

;  bit  2  of  location  1  control*  character  ROM 
;  mask  it  out  to  gel  to  the  characters 

;  need  the  eight  bytes  (0-7) 

';  and  put^ifl  memory 
;  count  down 

;  we  want  0,  so  count  down  to  $FF 

;  check  location  1 

;  and  turn  the  bit  back  on 

;  Interrupts  are  OK  now 

: 

;  Print  the  shape  on  the  screen. 

;  do  It  four  times 
;  start  at  CHCOPY+0 
;  four  ROLs 


;  get  carry 

;  put  in  .A 

;  again 

;  push  it  over 

;  go  up  to  next  byte 

;  more  into  .A 

;  now  we  have  a  number  0-15 

;  put  it  in  .Y  for  lookup 

;  print  RVS  ON  or  RVS  OFF 


:  continue  for  four  characters 
;  return 
;  new  line 

;  Increment  X  by  2 
;  decrement  outer  loop 
i  and  go  back  again 


146.146.146,146.146.18.18,18 
146.146,146,18,18,18,18,18 
32,172,187,162,188,161.191,190 
190,191,161.188,162,187,172,32 

• 

•  +  8 

•  +  1 

•  +  1 


See  also 


Description 

CHARX8  prints  a  gigantic  character,  eight  times  larger  than 
normal.  It's  not  especially  useful  as  a  screen  routine  (except 
perhaps  for  a  children's  alphabet  program),  but  if  you  send 
output  to  a  printer,  you  can  use  it  to  print  large  banners. 

Prototype 

1.  Enter  this  routine  with  the  screen  code  in  .A  and  the  carry 
flag  clear  to  print  a  character  from  the  uppercase/graphics 
character  set,  or  with  the  carry  flag  set  for  a  character  from 
the  uppercase/lowercase  character  set. 

2.  Store  the  screen  code  in  zero  page. 

3.  Manipulate  a  zero-page  pointer  to  point  to  the  character 
shape  in  ROM. 

4.  Switch  in  character  ROM  and  copy  the  eight  bytes  to  nor- 
mal memory. 

5.  Loop  through  the  eight  bits  of  each  of  the  eight  bytes. 

6.  Print  a  reversed  space  for  bits  that  are  on,  and  a  space  for 
off  bits. 

Explanation 

Patterns  for  the  uppercase/graphics  character  set  are  stored  in 
character  ROM  at  $D000-$D7FF,  while  patterns  for  the 
uppercase/lowercase  character  set  are  found  at  $D800-$DFFF. 
Each  of  the  256  printable  character  patterns  takes  up  eight 
bytes  of  memory,  so  a  screen  code  value  must  be  multiplied 
by  8  and  then  added  to  either  $D000  or  $D800  to  calculate  the 
starting  address  of  the  corresponding  character  pattern  data. 
Once  you  have  the  memory  address  of  the  character  shape, 
you  can  convert  it  into  a  big  character. 

FREEZP  at  location  $FB  is  a  pointer  to  the  character  shape 
we  want  to  print.  The  accumulator  holds  the  screen  code,  so 
first  we  have  to  store  it  in  the  low  byte  of  FREEZP — to  be 
multiplied  by  8  in  a  moment.  Next,  the  high  byte  of  the 
pointer  is  set  up.  At  $C002,  the  number  $0D  is  loaded  and 
stored  into  FREEZP +  1.  Next,  the  contents  of  the  carry  flag  are 
rotated  into  the  same  location.  At  this  point,  both  FREEZP  and 
FREEZP  + 1  are  three  left-shifts  away  from  pointing  to  the 
right  place.  A  left-shift  is  the  same  a's  multiplying  by  2,  so 
three  shifts  are  the  same  as  "times  2  times  2  times  2,"  or 
"times  8." 
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CHARX8 


;h  byte 
re- 
the 


ASLing  the  low  byte  followed  by  ROLing  the 
a  number  by  2,  so  we  do  that  three  tim< 
suit  is  a  two-byte  pointer  that  tells  us  where  to 
character. 

At  $C014-$C02B,  we  read  the  character  shape.  Memory 
at  $D000-$DFFF  is  very  busy:  Character  ROM  is  there,  I/O 
locations  are  there,  and  RAM  is  there,  too.  Location  1  controls 
what's  going  on,  and  we  have  to  turn  off  bit  2  to  get  to  the 
character  shapes.  But,  first,  SE1  turns  off  interrupts,  so  there's 
no  need  to  worry  about  crashes.  A  loop  copies  the  characters 
from  ROM  down  to  a  section  of  memory  we've  set  aside.  CLI 
turns  on  the  interrupts  again. 

Now  we  have  the  shape  at  CHCOPY  within  the  program. 
There  are  eight  bytes  there,  each  of  which  contains  eight  bits. 
All  that's  left  is  to  ROL  the  appropriate  byte.  The  current  high 
bit  moves  into  the  carry  flag,  and  BCS  branches  to  the  print 
routine  that  prints  a  reversed  space  (if  that's  what  is  needed). 
Otherwise,  the  bit  is  cleared,  and  we  need  to  print  a  normal 
space.  After  eight  rotates,  a  CHR$(13)  puts  the  cursor  on  the 
next  line,  and  the  outer  loop  continues  until  the  last  bit  is  con- 
verted into  a  space  or  reversed  space. 

Note:  On  the  64,  it's  necessary  to  turn  off  bit  2  of  location 
1  to  get  to  the  character  set  in  ROM.  On  the  128,  you  can  ac- 
cess the  character  by  switching  to  bank  14.  Thus,  it's  necessary 
to  remove  the  instructions  from  SEI  to  STA  $01  ($C014- 
$C01A)  and  the  instructions  from  LDA  $01  to  CLI  ($C025- 
$C02B).  Also,  the  instruction  LDA  (FREEZP),Y  at  $C01D 
should  be  replaced  with  a  call  to  the  INDFET  (indirect  fetch) 


LOOP  LDA  #FREEZP  ;  the  zero  page  pointer 
LDX  #14  ;  the  bank  to  access 

65396         ;  the 


Routine 

cooo 
cooo 


cooo 

C002 


85  FB 
A9  0D 


C004  85  FC 
C006    26  FC 


FREEZP  = 
CHROUT  - 


CHARX8 


$FB 
SFFD2 


h  screen  code  in  .A. 
;  Carry  dear  for  uppercase/graphics,  carry  set 
;  for  uppercase/lowercase. 


STA 
LDA 

STA 
ROL 


FREEZP  ;  Ihe  screen  code  flow-byte,  la  multiply  by  8) 
#%00Q01101  ;  $0D,  which  will  be  shifted  four  times,  to 

;  become  SDO  or  $D8 
FREEZP+1    ;  almost  ready  to  rotate 
FREEZP + 1    ;  got  carry  now 

;  Now  multiply  it  by  8. 


CHARX8 


C008  06  FB 

C00A  26  FC 

COOC  06  FB 

COOE  26  FC 

C010  06  FB 

C012  26  FC 


C014  78 

C01S  A5  01 

C017  29  FB 

C019  85  01 

C01B  AO  07 

C01D  Bl  FB 

COIF  99  65 

C022  88 

C023  10  F8 

C025  A5  01 

C027  09  04 

C029  85  01 

C02B  58 


ASL  FRFJEZP 

ROL  FREEZP+1 

ASL  FREEZF 

ROL  FREEZP+1 

ROL  FREEZP+1 


LOOP 


CO 


SEI 

LDA 

AND 

STA 

LDY 

LOA 

STA 

DEY 

BPL 

LDA 


CLI 


$01 

#%11111011 

Ml 

#7 

(FREEZP),Y 
CHCOPY.Y 

LOOP 
$01 

#%00000100 


;  FREEZP  now  points  to  the  first  byte  of 
;  character  pattern  in  ROM. 

;  turn  off  interrupts  while  we  read  character 
;ROM 

;  location  1,  bit  2  controls  character  ROM 
;  mask  it  out  to  make  the  characters  visible 

;  need  eight  bytes  (0-7) 
;  get  the  shape 
;  and  put  it  in  memory 
;  count  down 

;  we  want  #0,  so  count  down  to  $FF 

check  locsttofi  1 
;  and  turn  the  bit  back  on 


C02C 

A9 

0D 

LDA 

#13 

C02E 

20 

D2 

FF 

JSR 

CHROUT 

C031 

A2  FF 

LDX 

#255 

C033 

E8 

OUTLOP  INX 

COM 

E0 

08 

CPX 

C036 

DO 

01 

BNE 

START 

C038 

60 

RTS 

C039 

AO 

09 

START 

LDY 

#9 

C03B 

88 

IN  LOOP 

DEY 

C03C    DO  08 

BNE 

DOLINE 

C03E 

A9  0D 

LDA 

#13 

C040 

20 

D2 

FF 

JSR 

CHROUT 

C043 

4C 

33 

CO 

IMP 

OUTLOP 

C046 

3E 

65 

CO 

DOUNE 

ROL 

CHCOPY.X 

C049 

BO 

OD 

BCS 

REVERS 

C04B 

A9 

92 

LDA 

#146 

C04D 

20 

FF 

JSR 

CHROUT 

C050 

A9 

20 

LDA 

#32 

C052 

20 

D2 

FF 

JSR 

CHROUT 

C055 

4C 

3B 

CO 

JMP 

INLOOP 

C058 

A9 

12 

REVERS 

LDA 

#18 

C0SA 

20 

D2 

FF 

JSR 

CHROUT 

C05D 

A9 

20 

LDA 

#32 

C05F 

20 

D2 

FF 

JSR 

CHROUT 

C062 

4C 

3B 

CO 

JMP 

INLOOP 

CHCOPY 

• 

■  = 

*+8 

;  interrupts  are  OK  now 

; 

;  Now  print  the  shape  on  the  screen, 

;  carriage  return 

;  so  we  start  on  a  new  line 

;  JC  must  be  the  counter,  because  ROL  doesn't 

;  accept  Y-index 

;  increment  up  to  zero  the  first  time 

;  after  0-7,  we're  done 

;  not  8,  so  do  a  row 

;  else  we're  done 

;  counter  (eight  loops) 

;  counting  down  to  zero 

;  print  RETURN 


;  move  the  top  bit  into  carry 
;  if  if  s  a  1,  cany  is  set 
;  reverse  off 
;  print  it 

;  character  code  for  space 
;  print  it,  too 

;  reverse  on 
t 

ter  code  for  space 

;  reserve  eight  bytes  for  a  copy  of  the  character 
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CHK144 


Name 

Check  peripheral  status  via  location  144 
Description 

The  ML  equivalent  of  BASIC'S  ST  (status)  variable  is  location 
144  ($90).  In  general,  if  the  value  in  location  144  isn't  zero, 
something  has  gone  wrong  (usually,  end  of  file  or  device  not 


Prototype 

1.  Load  the  accumulator  from  location  144. 

2.  Branch  if  equal  to  zero  (BEQ)  to  continue  the  routine. 

3.  If  not  equal  to  zero,  something  has  gone  wrong. 

Explanation 

The  following  program  attempts  to  open  a  file  that  doesn't  ex- 
ist. The  BEQ  should  not  occur.  The  letter  A  is  printed,  which 
means  something  has  gone  wrong. 


cooo 

STAT 

144 

SETLFS 

SFFBA 

SETNAM 

SFFBD 

cooo 

$FFC0 

cooo 

SFFD2 

cooo 

CHKOUT 

$FFC9 

cooo 

CLRCHN 

$FFCC 

cooo 

CLOSE 

$FFC3 

cooo 

A9 

02 

LDA 

#2 

C002 

A2 

08 

LDX 

#8 

C004 
C006 

AO 

02 

LDY 

« 

20 

BA 

FF 

SETLFS 

C009 

% 

00 

#0 

C0OB 

20 

BD 

FF 

JSR 

SETNAM 

C00E 

20 

CO 

FF 

JSR 

OPEN 

con 

A2 

02 

LDX 

#2 

C013 

20 

C9 

FF 

JSR 

CHKOUT 

C016 

AS 

90 

CHK144 

LDA 

STAT 

C018 

F0 

08 

BEQ 

FINIS 

C01A 

20 

CC 

FF 

JSR 

CLRCHN 

C01D 

A9 

41 

LDA 

#65 

COIF 

20 

D2 

FF 

JSR 

CHROUT 

C022 

20 

CC 

FF 

FINIS 

JSR 

CLRCHN 

C025 

A9 

02 

LDA 

*2 

C027 

20 

C3 

FF 

JSR 

CLOSE 

C02A 

60 

RTS 

;  location  144  holds  the  status  I 


m  mm  m  2.8.2 


;  no 


;  get  ready  to  print 
;  check  the  status 
;  If  equal  to  zero,  OK 

j  dear  channels  before  printing 

;  print  a  letter  A 
;  clear  all  channels 

:  and  close  file  2 


See  also  DERRCK,  RDSTAT. 


CHOUTP 


Name 


;e  the  target  screen  memory  address  for  CHROUT 


If  you've  relocated  your  text  screen,  any  characters  you  print 
with  CHROUT  will  be  placed  in  the  normal  screen  memory 
area  unless  you  update  the  text  screen  pointer  HIBASE. 
CHOUTP  changes  the  pointer  so  that  CHROUT  (or  PRINT  in 
BASIC)  print  characters  on  the  relocated  screen. 

Prototype 

1.  Enter  this  routine  with  .A  containing  the  IK  text-screen  off- 
set (2  for  2K  offset,  and  so  forth). 

2.  Multiply  .A  by  4  to  put  HIBASE  on  an  even  IK  boundary. 

3.  Store  the  result  in  HIBASE. 


In  the  example,  the  text-screen  pointer  is  changed  to  8192. 
Using  CHROUT,  500  bytes  beginning  at  this  location  are  filled 
with  zeros.  Printing  CHR$(64) — the  @  symbol— causes  zeros 
to  be  POKEd  into  these  locations  (the  screen  code  for  @  is  0). 

In  the  routine,  SCRPTR  represents  the  actual  location 
(times  IK)  of  the  text  screen  (that  is,  SCRPTR  .BYTE  8  sig- 
nifies that  the  screen  begins  at  8K,  or  location  8192). 

On  the  128,  we  home  the  cursor  twice  within  the  main 
program.  This  closes  any  text  windows  that  may  be  opened 
and  places  the  cursor  at  the  top  of  the  screen. 

Routine 


cooo 
cooo 


HIBASE 
CHROUT  = 


648 


COOO  AD  27  CO 
C003    20    21  CO 


i_uuo  nf 


LDA  5CRPTR 

ISR  CHOUTP 

LDA  B19 

ISR  CHROLT 


;  HIBASE  =  2619  on  the  128— starting 
;  of  screen  memory 
;  Kemal  character  output 

S  Using  CHROUT,  fi 
;  8192  with  zeros. 
;  .A  contains  IK  times  SCRPTR  offset 
j  change  the  PRINT  location 
j  HOME  the  cursor 


;  JSR  CHROUT;  (: 


es  at  the  start  of  the  new  screen 


C00B  AD  28  CO 

C00E  A2  02 

C010  AO  FA  OUTLOP 

C012  20    D2  FF    IN  LOOP 

C015  88 

C016  DO  FA 

C018  CA 

C019  DO  FS 

C01B  A9  01 


LDA 
LDX 
LDY 


BNE 
LDA 


CHAR 
« 
#250 
CHROUT 

INLOOP 

OUTLOP 
Si 


i  fill  250  bytes 

|  do  OUTLOP  twice — 2  times  250 
;  return  to  default  screen  at  IK 
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CHOUTP 


C01D  20  21  CO 
C020  60 


C021  OA 

C022  OA 

C023  8D  88 

C026  60 


08 

C028  40 


CHOUTP 


CHOUTP  ASi 

ASL 
STA 
RTS 


for  PRINT. 


.  Change  screen  I 
;  .A  holds  IK  offset. 
;  multiply  .A  by  4  to  HJBASE  Ume»  256 
;  puta  us  on  a  IK  boundary 


HIBASE 


change  the  PRINT  location 


CHAR 

See  also  VTDBNK,  V1CADR. 


.BYTE  8 
•BYTE  64 


;  to  print  on  a  screen  at  8K  (8192) 
;  character  to  print — here  @ 
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CHRDEF 


Name 


Description 

CHRDEF  moves  either  one  or  both  ROM  character  sets  into 
RAM  and  redefines  a  series  of  characters  within  one  of  these 


1.  Before  assembling  this  routine,  list  the  screen  codes  of  the 
characters  you  wish  to  redefine  as  SCCODE  and  provide 
the  number  of  these  characters  as  NUMDEF.  Store  the  IK 
offset  for  your  RAM  character  set  in  CHROFF.  Then  list 
character  data  at  the  end  of  the  routine  beginning  at 
CHRDAT.  Define  PAGCTR  as  16  if  you  want  to  copy  both 
ROM  character  sets.  In  this  case,  add  the  commented  line, 
ADC  #8,  just  after  ADC  ZT  at  $C066  if  the  characters 
you're  redefining  are  in  the  second  character  set.  On  the 
128,  define  VMCSB  as  2604  rather  than  53272. 

2.  Temporarily  store  the  high  byte  of  the  offset  address  for 
the  RAM  character  set  in  zero  page  (ZT). 

3.  Save  the  high  byte  of  the  ROM  character  set  address  in 
ZP  +  1. 

4.  Multiply  the  current  video  bank  (0-3)  by  64  to  get  the 
high  byte  of  its  starting  address  and  add  the  high  byte  in 
ZT  to  this. 

5.  Store  the  result  representing  the  high  byte  for  the  starting 
location  of  the  RAM  character  set  in  ZP+3  and  also  in  ZT 
for  use  in  character  redefinition. 

6.  Store  a  zero  in  the  low  byte,  zero-page  pointers  to  the 
ROM  and  RAM  character  sets. 

7.  Copy  the  ROM  set  from  the  address  in  ZP  to  the  address 
in  ZP+2.  On  the  64,  set  interrupts  and  switch  in  character 
ROM  at  53248  before  doing  this.  On  the  128,  copy  the 
ROM  set  from  memory  bank  14  with  INDFET. 

8.  When  the  copying  process  is  complete,  on  the  64,  switch 
back  in  the  I/O  at  53248  and  clear  interrupts.  On  both 
computers,  point  the  VIC  chip  memory  control  register  (or 
its  shadow,  on  the  128)  to  the  RAM  character  set. 

9.  To  locate  the  characters  being  redefined  in  the  RAM 
character  set,  multiply  the  screen  code  for  each  by  8  and 
add  the  result  to  the  starting  location  for  the  set  (in  ZT). 

10.  Load  eight  bytes  of  data  representing  each  redefined 


CHRDEF 


11.  Repeat  Steps  9  and  10  for  all  chara< 
and  then  RTS. 


character,  and  store  this  data  beginning  at  the  address 
determined  in  Step  9. 


graphics  character  set — 2K  of  character  data — from  ROM 
beginning  at  53248  to  RAM  beginning  at  14336  (assuming  the 
current  video  bank  is  0),  and  then  redefines  the  left  arrow  (-) 
character  to  1/8  and  the  ampersand  (&)  to  1/4.  To  copy  the 
lowercase/uppercase  set  instead,  replace  LDA  #>UPPGRP  at 
$C006  with  LDA  #<LOWUPP. 

To  move  both  character  sets  from  ROM,  you  need  to 
allow  room  in  the  current  16K  video  bank  for  4K  of  character 
data.  To  do  this  in  the  example  program  below,  before  assem- 
bling the  program,  change  CHROFF  in  the  equates  to  12;  this 
offsets  the  RAM  character  sets  by  12288  in  the  current  video 
bank.  Also  change  PAGCTR  to  16  to  move  12*256,  or  4096, 
bytes  and,  if  the  characters  you're  redefining  belong  in  the 
second  set,  insert  the  commented  instruction,  ADC  #8,  near 
the  end  of  the  program.  This  instruction  adds  an  additional  8K 
to  the  offset  for  the  RAM  character  set  and  causes  data  for  the 
redefined  characters  to  be  stored  into  the  second  set. 

As  it's  currently  set  up,  the  program  redefines  just  two 
characters — the  left  arrow  (character  31)  and  the  ampersand 
(character  38)— in  the  primary  character  set.  But  with 
CHRDEF,  you  can  redefine  up  to  256  characters  within  one 
character  set.  Just  define  NUMDEF  to  the  number  of  charac- 
ters you  want  to  redefine  and  list  their  screen  codes  at 
SCCODE.  Then  provide  the  eight  bytes  of  pixel  data  for  each 
character  at  CHRDEF. 

By  listing  the  character  definition  data  in  binary  form,  you 
can  see  how  the  new  characters  will  appear  on  the  screen.  For 
instance,  look  at  the  data  in  $C08C-$C093,  and  you'll  see  the 
image  of  1/8  used  to  redefine  the  left  arrow. 


cooo 


cooo 


53272 
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CHRDEF 


cooo 
cooo 


UPPGRP 
LOWUPP 


53248 
55296 
%O00Olll0 


COOO    A9  OE 
C0O2  OA 

C0O3  OA 
COM    85  A3 
CO06    A9  DO 

COOB    85  PC 

COOA    AD  00  DD 
29  03 
49  03 
OA 

C012  OA 

C013  OA 

COM  OA 

C015  OA 

C016  OA 

C017  05  A3 


CHRDEF 


C01B 
C01D 


A3 
00 


COIF  85  FB 
C021    85  FD 


C023  78 

C024  AS  01 

C026  29  FB 

C028  85  01 


C02A  AO  I 
C02C  8! 


C02E  91  FD 

C030  C8 

C031  DO  F9 

C033  E6  FC 

C035  E6  FE 

C037  CE  87  CO 


LDA  #CKROFF 
ASL 

ASL 

STA  ZT 

LDA  #>UPPGRP 

STA  ZP+1 

LDA  CI2PRA 

AND  *>%O00OOOll 

EOR  #<tUM00001J 
ASL 

ASL 
ASL 
ASL 
ASL 
ASL 

ORA  ZT 

STA  ZF+3 

STA  ZT 

LDA  #0 

STA  ZP 

STA  ZP+2 


LDA  1 

AND  #%1U11011 
STA  1 


LDY  * 
LDA  (ZPl.Y 


STA  (ZP+2LY 
INY 

BNF.  CMLOOP 

INC  ZP+1 

INC  ZF+3 

DEC  PAGCTR 


;  address  ol  uppercase/graphics  ROM 
;  character  set 

;  address  o(  lowercase/uppercase  ROM 

;  IK  RAM  character  set  i 
;  bank 

;  Kemal  routine  to  fetch  bytes  indirectly  from 
;  another  bank  (128  only) 

;  Put  character  set  in  RAM  at  14K.  redefine 

;  the  -  and  &  characters. 

;  First  move  character  set  to  RAM. 

;  load  character  set  offset 

;  multiply  by  4  to  get  high  byte  of 

;  character  set  offset 

;  store  temporarily 

;  change  UPPGRP  to  LOWUPP  to  move 

;  lowercase/uppercase  ROM  set 

,-  save  high  byte  address  of  ROM  character 

;»« 

;  get  current  16K  video  basic 

j  bank  number  is  in  bits  0-1 

;  to  get  actual  bank  number,  0-3 

;  multiply  bank  number  by  64  to  get  the 

;  high  byte  of  bank  address 


;  now,  add  the  high  byte  of  RAM  character 
;  set  offset  to  this 

;  store  the  result  (high  byte  address  of 

;  RAM  character  set) 

;  save  it  for  redefining  characters  below 

j  ROM  and  RAM  set  addresses  are  on 

;  even-page  boundaries 

;  store  0  into  low-byte  address  of  ROM  set 

;  also  into  low-byte  address  of  RAM  set 

;  Now  copy  character  set  from  ROM  to 

;  RAM. 

;  disable  IRQ  interrupts  (64  only) 

;  select  character  ROM  using  configuration 

;  register  (64  only) 

;  clear  bit  2  (64  only) 

;  Now  move^aracte/setts)  from  ROM  to 
;  RAM. 

;  initialize  .Y  as  index 

;  from  ROM  location  (64  only) 

;  Substitute  next  three  lines  for  previous 

;  line  on  the  128. 

,-  CMLOOP  LDA  #ZP 

;  LDX  #14;  bank  number 

j  JSR  INDFET;  fetch  character  data  from 

9 


;to: 


i  move  Another  256  bv 
;  next  256-byte  block 

;  next  page 
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DO  FO 

BNE 

CMLOOP 

A5  01 

IDA 

1 

C03E 

09  04 

ORA 

#%00000100 

COW 

85  01 

STA 

1 

CD42 
C043 

58 

CLl 

AD  18 

DO 

IDA 

VMCSB 

C046 

29  FO 

AND 

#%miuooo 

*>   7W  A  A  *  *  VWV 

C048 

09  OE 

ORA 

#CHROFF 

C04A 

8D  18 

DO 

STA 

VMCSB 

C04D 

A2  00 

LDX 

#0 

C04F 

BD  8A 

CO  RDFLOP 

LDA 

SCCODE,X 

C052 

85  FB 

STA 

ZP 

C054 

A9  00 

LDA 

#0 

C056 

85  FC 

STA 

ZP  +  1 

C058 

06  FB 

ASL 

C05A 

26  FC 

ROL 

ZF+1 

C05C 

06  FB 

ASL 

ZP 

C05E 

26  FC 

ROL 

ZP+1 

COM) 

06  FB 

ASL 

ZP 

C062 

2*  FC 

ROL 

ZP+1 

C064 

A5  FC 

LDA 

ZP+1 

C066 

65  A3 

ADC 

ZT 

C068 

85  FC 

C06A 

8A 

C06B 

48 

C06C 

AO  00 

C06E 

AE  88 

CO  CHLOOP 

C071 

BD  8C 

C074 

91  FB 

C076 

EE  88 

CO 

C079 

C8 

C07A 

CO  08 

C07C 

90  FO 

C07E 

68 

C07F 

AA 

C080 

E8 

C081 

EC  89 

CO 

C084 

DO  C9 

C086 

60 

C087 

08 

PAGCTR 

C088 

00 

ROWCTR 

C089 

02 

NUMDEF 

C08A 

IF  26 

SCCODE 

C08C 

40 
44 

CHRDAT 

COSE 

48 

STA  ZP+1 

TXA 

PHA 

LDY  #0 

LDX  ROWCTR 

LDA  CHRDAT.X 

STA  (ZP),V 

INC  ROWCTR 
1NV 

CPY  #8 

BCC  CHLOOP 
PLA 

TAX 
INX 
CPX 
BNE  RDFLOP 
RTS 

.BYTE  8 

.BYTE  0 
BYTE  2 
.BYTE  3U8 

»  * 

%01000000 
%01000100 
%01001000 


;  move  all  256-byte  blocks 
;  (64  oaly) 

;  set  configuration  register  lo  enable  I/O 
;  <64  only) 

;  reset  register  (64  only) 

;  reenable  interrupts  (64  only) 

;  now,  point  VIC  chip  to  RAM  character  set 

;  retain  current  4-7  bits  of  VMCSB  (text 

;  offset) 

;  or  In  bits  0-3  representing  RAM  character 
;  set  offset 

;  and  store  result  in  control  register 

;  Now  redefine  RAM  characters. 
;  First  calculate  location  of  each  character 
 Isel. 


;  let  .X  count  number  of  characters  that 

;  have  been  redefined 

;  load  each  character  number  to  redefine 

;  clear  high  byte  for  ROL 

;  multiply  SCCODE  by  8  since  eight  bytes 
;  per  character 


;  now  add  start  of  RAM  character  set  (carry 
;  cleared  by  last  ROL) 
;  only  add  high  byte  since  character  set  is 
;  on  a  page  boundary 

;  ADC  #8;  add  2K  If  you  transfer  both  sets 
;  and  characters  are  in  second  set 
;  specific  character's  address  is  now  at  ZP 
;  store  .X  on  stack  temporarily 

;  index  rows  of  pixels  in  one  character 

;  J£  now  contains  pixel  row 

;  get  next  row  of  character  data 

,-  store  into  RAM  set 

;  next  row  of  data 

;  next  row  for  this  character 

;  do  eight  rows  of  this  character 

;  all  done 

I  restore  .X  to  contain  number  of  characters 
;  that  have  been  redefined 

;  next  character 

;  have  all  characters  been  done? 
;  if  noL  do  another  one 
;  we're  finished 

\  move  8*256=2048  bytes  (1  set);  use  16  to 
j  move  both  sets 
;  counter  for  row  of  pixel  data 
;  number  of  characters  to  i  ' 
;  screen  codes  of  chat 
I  pixel  data  for  -  (1/8) 


CHRDEF 


C08F  12 

C090  25 

C091  42 

C092  05 

C093  02 

C094  40 

C095  44 

C096  48 

C097  12 

C098  26 

C099  4A 

C09B  02 


-BYTE  %00010010 
.BYTE  %00100101 
-BYTE  %0!000010 


BYTE  %01000000 

BYTE  %01000100 

.BYTE  %01001000 

.BYTE  %00010010 

.BYTE  %00100110 

-BYTE  %01001010 
.BYTE 


See  also  ANIMAT,  CUST80. 


CHRGTR 


Get  a  character  within  a  range 
Description 


)  values  of  the  ASCII 
E2,  respectively). 


suppose  you  ask  the  user  a  question  that  requires  a  numeric 
response.  Or  suppose  you  want  only  alphabetic  input. 

In  either  case,  this  routine  is  ideal.  You  simply  set  the  up- 
per and  lower  limits  of  acceptable  ASCII  characters  before- 
hand and  JSR  to  CHRGTR. 

Prototype 

1 .  Set  up  the  lower  and  upper  (plus 
character  range  (RANGEl  and  RAf 

2.  Get  a  keypress. 

3.  Compare  its  ASCII  value  to  the  lower  delimiter  (RANGEl). 

4.  If  it's  less,  branch  to  step  2. 

5.  Compare  its  ASCII  value  to  the  upper  delimiter  (RANGE2). 

6.  If  it's  greater,  branch  to  step  2. 

7.  Otherwise,  return  the  acceptable  ASCII  character  in  .A. 
Explanation 

The  example  program  is  set  up  so  that  only  letters  between  A 
and  Z  are  accepted.  To  limit  the  input  to  number  keys,  change 
RANGEl  to  48  (ASCII  0)  and  RANGE2  to  58  (ASCII  9,  plus  1). 

Routine 


cooo 
cooo 


GETTN 
CHROUT 


65508 


COOO  20  07  CO 
C003  20  D2  FF 
C006  60 


ISR 
RTS 


CHRGTR 

CHROUT 


C007  20    E4  FF    CHRGTR     JSR  GETIN 

COOA  CD  15  CO  CMP  RANGEl 

C00D  90    F8  BCC  CHRGTR 

C00F  CD  16  CO  CMP  RANGE2 

C012  B0   F3  BCS  CHRGTR 

COM  60  RTS 


CO  15  41 
C016  5B 


RANGEl  .BYTE  65 
RANGE2      .BYTE  91 


!  print  the  keypress. 
;  get  a  character  within  a  range 
;  print  the  character 

; 

;  Get  a  c 
;  RANGEl -F 
;  return  it  in  .A. 
;  get  ASCn  key 
;  compare  with  RANGEl 
;  loo  low,  so  get  another  keypress 
;  compare  with  RANGE2  pins  1 
;  too  high,  so  gel  a 

;  ASCII  A 
i  ASCII  Z  plus  1 


See  also  BUFCLR,  CHRGTS,  CHRKER,  MATGET. 
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CHRGTS 


character 


Description 

There  will  be  many  occasions  when  you  will  want  to  screen 
the  user's  input  selectively.  Probably  the  most  common  ex- 
ample of  this  is  when  you  ask  the  user  a  yes/no  question. 
Usually,  all  you're  really  looking  for  is  a  Y  or  N  response. 

By  using  CHRGTS,  you  can  set  up  this  situation  with 
ease.  Before  you  access  the  routine,  just  place  these  two 
characters  in  the  table  of  acceptable  responses  at  the  end  of 
the  program. 

CHRGTS  checks  the  incoming  character  to  insure  that  it 
is  among  those  in  your  table  of  allowed  characters.  The  pro- 
gram continues  only  if  and  when  it  receives  a  suitable 
response. 

Prototype 

1.  Get  a  keypress. 

2.  Compare  its  ASCII  value  with  a  list  of  acceptable  responses 
(here,  KEYS). 

3.  If  the  mcoming  keypress  is  among  those  in  the  table,  return 
its  ASCII  value  in  .A. 

4.  Otherwise,  branch  to  step  1. 

Explanation 

With  the  aid  of  CHRGTS,  the  following  program  checks  for  a 
Y  (yes)  or  N  (no)  keypress.  If  either  is  pressed,  it  is  printed. 
Otherwise,  the  program  fetches  another  keypress  until  a  Y  or 
N  is  received. 

Note:  The  table  of  acceptable  responses  can  have  as  many 
ASCII  characters  in  it  as  you  like.  By  placing  the  responses 
that  you're  more  likely  to  receive  at  the  beginning  of  the  table, 
you  can  speed  up  the  execution  of  this  routine. 

Routine 

C000  GETIN         =  65508 

COOO  CHROUT     -  65490 

:  Accept  either  Y  or  N  only. 
COOO    20    07    CO  )SR       CHRGTS         ;  get  sped/ic  characters 

C003    20    D2  FF  JSR      CHROUT        ■  print  it 

C006    60  RTS 

;  Get  only  characters  designated  in  KEYS 
;  table.  Return  character  in  .A. 


CHRGTS 


C007 
COOA 
COOC 
COOF 

con 

CDI2 
C014 
C016 
C018 


20  E4 

A2  00 

DD  19 

FO  07 
E8 

EO  02 

DO  F6 

FO  EF 
60 


FF  CHRGTS 


CO  CHKLOP 


exit 


JSK 
LDX 
CMP 
BEQ 
INX 
CPX 
BNE 
BEQ 
RTS 


GETIN 
#0 

KEYS,X 
EXIT 

#NUMKEY 

CHKLOP 

CHRGTS 


;  gel  ASCII  key 

;  check  each  character  in  table 
;  if  round 

;  check  key  number 

;  if  more  in  table,  check  next  character 

;  if  no  match,  get  another  keypress 
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CHRKER 


Name 

Get  a  character 

Description 

You'll  find  a  need  for  this  routine  in  just  about  any  program 
you  write  that  requires  user  input.  CHRKER  uses  the  Kernal 
routine  GETIN  to  get  a  character  from  the  current  input  device. 

Prototype 

1.  JSR  to  GETIN  to  fetch  a  keypress. 

2.  If  the  Z  flag  is  set— if  GETIN  has  received  a  null  string,  or 
CHR$(0) — BEQ  to  step  1. 

3.  Otherwise,  return  in  .A  the  ASCII  character  received  by 
GETIN. 


The  example  program  gets  a  character  from  the  keyboard  (by 
default,  the  current  input  device)  and  prints  it. 

Note:  GETIN  relies  on  the  normal  IRQ  interrupt  routine  to 
get  its  characters.  During  each  IRQ  interrupt,  the  keyboard  is 
checked,  and  ASCII  values  for  keypresses  are  placed  in  the 
keyboard  buffer.  So,  altering  the  normal  IRQ  routines  may 
cause  the  keyboard  buffer  not  to  be  updated.  In  such  in- 
stances, GETIN  won't  work,  and  you  should  use  the  Kernal 
SCNKEY  routine  instead. 

A  CMP  #0  instruction  following  JSR  GETIN  may  be  nec- 
essary when  you're  getting  characters  from  a  device  other  than 
the  keyboard  (for  example,  from  a  disk  or  mcA — 11 


Routine 


cooo 
cooo 

GETIN 

CHKOUT 

cooo 

20 

0B    CO  LOOP 

C003 

20 

D2  FF 

C006 

C9 

0D 

C008 
C00A 

DO 
60 

F6 

C00B 

20 

E4    FF  CHRKER 

COOE 

F0 

FB 

C010 

60 

;  Kernal  get-key  routine 


JSR  CHRKER 

JSR  CHROUT 

CMP  #13 

BNE  LOOP 
RTS 


JSR  GETIN 
BEQ  CHRKER 
RTS 


;  get  a  key  in  A 
.  print  it 
;  is  it  RETURN? 
;  if  not,  get  another  keypress 


! :  Return  a  keypress  in  .A, 
;  get  *n  ASCII  keystroke 
;  if  no  keypress,  then  loop 


See  also  BUFCLR,  CHRGTR,  CHRGTS,  MATGET. 


CT2FP,  CFP2I 


Name 

Convert  signed  integers  to  floating  point  and  vice  versa 
Description 

A  signed  integer  value  consists  of  16  bits  (two  bytes).  The 
highest  bit  indicates  the  sign  (%0  is  positive,  %1  is  negative); 
the  remaining  15  bits  contain  the  value.  Floating-point  num- 
bers may  contain  fractional  components  and  are  contained 
within  five  bytes.  This  routine  converts  between  the  two 
formats. 

Prototype 

1.  JMP  indirectly  through  $0005  (64)  or  $117C  (128)  to  con- 
vert integers  to  floating  point.  Enter  with  the  integer  value 
in  .A  (low  byte)  and  .Y  (high  byte).  The  resulting  floating- 
point value  will  be  left  in  FAC1  (floating  point  accumulator 
#1),  locations  $61-$65  (64)  or  $63-$67  (128). 

2.  Or  JMP  indirectly  through  $0003  (64)  or  $117A  (128)  to 
change  floating-point  numbers  to  integers.  Enter  with  the 
floating-point  value  in  FAC1  (floating  point  accumulator 
#1),  locations  $61-$65  (64)  or  $63-$67  (128).  The  integer 
value  will  be  returned  in  .A  (low  byte)  and  .Y  (high  byte). 

Explanation 

The  example  program  takes  the  two-byte  value  in  the  start  of 
BASIC  pointer,  converts  it  to  a  floating-point  number,  calls  the 
square-root  routine,  and  prints  the  resuLt.  There's  no  good  rea- 
son why  you'd  want  to  find  the  square  root  of  the  start  of 
BASIC,  of  course,  but  it  serves  as  a  good  example  of  using 
built-in  ROM  routines. 

The  RAM  vectors  to  the  built-in  conversion  routines  in 
BASIC  ROM  are  initialized  when  the  computer  is  turned  on  or 
reset.  The  example  also  uses  the  ROM  routine  for  the  SQR 
function,  which  calculates  the  square  root  of  the  floating-point 
value  in  FACl,  and  the  ROM  routine  that  prints  a  signed  inte- 
ger number. 

A  note  to  machine  language  programmers  who  want  to 
use  fractions  and  floating-point  routines  in  their  programs: 
There  are  a  variety  of  ways  to  avoid  fractions  or  to  simulate 
them  without  going  to  floating  point.  If  you're  convinced  that 
you  need  fractions,  you  may  take  one  of  two  routes.  The  first 
is  to  use  the  various  ROM  routines;  the  second  is  to  write  your 
own  floating-point  package.  If  you  depend  on  the  BASIC 
routines,  your  programs  will  perform  calculations  at  about  the 
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CI2FP,  CFP2I 


same  speed  as  a  BASIC  program,  which  is  a  good  argument  for 
using  BASIC  in  the  first  place.  Writing  your  own  floating-point 
package  is  feasible,  but  it's  a  lot  of  work,  and  the  end  result 
may  be  a  set  of  routines  that  aren't  much  faster  than  BASIC. 

Note:  128  programmers  should  substitute  the  following 
addresses:  SQR  =  $8FB7,  LINPRT  =  $8E32,  CI2FP  =  JMP 


Routine 


cooo 
cooo 


TXTTAB 

SQR 

LINPRT 


$BDCD 


iS  on  the  128-pointer  to  start 


! TXTTAB = 
;  of  BASIC 

;  ROM  square-root  routine  (SQR  -  $8FB7  on 
;  the  128) 

;L 


COOO  A4  2B 

C002  A5  2C 

C004  20    15  CO 

C007  20    71  BF 

C00A  20    18  CO 

CO0D  48 

COQE  98 

C00F  AA 

C010  68 

C011  20   CD  BD 

C014  60 


C015    6C  05    00  CI2FP 


LDY 
LDA 


|SR 

PHA 

TYA 

TAX 

PLA 


TXTTAB 
TXTTAB  + 1 
CI2FP 

3& 
CFP2I 


ISR  LINPRT 
RTS 


C013    6C  03    00    CFP2I         JMP  ($0003) 

See  also  B2SNIN,  B2UNTN,  BCD2BY, 


;  low  byte  of  the  pointer 
;  high  byte 
;  convert  it 

;  find  the  square  root  (ROM  routine) 

;  back  to  an  i-  

; save  .A 
;  -Y  to  .A 
i  to  .x 

:  get .A  back 
!  print  it 


;JMP($n7A)onthe  128 


f      IV,  C 
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CI2HEX 


Name 

Convert  a  two-byte  integer  to  four  hexadecimal  (ASCII)  digits 
Description 

This  routine  is  just  an  extended  two-byte  version  of  CB2HEX, 
which  converts  a  single  byte  into  two  hex  characters.  You  en- 
ter CI2HEX  with  the  high  byte  in  .A,  the  low  byte  in  .X.  The 
result  is  stored  in  a  buffer,  terminated  by  a  zero. 


1.  With  the  high  byte  in  .A  and  low  byte  in  .X,  call  the  byte- 
to-hex  (BYTHEX)  subroutine. 

2.  Copy  the  resulting  characters  (stored  in  zero  page)  to  a 

3.  Transfer  .X  to  .A  and  call  BYTHEX  again. 

4.  Copy  the  ASCII  hex  characters  to  the  buffer  again. 

Explanation 

The  example  routine  displays  a  section  of  memory  starting  at 
$0800,  where  BASIC  programs  are  stored  on  the  64.  On  the 
128,  programs  are  stored  at  $1C00  or  $4000,  depending  on 
whether  a  graphics  area  has  been  allocated.  To  adapt  the  pro- 
gram to  the  128,  change  the  $08  at  $C004  to  $1C  or  $40. 

The  CI2HEX  routine  is  called  to  set  up  the  memory  ad- 
dresses ($0800,  $0808,  $0810,  and  so  on)  to  be  printed  at  the 
beginning  of  each  line.  Then  eight  single-byte  values  are 
printed,  separated  by  spaces.  The  BYTHEX  subroutine  at 
$C07C  is  essentially  the  same  as  the  CB2HEX  routine  found 
elsewhere  in  this  book,  but  because  the  X  and  Y  registers  are 
used  in  the  calling  routines,  BYTHEX  is  careful  not  to  disturb 
any  values  in  the  registers. 

The  two  ASCII  characters  are  stored  in  $FD  and  $FE  tem- 
porarily. The  BUFFIT  routine  copies  these  characters  to  the 
buffer,  indexed  by  .Y.  Later,  the  PRBUFF  routine  prints  out  the 
characters  in  BUFFER. 

Routine 

cooo 
cooo 
cooo 
cooo 

COOO  A9  00 
C002  85  FB 
C004    A9  08 

C006    85    FC  STA     ZP+1  ;  set  up  a  pointer  to  $0800  in  ZP 

.- 

C008    A9  OA  LDA     #10  ;  ten  lines 

C00A  8D  9D  CO  STA      COUNTER       ;  stash  it  in  a  r 


CI2HEX 


COOD  A6 

COOF  A5 

COll  20 

C014  20 

C017  20 

C01A  AO 

C01C  Bl 

C01E  20 

C021  A5 

C023  20 

C026  A5 

C028  20 

C02B  20 

C02E  C8 

C02F  CO 

C031  DO 

C033  A9 

C035  20 

C038  A9 

C03A  18 

C03B  65 

C03D  85 

C03F  A9 

C041  65 

C043  85 

C045  CE 

C048  DO 

C04A  60 


FB 

FC 

4B  CO 
6E  CO 
69  CO 
00 


UTLOOP 


7C  CO 
FD 

D2  FF 
FE 

D2  FF 

69  CO 

08 
E9 
OD 

D2  FF 
08 

FB 
FB 
00 
FC 
FC 

9D  CO 
C3 


INLOOP 


C04B 

C04B  AO  00 

C04D  20  7C  CO 

COOT  20  57  CO 

C053  8A 

C054  20  7C  CO 

C057  A5  FD  BUFFIT 

C059  99  9E  CO 

C05C  C8 

C05D  A5  FE 

C05F  99  9E  CO 

C062  C8 

C063  A9  00 

C06S  99  9E  CO 

C068  60 


ZP 

ZP+1 

C12HEX 

PRBUFF 

PRSPC 

#0 

(ZP).Y 
BYTHEX 

fi 

CHROUT 
F2 

CHROUT 
PRSPC 


ZP 
ZP 
#0 

ZP+1 
ZP  +  1 
COUNTER 
UTLOOP 


LDY  #0 


TXA 

JSR  BYTHEX 

LDA  Fl  

STA  BUFFER,Y 
INY 

LDA  F2 

STA  BUFFER,Y 

INY 

LDA  #0 

STA  BUFFER,  Y 

RTS 


i  low  byte  of  pointer 

;  high  byte 

;  convert  it 

J  print  the  buffer 


;  print  RETURN 

;  add  8  to  the  ZP  pointer 
;  always  CLC  before  adding 
.add 

;  store  it  back 

:  adding  0  takes  care  of  carry 
j  store  that,  too 
■  count  down 
;  and  branch  back 


;  convert  -A  to  hex  in  F]r  F2 


C069  A9  20  PRSPC 

C06B  4C   D2  FF 

C06E  AO  00  PRBUFF 

C070  B9    9E    CO  PBLOOP 

C073  FO  06 

C075  20    D2  FF 

C078  C8 

C079  DO  FS 

C07B  60  OUT 
C07C  BYTHEX 

C07C  08 

C07D  48 

C07E  4A 

C07F  4A 

C080  4A 
C081 

93  CO 
FD 


LDA  #32 
IMP  CHROUT 

LDY  #0 
LDA     BUFFER.  Y 
BEQ  OUT 
JSR  CHROUT 
INY 

BNE  PBLOOP 

RTS 

= 

PHP 
PHA 
LSR 
LSR 
LSR 


;  print  a  space 


Fl 


;  save  the  processor  status 
; save  .A 


!  four  shift  rights,  for  the  high 
;add  48  (plus  7.  maybe) 
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C12HEX 


C087 

68 

PLA 

C088 

48 

PHA 

C089 

29 

OF 

AND 

#%00001 1 

C08B 

20 

93 

CO 

JSR 

ADD48 

C08E 

85 

FE 

STA 

F2 

DO 

PLA 

M 

C092 

28 

60 

RTS 

C093 

18 

ADD48 

CLC 

C094 

69 

30 

ADC 

#48 

C096 

C9 

3A 

CMP 

#58 

C098 

90 

02 

BCC 

NOMORE 

C09A 

69 

06 

ADC 

#6 

C09C 

60 

NOMORE 

RTS 

CO°D 

00 

COUNTER 

-BYTE  0 

• 

• 

•+255 

pull  .A  for  the  low  ro 
push  one  more  time 
mask  it 
and  add  48 
store  it  in  F2 
get  .A  back 
and  .P,  too 


1  add  48 
;  is  it  0-9? 
;  yes,  move  ahead 


:  a  big  buffer 

See  also  BCD2AX,  CAS2IN,  CB2ASC,  CB2HEX. 
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CLOSFL 


Name 

Close  a  file  and  restore  default  devices 
Description 

This  routine  closes  the  logical  file  whose  number  is  in  the 
accumulator.  It  also  restores  the  keyboard  and  screen  as  the 
current  input  and  output  devices. 

CLOSFL  can  close  any  external  channel  (such  as  disk  drive, 
printer,  or  modem)  as  long  as  the  channel  number  is  in  .A. 

Prototype 

L  Load  .A  with  the  logical  file  number  of  the  external  device. 

2.  JSR  to  CLOSE. 

3.  JMP  to  CLRCHN. 

Explanation 

See  PRTOUT  or  PRTSTR  for  programs  where  CLOSFL  is 
used  to  close  a  printer  channel.  In  the  WRITBF  and  READBF 
routines,  CLOSFL  closes  a  channel  to  the  disk  after  file  writ- 
ing or  reading.  No  error  will  occur  if  you  try  to  close  a  file 
which  hasn't  been  opened. 

Routine 

C000  CLOSE         -  65475 

COOO  CLRCHN      =  65-184 

■  CLOSFL  doses  ihe  logical  file  in  .A  and 

COOO    20    C3  TF    CLOSFL      JSR      CLOSE  SSSSSS^^ 
C003    4C  CC  FF  JMP     CLRCHN        ;  clear  aJJ  channels,  restore  default  devices, 

;  and  RTS 

See  also  OPENPR,  PRTOUT,  PRTSTR,  WRITBF,  WRITFL. 
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CLRCHR 


Name 

Clear  the  screen  with  CHR$(147) 
Description 

One  of  three  routines  in  this  book  that  clears  the  text  screen, 
this  one  accomplishes  the  task  by  printing  CHR$(147),  the 
Commodore  ASCII  code  for  clearing  the  screen. 

Prototype 

Load  .A  with  147  and  JMP  to  CHROUT. 
Explanation 

This  simple  program  clears  the  text  screen  and  prints  a  Y  in 
the  current  cursor  color. 

Note:  This  routine  is  much  faster  than  CLRFIL,  but  just 
slightly  slower  than  CLRROM.  Unlike  CLRROM,  though,  it 
has  the  advantage  of  relying  on  a  Kernal  ROM  routine,  specifi- 
cally CHROUT.  And  like  other  ROM  routines  accessed  from 
the  Kernal  jump  table,  CHROUT  will  be  called  from  the  same 


Routine 


;  Clear  screen  and  print  Y. 
;  clear  Ihe  screen 


;  Clear  the  screen  with  CHR$(147). 
;  print  CLEAR  SCREEN 
;  and  RTS 
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CLRFIL 


Clear  the  screen  with  a  fill  routine 
Description 

Yet  another  routine  to  clear  the  text  screen,  this  one  works  by 
storing  a  32  (the  screen  code  for  the  space  character)  into  each 
screen  memory  location. 

Prototype 

Using  a  loop,  store  spaces  in  all  1000  text-screen  locations. 
Explanation 

This,  short  program  clears  the  text  screen  by  filling  it  with 
spaces,  then  prints  an  X. 

Note:  This  routine  leaves  color  memory  unchanged.  If  you 
wish  to  fill  color  memory  at  the  same  rime  the  screen  is 
cleared,  insert  a  JSR  COLFIL  in  the  code  following  the  fill 
loop  and  add  COLFIL  to  the  end  of  the  program. 

You  may  notice  that  the  BNE  occurs  after  the  STAs  in  the 
primary  loop,  instead  of  in  its  more  natural  position  just  after 
a  DEY.  The  STA  instruction  does  not  affect  any  flags;  the  BNE 
refers  back  to  the  DEY  just  after  the  LDY.  The  four  store 


Routine 


cooo 
cooo 


SCREEN 
CHROUT  = 


1024 
65490 


;  normal  text-screen  position 


COOO    20    09  CO 
C003    A9  58 
C005    20    D2  FF 


JSR 
LDA 


;  Clear  screen  with  fill  and  print  X. 


i  print  X 


CO09  A9 

COOB  AO 

S£5 

COU  99 

C014  99 

C017  99 

C01A  DO 


C01C  60 


20 
FA 


CLRFIL 
LOOP 


FA 
F4 

EE 

n 


04 

04 
05 
06 


LDA 
LDY 
DEY 
STA 
STA 
STA 
STA 
BNE 


RTS 


#32 
#250 


SCREEN,Y  ;  1st  quarter 
SCREEN+250,Y  ;  2nd  quarter 
SCREEN+500.Y  ;  3rd  quarter 
SCREEN +750, Y  ;  4th  quarter 
LOOP  ;  fill  all  250  bytes 

;  Insert  JSR  COLFIL  to  fill  color  RAM  as 

;  well. 
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CLRHRF 


Name 

Clear  the  hi-res  screen  using  a  fill  m< 


Anytime  you  display  the  high-resolution  screen  without  first 
clearing  it,  you're  likely  to  see  whatever  garbage  resides  in  the 
underlying  memory.  To  avoid  this,  clear  screen  memory  with 
the  CLRHRF  routine,  or  with  CLRHRS,  before  you  view  it. 

The  routine  shown  here  relies  on  a  conventional  zero- 
page  addressing  technique  to  fill  8192  bytes  representing 
screen  memory  with  zeros.  CLRHRS  achieves  the  same  result, 
but  in  slightly  less  time  and  with  less  memory,  by  using  self- 
modifying code. 

With  either  method,  high -resolution  color  memory  re- 
mains intact.  If  you  want  to  nil  color  memory  at  the  same 
time,  insert  a  JSR  HRCOLF  into  your  code  where  indicated. 

Prototype 

1.  Store  the  address  of  the  high -resolution  screen  in  a  zero- 
page  pointer. 

2.  Set  .X  to  32  as  a  counter  for  the  number  of  pages  to  fill 
(32  *  256  =  8192). 

3.  Using  indirect  indexed  addressing,  fill  each  byte  within  a 
page  with  zero  (in  .A), 

4.  After  filling  a  page,  increment  the  page  pointer  in  zero 
page. 

5.  Decrement  .X.  If  it's  not  equal  to  zero,  go  to  step  3. 

6.  When  .X  =  0,  RTS  to  the  main  program.  (If  you  want  to 
clear  color  memory  as  well,  JSR  to  H~ 


Explanation 

In  the  example  program,  we  set  up  a  high-resolution  screen  at 
location  8192  and  clear  it  by  using  CLRHRF.  A  keypress  re- 
turns you  to  the  normal  text  screen. 

On  the  64,  before  locating  the  bitmap  within  the  current 
video  bank  (by  default,  bank  0),  you  must  save  the  contents  of 
the  VIC-II  chip  memory  control  register  at  53272  (VMCSB). 
This  register  contains  the  present  offset  address  within  the 
current  video  bank  for  the  character  set  (low  nybble)  and  the 
text  screen  (high  nybble). 

On  the  128,  during  each  IRQ  interrupt,  VMCSB  takes  its 
value  from  either  VM1  at  2604  (if  you're  in  text  mode)  or  from 
VM2  at  2605  (if  you're  in  bitmap  mode).  Since  VM1  is  never 
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CLRHRF 


altered  by  the  program,  you  don't  need  to  save  it  (or  VMCSB) 

Next,  bit  3  of  VMCSB  (VM2  on  the  128)  is  turned  on  to 
offset  the  high -resolution  screen  by  8K  within  the  current 
video  bank.  To  place  your  screen  in  the  first  half  of  the  video 
bank  (the  offset  will  be  0),  turn  off  bit  3  by  ANDing  the  con- 
tents of  the  control  register  with  247. 

Once  you've  located  the  high-resolution  screen,  the  sub- 
routine BITMAP  puts  the  screen  in  bitmap  mode.  The  screen 
is  then  cleared  with  CLRHRF. 

On  the  64,  returning  to  the  normal  text  screen  is  actually 
a  two-step  procedure.  After  bitmap  mode  has  been  disabled 
(again  with  BITMAP),  the  contents  of  the  VIC-II  memory  con- 
trol register  are  restored  so  that  they  point  to  the  character  set 
and  text  screen  that  were  previously  in  use.  On  the  128,  be- 
cause VMCSB  takes  its  value  from  VM1  in  text  mode,  you 
need  only  to  disable  bitmap  mode. 

Routine 

C000  ZP 

C000  GETIN 

COO0  VMCSB 

C000  SCROLY 

C000  VM2 


C000  AD  18  DO 

C003  8D  45  CO 

C006  09  08 

C008  8D  18  DO 

C00B  20  3A  CO 

C00E  20  20  CO 

C011  20  E4  FF  WAIT 

C014  F0  FB 

C016  20  3A  CO 


CO  19  AD  45  CO 
C01C  8D  18  DO 
COIF  60 


C020  AD  43    CO  CLRHRF 

C023  85  FB 

C025  AD  44  CO 

C028  85  FC 

C02A  A9  00 

C02C  A8 

176 


LDA 


JSR 

JSR 

JSR 

BEQ 

JSR 


RTS 


251 

65508 

53272 


2605 


VMCSB 
TEMP 


ORA  «%00001000 
STA  VMCSB 


BITMAP 
CLRHRF 

GETIN 

WAIT 

BITMAP 


;  VIC-n  chip  memory  control 
;  scroll/control  register — use  I 
;  216  on  the  128 

;  V1C-U  chip  memory  control  shadow 
;(128 


.-  Locate  a  hi-res  screen  at  8192  and  clear  it. 
.  temporarily  save  VMCSB  (64  only) 
;  (64  only) 

;  Now,  offset  bitmap  by  8K  in  video  bank. 
;  replace  with  AND  #%11110111  if  hi-res 
:  screen  is  in  first  half  of  video  bank 
;  reset  register  (replace  VMCSB  with  VM2  on 

;  enter  bitmap  mode 
;  clear  the  hi-res  screen 
;  get  a  keypress 
;  if  no  keypress,  wait 
:  ram  off  bitmap  mode 

;  Reset  i 

mm., 

; (64  only) 


LDA 

STA 
LDA 

STA 

LDA 
TAY 


ZP 

HRSCRN+1 
ZP+1 

#0 


i  Clear  the  hi-res  screen  with  a  fill  method. 
;  set  up  zero-page  pointers  to  the  hi-res 
;  screen 


,-Fill  32  pages  (8K>  with  zeros. 


CLRHRF 


C02D  A2 

C02F  91 

C031  C8 

C032  DO 

COM  E6 

C036  CA 

C037  DO 


20 
FB 

FB 
FC 

F6 


LOOP 


C039  60 

C03A   AD  11 

20 
11 


C03D 
C03F  8D 


DO  BITMAP 

DO 


C042  60 

C043  00 
C045  00 


2U 


IDX  #32 

STA  <ZP),Y 
INY 

BNE  LOOP 

INC  ZP+1 
DEX 

BNE  LOOP 


RTS 

LDA  SCROLY 


STA  5CROLY 
RTS 


HRSCRN  .WORD  8 192 
TEMP  .BYTE  0 


•,  CLRHRS,  H 


;32, 


;  fill  a  block  of  256  byte«  with  zero 
;  page  filled. 


;  memory  as  well. 


re  to  clear  color 


;  Enable/disable  bitmap  mode. 

;  substitute  GRAPUM  for  SCROLY  for  the 


:  locate  hi-res  screen 

j  temporary  storage  for  VMCSB  configuration 
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CLRHRS 


Name 

Clear  a  hi-res  screen  using  self-modifying  code 
Description 

This  is  probably  the  quickest  way  to  clear  the  8000  bytes  of  a 
hi-res  screen. 

Prototype 

1.  Store  the  address  of  the  high-resolution  screen  in  the 
dummy  address  (initially  $FFFF)  at  $C012. 

2.  Set  .X  to  32,  for  the  number  of  pages  to  fill 
(32  *  256  =  8192). 

3.  Fill  each  byte  within  a  page  with  zero  (in  .A)  using  absolute 
addressing  offset  by  .Y. 

4.  After  filling  a  page,  increment  the  high-byte  page  pointer  in 
the  absolute  address. 

5.  Decrement  .X.  If  it's  not  equal  to  zero,  go  to  step  3. 

6.  When  .X  =  0,  RTS  to  the  main  program.  (If  you  also  want 
to  clear  color  memory,  JSR  to  HRCOLF  just  prior  to 


It  might  look  confusing  when  you  first  read  through  the  pro- 
gram, but  the  idea  is  reasonably  simple.  The  line  at  $C011  is 
the  key.  It  says  STA  $FFFF,Y,  but  that  instruction  never  really 
happens.  The  first  part  of  the  program  takes  the  address  of  the 
hi-res  screen  (8192,  in  this  example)  and  stores  it  low  byte 
first,  just  after  the  STA  instruction. 

The  routine  works  by  modifying  itself,  changing  the  ad- 
dress after  the  STA  a  total  of  32  times. 


;  location— SFFFF 


;  Fill  32  pages  (8K)  with  zeros. 


Routine 

CO0O    AD  IF 

OB  CLRHRS 

IDA 

HRSCRN+t 

C003    SD  13 

CO 

STA 

LOOP +2 

COO*    AD  IE 

CO 

LDA 

HRSCRN 

C009    8D  12 

CO 

STA 

LOOP+1 

CMC   A9  00 

LDA 

#0 

C00E  A8 

TAY 

C00F    A2  20 

LDX 

#32 

C011    99  FF 

FF  LOOP 

STA 

$FFFF,Y 

C014  C8 

INY 

C015    DO  FA 

BNE 

LOOP 

;  32  pages 
;  fill  a  bl< 


[  of  256  bytes  with  zeros 


CLRHRS 


C017    EE  1J 

C01A  CA 
COIB    DO  F4 


COID  60 
C01E    00  20 


INC  LOOP+2 
DEX 

BNE  LOOP 


See  also  CLRFIL,  CLRROM. 


*  filled,  so  increase  high  byte  of 


;  to  fill  all  pages 

;  Insert  JSR  HRCOLF  here  to  dear  color 
i  memory  as  well. 
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CLRROM 


Name 

Clear  the  screen  with  a  ROM  routine 


This  is  one  of  three  routines  in  this  book  that  is  used  for  clear- 
ing the  text  screen.  Each  has  advantages.  This  particular  rou- 
tine uses  a  Kemal  ROM  routine  (labeled  CLRHOM)  located  on 
the  64  at  58692.  An  equivalent  routine  is  at  49474  on  the  128. 


JMP  to  CLRHOM. 
Explanation 

This  short  program  clears  the  text  screen  and  prints  a  Z.  The 
letter  will  print  in  the  current  cursor  color. 

Note:  CLRROM  is  much  faster  than  CLRFIL  and  slightly 


j""';  it  rail 


that  may  change  locations  on  a  later  version  of  the  64  or  128. 


CLRHOM  = 
CHROUT  - 


58692 


C000  20  09  CO 

C003  A9  5A 

C005  20  D2  FF 

C008  60 


JSR  CLRROM 

LDA  »90 

JSR  CHROUT 
RTS 


C0O9    4C   44    E5    CLRROM    JMP  CLRHOM 

See  also  CLRCHR,  CLRFIL. 


;  CLRHOM  =  49474  on  the  128 

'* 

;  Clear  the  screen  i 
;  dear  the  screen 
;  print  Z 


;  Clear  the  screen  with  a  Kemal  ROM 
;  routine. 
;  and  RTS 
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CNUMOT 


Name 

Print  the  value  of  a 


BASIC  offers  a  built-in  ROM  routine  for  printing  the  value  of 
a  two-byte  integer — LINPRT.  We've  shown  how  to  use  this 
routine  in  the  discussion  of  NUMOUT,  elsewhere  in  this  book. 

There  will  be  times,  however,  when  you'll  find  yourself 
working  in  a  programming  environment  where  it's  inconve- 
nient to  access  LINPRT — as  when  you're  in  RAM  under 
BASIC  ROM  on  the  64,  or  in  a  bank  that  doesn't  contain 
BASIC  on  the  128.  At  other  times,  you  may  simply  want  to 
write  a  generic  program  that  runs  on  both  the  128  and  the  64. 

In  either  case,  a  custom  routine  like  CNUMOT  will  give 
you  this  option. 

Prototype 

1.  Prior  to  entering  the  routine,  set  up  a  table  of  two-byte  sub- 
trahends for  each  digit's  place— 1,  10,  100,  1000,  and 
10,000. 

2.  Enter  this  routine  with  the  two-byte  number  to  print  in  .X 
(low  byte)  and  .A  (high  byte). 

3.  Save  the  low  and  high  bytes  of  the  integer  in  zero  page 
locations. 

4.  Count  the  number  of  times  the  subtrahend  representing  the 
largest  digit's  place  (10,000)  can  be  subtracted  from  the 
value  (in  .X  and  .A)  before  a  number  less  than  zero  results. 

5.  Print  this  number  to  the  screen. 

6.  Repeat  steps  4  and  5  for  the  remaining  digit  places— 1000, 
100,  10,  and  1. 

Explanation 

With  CNUMOT,  we  print  the  two-byte  starting  address  of 
BASIC  text. 

Here,  CNUMOT  works  much  like  our  conversion  routine 
for  a  one-byte  integer  (see  BYTASC).  Again,  a  subtraction 
method  is  used,  only  this  time  it  handles  a  second  byte  as 
well.  And  instead  of  passing  a  single  byte  to  the  routine  in  .A 
as  before,  the  low  byte  of  the  two-byte  integer  is  sent  to  the 
routine  in  .X  and  the  high  byte  in  .A. 

Although  it  takes  some  time  to  set  up  the  routine,  the 
basic  idea  is  simple.  First,  subtract  10,000.  Subtract  it  again 
and  again  until  a  negative  number  results.  Now  you  know 
how  many  1 0,000s  fit  into  the  number.  Next,  subtract  1000  as 
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many  times  as  necessary.  The  third  step  is  to  subtract  100, 
then  10,  then  1.  At  each  stage,  the  program  keeps  track  of 
how  many  times  a  given  value  has  been  subtracted  and  prints 
out  the  total. 

In  this  case,  the  integer  occupying  a  two-byte  address 
must  lie  in  a  range  from  0  through  65535.  The  number  can 
have  as  many  as  five  digits. 

Begin  with  the  highest  digit  for  the  number— here,  the 
10,000's  place.  We  repeatedly  subtract  10,000— the  first  entry 
in  the  table  of  two-byte  subtrahends,  or  TB2SUB— from  the 
two-byte  number  until  a  negative  result  occurs.  For  each 
subtraction  that  yields  a  positive  value  (>=0),  increment  the 
place-holder  counter — kept  here  in  the  Y  register. 

When  subtraction  finally  produces  a  negative  value,  the 
two-byte  number  itself  is  restored  to  the  value  it  had  before 
this  last  subtraction,  and  the  ASCII  equivalent  of  the  digit  in 
.Y  printed  within  DONE. 


A  flag  (ZEROFL)  within  the  printing  routine  prevents 
leading  zeros  from  being  displayed.  Only  when  this  flag  con 
tains  a  nonzero  value  will  the  digit  zero  be  printed.  If  ZI 
is  still  zero  after  all  five  digits  have  been  evaluated,  we  simply 
print  a  zero. 

Note:  There  is  one  important  difference  between  this  rou- 
tine and  BYTASC  when  it  comes  to  understanding  the  two. 
Here,  each  digit  is  printed  after  it  has  been  converted,  whereas 
with  BYTASC,  we  wait  to  print  the  entire  number  after  all 
digits  have  been  converted. 


i  TXTTAB  =  45  on  the  128— start-of-BASIC 
:  pointer 


:  Print  t 
;  clear  t 


Routine 

cooo 
cooo 

cooo 

CHROUT 
TXTTAB 

ZP 

65490 
251 

COOO  A9 

93 

CLRCHR 

LDA 

#147 

C002  20 

D2 

FF 

JSR 

CHROUT 

C005  AO 

00 

LDY 

#0 

C007  B9 

71 

CO 

LOC 

LDA 

C00A  FO 

07 

BEQ 

POINT 

C00C  20 

D2 

FF 

JSR 

CHROUT 

C00F  C8 

INY 

C010  4C 

07 

CO 

JMP 
LDX 

LOOP 

C013  A6 

2B 

POINT 

TXTTAB 

e  screen 


C015    A5  2C 


LDA     TXTTAB  + 1 


;  Print  the  message. 

;  print  'BASIC  STARTS  AT  " 

;  if  zero  byte,  then  don't  print  it 

;  next  character 
;  and  continue 
;  load  low-  i 
j  pointers 
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C017    4C    1A  CO 


JMP      CNUMOT        i  convert  two-byte  integer  to  ASCII.,  print  it. 


CO!  A   86    FB  CNUMOT    STX  ZP 


C01C  85  FC 

C01E  A9  00 

C020  8D  82  CO 

C023  A2  08 

C02S  AO  FF 

C027  CB 

C028  A5  FB 

C02A  48 

C02B  38 

C02C  FD  67  CO 

C02F  85  FB 

C031  AS  FC 

C033  48 

C034  FD  68  CO 

C037  85  FC 

C039  90  05 


STA 
LDA 
STA 
LDX 


1NITCT 
SUBTLP 


STA 
BCC 


C03C  68 

C03D  4C   27  CO 


C040  68  DONE 

C041  85  FC 

C043  68 

C044  65  FB 

C046  98 

C047  AC  82  CO 

C04A  DO  07 

C04C  C9  00 

C04E  FO  08 

C050  8D  82  CO 

C053  09  30  CNVF.RT 

C055  20  D2  FF 

C058  CA  ZEROHI 

C059  CA 

C05A  10  C9 

C05C  AD  82  CO 

C05F  DO  OS 

A9  30 

20  D2  FF 


EXIT 


C067  01  00    OA  TB2SUB 

C071  42  41    53  STRING 

C08I  00 

C082  00  ZEROFL 


ZP  +  1 
#0 

ZEROFL 
#8 


LDY  #255 
INY 

LDA  ZP 
PHA 


.  CNUMOT  converts  two-byte  integer  in 
;  .X  (low)  and  A  (high  byte)  to  ASCI!  and 
;  prints  it. 

;  save  low  and  high  byte  of  integer  to  zero 
•  page 

;  initialize  ZEROFL 

;  index  to  TB2SUB  table,  initially  points  to 
;  low  byte  of  10000 

;  initialize  counter  for  each  digit's  place 
;  begin  subtraction  loop,  counter  starts  with 


;  save  the  low  byte  of  number 


TB2SUB.X 

ZP 
ZP+1 

TB2SUB+1,X 


;  subtract  low  byte  of  subtrahend  from  low 
;  byte  of  number 
.-  store  result  in  zero  page 
;  now  do  the  same  with  high  byte 
;  save  the  high  byte  of  the  number 

subtract  high  byte  of  subtrahend  from 
;  high  byte  of  number 
ZP+1  ;  and  store  the  result 

DONE  ;  subtraction  gave  number  less  than  zero, 

;  so  we're  done 
;  restore  the  stack 

;  and  continue  subtraction 
;  Restore  high  and  low  bytes  to  values 
;  before  we  dropped  below  zero. 
;  pull  high  byte 
;  and  store  it 

,-  pull  low  byte  of  number 
,-  and  store  it  also 
;  put  digit's  place  counter  into  .A 
;  determine  whether  a  nonzero  digit  has 
;  occurred 

;  branch  if  a  nonzero  digit  has  been  printed 
;  check  for  zero 

;  don't  print  a  zero  if  no  nonzero  digits 
;  have  been  printed 
;  change  the  flag  to  a  nonzero  value 
;  convert  digit's  place  counter  to  ASCII 
;  and  print  it 

;  decrement  twice  for  each  word  in 
;  subtrahend  table 


PL  A 
PLA 

JMP  SUBTLP 


PLA 

STA  ZP+1 


ZP 


BNE  CNVERT 

CMP  #0 

BEQ  ZEROHI 

STA  ZEROFL 

ORA  #48  ^ 

DEX 

DEX 

BPL  INITCT 

LDA  ZEROFL 

BNE  EXIT 

LDA  #48 


:  for  the  next  place 

;  determine  if  the  number  is  00000 

;  if  not,  then  return 


a  zero 


;  we're  finished 

.  WORD  1,10,1 00, 1000. 1 0000 

:  two-byte  table  of  subtrahends 
.ASC    "BASIC  STARTS  AT  " 
.BYTE  0 
BYTE  0 


:  flag  for  first  nonzero 

See  oho  BYTASC,  FACPRD,  FACPRT,  NUMOUT. 
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Name 

Convert  a  two-byte  value  to  a  floating-point  number,  using  a 
ROM  routine  6 

Description 

If  you  find  occasion  to  use  the  built-in  floating-point  routines 
for  trigonometric  and  other  functions,  this  ROM  routine  is 
helpful.  It  converts  a  two-byte  integer  to  its  floating-point 
equivalent. 

Prototype 

1.  JSR  to  GIVAYF  with  the  low  byte  in  .Y  and  the  high  byte 
in  .A. 

2.  The  result  is  returned  in  the  floating-point  accumulator. 
Explanation 

The  GIVAYF  routine  is  located  at  $8391  on  the  64;  $AF03  on 
the  128.  (Be  sure  your  program  is  operating  with  bank  15  in 
place  before  you  call  this  routine  on  the  128.)  The  floating- 
point accumulator  comprises  locations  $61-$66  on  the  64; 
$63-$68  on  the  128. 

Routine 


cooo 


GIVAYF 


w    A9  32  MAIN 
C002    20    06  CO 
COOS  60 


C006  A8 

C007  A9  00 

C009  20  91 

C00C  60 


CNVBFP 


B3 


LDA 

|SR 

RTS 

TAY 
LDA 
JSR 

RTS 


$B391 


CNVBFP 


#0 

GIVAYF 


;  GIVAYF  -  $AF03  on  the  128— ROM 
;  routine  thai  converts  Into  FP 

;  the  number  50  will  be  converted 
;  convert  it 


;  the  low  byte  goes  into  .Y 

;  the  high  byte  into  .A 

;  the  result  is  stored  Into  FP  accumulator  at 

;  S61-S66  (S63-S68  on  the  128) 


See  also  B2SNLN,  B2UNIN,  BCD2BY,  CB2BCD,  CFP2I,  CI2FP. 
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Name 

Character  conversion  using  a  lookup  table 
Description 

Most  of  the  routines  in  this  book  that  convert  one  character 
code  to  another  (for  instance,  from  Commodore  ASCII  to 
screen  codes)  rely  on  the  fact  that  ranges  of  characters  fre- 
quently possess  similar  bit  patterns.  In  these  routines,  you 
determine  what  range  the  character  is  in,  usually  by  compari- 
son with  the  low  and  high  limits  of  the  range.  Based  on  the 
result,  certain  bitwise  manipulations  are  carried  out  to  com- 
plete the  conversion. 

This  method  works  on  most  occasions.  However,  if  you're 
faced  with  a  situation  in  which  you  have  to  completely  re- 
arrange the  order  of  the  characters,  and  no  ostensible  bit  pat- 
terns exist,  you'll  have  to  take  another  approach. 

The  CNVERT  routine  routine  addresses  that  problem.  At 
the  same  time,  it  offers  a  method  of  character  conversion  that 
is  much  faster  than  the  others.  And  speed  may  be  a  require- 
ment of  your  conversion  routine,  especially  if  the  routine  is 
incorporated  into  a  terminal  program  where  timing  can  be 
critical. 

CNVERT  itself  is  a  very  simple  routine.  It  accepts  an  in- 
put character  from  the  accumulator  and,  based  on  its  number, 
returns  the  equivalent  code  from  a  lookup  table  at  the  end  of 
your  program.  A  one-to-one  correspondence  exists  between 
the  mcorning  and  outgoing  values.  If  the  accumulator  contains 
a  78  coming  into  the  CNVERT  routine,  the  seventy-eighth 
character  value  in  the  table  is  returned  in  .A. 

The  lookup  table  must  be  created  beforehand.  It  can  be 
built  by  the  program  using  a  conversion  routine  (as  is  done 
below)  if  the  table  follows  a  discernible  pattern.  Otherwise,  it 
can  be  set  up  as  a  list  of  .BYTE  statements. 

Prototype 

L  Transfer  the  incoming  character  value  in  .A  to  .Y. 
2.  Load  the  corresponding  character  value  from  the  table  as 
indexed  by  .Y  and  return. 

Explanation 

The  example  program  first  prepares  a  table  of  equivalent 
screen  codes  for  all  incoming  Commodore  ASCII  characters  in 
the  routine  TABPRE.  This  table  (simply  called  TABLE  here)  is 
prepared  by  putting  each  Commodore  ASCII  value  sequen- 
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tially  through  the  conversion  routine  CASSCR  and  storing  the 
value  returned  into  the  table.  Since  256  characters  are  to  be 
converted,  the  table  itself  is  256  bytes  long.  It's  conveniently 
placed  outside  the  working  code  at  the  end  of  the  program. 

After  the  lookup  table  has  been  created,  the  program  ac- 
cepts character  values  entered  from  the  keyboard.  Each  charac- 
ter you  type  in  is  printed  at  the  beginning  of  the  screen, 
converted  with  CNVERT  to  the  equivalent  screen  code,  and 
POKEd  to  the  screen,  working  back  from  the  end  of  screen 
line  3.  This  continues  until  you  type  RETURN. 

Routine 


cooo 
cooo 
cooo 
cooo 
cooo 


cooo 


CHROUT 

GETIN 

ZP 

SCREEN 
COLRAM 
BGCOLO 
COLOR 


65508 

251 

1024 

55296 

53281 

646 

0 

if 

4 


;  start  of  text  screen 

;  start  of  color  RAM 

;  screen  background  color 

;  COLOR  -  241  on  the  128 


COOO  A9 
C002  20 
C005  A9 
C007    8D  21 
COOA   A9  04 
C00C   8D  86 
20  36 
A2  78 


C012 
C014 
CO  15 
C018 
C01B 
C01D 


CA 
8E 
20 
F0 
20 


93 

D2  FF 
0C 

DO 

02 
CO 


E4  FF 
FB 

D2  FF 


GLRCHR 
BCKCOL 
TXTCOL 

PRTLOP 
WAIT 


C020  C9  0D 

C022  F0  11 

C024  20  4D  CO 

C027  AE  8B  CO 

C02A  9D  00  04 

C02D  A9  00 

C02F  9D  00  D8 

C032  4C  14  CO 

C035  60 


LDA 

[5R 

LDA 

STA 

LDA 

STA 

JSR 

LDX 

DEX 

STX 

JSR 

BEQ 

JSR 


LDX 
STA 


#147 

CHROUT 

«MDGRAY 

BGCOLO 

* PURPLE 

COLOR 

TABPRE 

§<m 

TEMPX 
GETIN 
WAIT 
CHROUT 


TEMPX 
SCREEN,X 


LDA  ifBLACK 


COLRAM.X 
PRTLOP 


;  Input  Commodore  ASCII  characters. 
;  Convert  to  screen  codes  using  a  table 
;  and  POKE  resulting  codes  to  the  screen. 
;  Quit  on  RETURN. 

;  dear  the  screen 

;  set  screen  background  color  to  medium  gray 

;  set  text  color  to  purple 

;  prepare  conversion  table 

;  as  an  offset  for  POKEing  screen  codes 

>  position  screen  pointer  for  next  character 

i  save  .X  since  GETIN  corrupts  it 

;  get  a  character  to  convert 

;  if  no  character,  wait 

;  print  Commodore  ASCII  character  at  start  of 


;  use  table  to  determine  corresponding  screen 

;  code 

;  restore  .X 

;  store  screen  code  at  end  of  screen  line  3  and 
;  work  back 

!  set  foreground  color  of  character  to  black 
!  (for  early  64s) 

;  always  continue  printing 


C036    AO  00 


LDY 


#0 


;  TABPRE  converts  entire  character  set  from 
;  Commodore  ASCII  to  screen  codes 
;  as  an  index 
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C038  8C  8C  CO 

C03B  AD  8C  CO  TABLOP 

C03E  20  52  CO 

C041  AC  8C  CO 

C044  99  8D  CO 

C047  EE  8C  CO 

C04A  DO  EF 

C04C  60 


STY  TEMPY 
LDA  TEMPY 
JSR  CASSCR 


INC  TEMPY 
BNE  TABIDP 
RTS 


8D  CO 


CNVERT 


C064  38 
C065  60 
C066  AD 


C052  C9  FF  CASSCR 

C054  DO  04 

C056  A9  7E 

C0S8  18 

C059  60 

C05A  8D  8A  CO  NEQUTV 

C05D  29  60 

C05F  DO  05 

C061  AD  8A  CO  ERROR 


CO  UPPLOW 


TAY 
LDA 
RTS 


CMP  #255 

BNE  NEQUTV 

LDA  al26 
CLC 
RTS 

STA  TEMPA 

AND  *%01100000 

BNE  UPPLOW 

LDA  TEMPA 

SEC 
RTS 

LDA  TEMPA 


;  in  case  the  conversion  routine  corrupts  Y. 
;  counter  for  character  number 
:  convert  it  to  a  screen  code 
;  restore  .Y 
:  store  converted  c 
I  table 

;  to  convert  next  Commodore  ASCII  character 
;  if  we  haven't  done  the  entire  set 
;  return  to  MAIN 

•  Convert  a  Commodore  ASCII  value  using 
;  the  created  lookup  table. 
;  character  initially  is  In  .A 
;  look  up  conespondlne  acre. 
;  return  to  MAIN 


3  screen  code 


;  Convert  Commodore  ASCII  in  .A  to  screen 
;  code  in  .A. 

;  Upon  returning,  carry  is  clear. 
;  If  no  corresponding  screen  code  exists,  carry 
i  is  set  to  indicate  error  and  .A  is  the  same. 
;  is  it  pi? 

;  if  not.  check  (or  nonequivalent  codes 
:  255  becomes  126 

;  and  we  exit 


C06D  C9  60 
C06F    FO  12 


C071  0E  8A  CO  REMAIN 
C074  2A 

C075    2E  8A  CO 
C078  6A 

C079    6E  8A  CO 

IE  8A  CO 


CMP 
BEQ 


ASL 
ROL 
ROL 

m 

ROR 


;  checks 

:  check  (or  nonequivalent  codes  (0-31  and 
;  128-159) 

:  if  no,  check  for  upper/lower  hall  o( 
;  character  set 

;  otherwise,  no  equivalent  code 
;  Restore  .A 
;  and  indicate  error. 

;  restore  A 

;  in  lower  half 

:  First  check  whether  in  range  96-127. 
*%01100000     ;  bit  5  and  6  are  set  if  in  96-127 
TOPLOW        j  if  so,  convert 

- 

;  Otherwise,  handle  remainder  (32-63,  64-95, 
•  160-191,  192-223.  224-254). 
;  Shift  bit  7  to  6  of  TEMPA  (containing  the 
;  character)  and  set  bit  7  to  0. 
;  bit  7  ol  TEMPA  into  carry 
;  carry  into  bit  0  of  .A 
TEMPA  ;  bit  6  of  original  TEMPA  goes  into  cany 

;  bit  0  o(  .A  back  into  carry 
;  cany  into  bit  7 

;  move  7  to  6  while  setting  7  to  0 
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C07F    AD  8A  CO 


AD 
29 
18 
60 


C086 
C088 
C089 
C08A  00 
C08B  00 
C08C  00 
C08D 
C18D 


8A  CO  TOPLOW 
SF 


TEMPA 
TEMPX 
TEMPY 
TABLE 


See  oho  CASSCR, 
SWITCH. 


LDA  TEMPA 
RT5 

LDA  TEMPA 

AND  *%oioinn 

CLC 

RTS 

,BYTE0 

-BYTE0 

-BYTEO 

=  ■ 

•= 


;  and  return  with  an  equivalent  code 


;  for  temporary  .A  storage 
;  for  temporary  .X  storage 
;  for  temporary  .Y  sti 
;  screen  code  table 


3,  MIXLOW,  MIXUPP, 
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Name 

Cold  start 

Description 

When  you  cold  start  the  64  or  128,  the  power-on  reset  routine 
causes  the  computer  to  go  through  certain  initialization  pro- 
cesses, just  as  when  you  first  turn  it  on.  On  the  128,  the  MMU 
configuration  registers  are  restored  to  their  default  settings, 
placing  you  in  bank  15. 

On  both  machines,  the  system  ROMs  are  enabled  (thus, 
you're  returned  to  the  regular  character  set  if  redefined  charac- 
ters are  being  used).  If  an  autostart  cartridge  is  in  place  on  the 
64,  the  cartridge  cold-start  vector  at  32768  is  executed.  Other- 
wise, a  RAM  test  is  performed  on  both  computers,  and  the  16 
page-3  RAM  vectors  are  restored.  These  include  the  interrupt 
vectors  as  well  as  a  number  of  important  Kernal  I/O  vectors. 
The  computer  also  initializes  the  VIC-II  chip  (thereby  restoring 
the  default  screen)  and  exits  into  the  main  BASIC  loop,  clear- 
ing the  screen  and  printing  the  power-on  message  about 
BASIC  and  the  number  of  bytes  available. 

In  the  process,  the  pointers  to  the  BASIC  program  text  are 
set  to  their  default  values.  In  effect,  a  BASIC  NEW  has  been 
performed. 

As  you  can  see,  then,  performing  a  cold  start  has  a  dra- 
matic effect  on  the  computer.  But,  it's  also  ideal  if  you  want  to 
return  the  computer  to  its  default  condition  when  you  exit 
your  ML  program. 

Prototype 

Jump  to  the  power-on  reset  routine. 
Explanation 

The  example  program  causes  a  cold  start  when  the  left-arrow 
key  (in  the  upper  left  corner  of  the  keyboard)  is  pressed. 

COLDST  itself  is  simple.  It  jumps  to  the  cold-start  routine 
in  your  computer.  On  the  64,  this  routine  starts  at  64738;  on 
the  128,  it's  located  at  65341. 
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CETIN 


Routine 

cooo 


C000  20  £4    FF  LOOP 

C003  F0  FB 

C0O5  C9  5F 

C007  DO  F7 

C009  4C  OC  CO 


65S08 


JSR  CETIN 

BEQ  LOOP 

CMP  #95 

BNE  LOOP 

IMP  COLDST 


C0OC   4C   E2    FC  COLDST  JMP 

See  also  WARMST. 


I  RESET  =  65341  on  the  128 

■  Perform  a  machine  cold  start  with 
;  left-arrow 
;  key. 

;  get  a  character 
;  if  no  input 

;  is  it  left-arrow  character? 
;  if  not,  get  another  key 
;  execute  cold  start 

;  COLDST  resets  the  computer. 
t  cold  start  the  compute, 


COLFIL 


Name 

Fill  text  screen  color  memory 
Description 

If  you  print  characters  to  the  screen,  they  will  appear  in  the 
current  cursor  color.  But  if  you  store  them  to  screen  memory, 
characters  will  appear  in  the  color  currently  in  the  correspond- 
ing color  RAM  position.  With  COLFIL,  you  can  unify  the 
overall  text  screen  color  by  filling  color  RAM  with  one  of  the 
16  colors. 

The  table  gives  the  color  values  available  on  the  64  and 
128  (40-column  screen)  and  the  colors  they  represent. 


Color  Va 

dues 

Color 

Color 

Number 

0 

Color 

Black 

Number 

8 

Color 

1 

White 

9 

Orange 
Brown 

2 

Red 

10 

Light  red 

3 

Cyan 

11 

Dark  gray 

4 

Purple 

12 

Medium  gray 

5 

Green 

13 

Light  green 

6 

Blue 

14 

Light  blue 

7 

Yellow 

15 

Light  gray 

Prototype 

1.  Enter  this  routine  with  the  designated  color  value  in  .A. 

2.  Within  a  loop,  fill  all  1000  bytes  of  color  RAM. 

Explanation 

The  example  program  fills  text  screen  color  memory  with  pur- 
ple, assigned  as  COLVAL. 

Note:  Another  method  of  filling  color  memory,  which  re- 
quires less  code,  may  be  useful  to  you,  depending  on  the  ver- 
sion of  ROM  in  your  64.  Clearing  the  screen  with  CHR$(147) 
(see  CLRCHR  and  CLRROM)  affects  screen  color  memory 
differently  on  different  64s.  The  earliest  version  of  ROM  (ver- 
sion 1)  always  fills  color  memory  with  white  when  the  screen 
is  cleared.  With  version  2,  color  memory  is  filled  with  the 
background  color  of  the  screen  prior  to  the  clear.  So,  to  fill 
color  memory  with  a  particular  color,  you  would  simply  store 
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your  color  value  in  the  background  color  register  at  53281  and 
clear  the  screen  by  printing  CHR$(147).  Then  you  would 
change  the  background  to  the  color  you  prefer. 

The  most  recent  version  of  64  ROM  (version  3),  and  also 
128  ROM,  causes  color  memory  to  fill  with  the  current  cursor 
color  when  the  screen  is  cleared.  In  this  case,  to  fill  color 
memory  with  a  particular  color,  you  would  store  the  appro- 
priate color  value  in  the  foreground  text  color  register  at  646 
(241  on  the  128)  and  clear  the  screen  as  before. 

Routine 

0000  COLRAM     -       55296  ,-  text  screen  color  RAM  location 


AD  18  CO 
4C   06  CO 


C006 
COOS 
C009 

cooc 

COOF 

con 
cois 

C017 


FA 


COLFIL 
LOOP 


D8 
D8 


LDY 
DEY 
STA 
STA 
STA 
STA 

BNE 


COLVAL 
COLFIL 


#250 


;  Fill  color  RAM  with  purple. 
;  get  a  color 

,-  fill  color  RAM  and  RTS 

i  Fill  text  screen  color  RAM  with  color  value 
I  in  .A. 


COLRAM.Y  ;  lat  quarter 
COLRAM+250.Y ;  2nd  quarter 
COLRAM+500.Y ;  3rd  quarter 
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Name 

Concatenate  two  files 
Description 

At  times  you  may  want  to  append  the  contents  of  one  file  to 
the  end  of  a  second  file.  That's  what  this  routine  does.  Both  of 
the  original  files  remain  unchanged;  the  new  (third)  file  will 
contain  a  combination  of  the  two  original  files. 

Prototype 

1.  Open  the  disk  command  channel  (Kernal  SETLFS, 
SETNAM,  OPEN). 

2.  Send  the  copy  command  as  part  of  the  SETNAM  routine. 

3.  Close  the  command  channel. 

Explanation 

This  routine  is  basically  the  same  as  the  COPYFL  routine- 
however,  instead  of  copying  one  file  to  another,  you  copy  two 
files  into  a  new  file. 

The  filenames  in  the  example  are  ABC  and  DEF,  which 
are  contained  in  the  string  that  starts  at  $C01E.  Note  that 
they're  separated  by  commas.  What  happens  is  that  ABC  is 
copied  to  a  new  file,  followed  by  DEF.  The  result  is  a  new, 
concatenated  file  called  NEWFILE  on  disk. 

Note:  CONCAT  will  combine  two  sequential  (SEQ)  files 
just  fine.  If  you  try  to  concatenate  two  program  (PRG)  files, 
and  then  load  the  resulting  program,  only  the  first  program 
will  list.  At  the  end  of  a  program  in  memory  are  three  zeros. 
When  the  LIST  command  finds  the  zeros,  it  stops.  The  second 
program  is  there,  but  it's  just  beyond  the  zeros  and  can't  be 
accessed  unless  you  go  in  and  remove  the  final  two  zeros  (and 
move  the  second  part  of  the  program  down  by  two  bytes). 

Routine 


cooo 

SETLFS 

$FFBA 

cooo 

SETNAM 

$FFBD 

cooo 

OPEN 

$FFC0 

cooo 

CLOSE 

SFFC3 

cooo 

CLRCHN 

$FFCC 

cooo 

A9 

01 

CONCAT 

LDA 

#1 

logical  file  (1) 

C002 
C004 

A2 

08 

LDX 

#8 

disk  drive  Is  device  8 

AO 

OF 

LDY 

#15 

command  rimmcj  15 

C006 

20 

BA  FF 

JSR 

SETLFS 

prepare  to  open  it 

C009 

A9 

17 

LDA 

#BUFLEN 

length  of  buffer 

COOB 

A2 

IE 

LDX 

#<BUFFER 

X  and  Y  hold  the 
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COQD  AO  CO 

COOF  20  BD  FF 

C012  20  CO  FF 

C015  A9  01 

C017  20  C3  FF 

C01A  20  CC  FF 
60 


LDY 

JSR 

JSR 

LDA 

JSR 


C01E    43    30    3A  BUFFER  .ASC 


C034  OD 
C035 


#>BUFFER 
SETNAM 
OPEN 
#1 

CLOSE 
CLRCHN 


;  address  of  the  buffer 
;  set  name 
:  open  It 

;  and  Immediately 
;  close  the  command  channel 
;  clear  the  channels 
;  all  i 


BUFLEN  = 


j  Data  area 
•'C0:NEWFI1_E=0:ABC,0;DEF" 

;  substitute  your  own 
BYTE  13  :  RETURN  character 

•  -  BUFFER 


See  also  COPYFL,  FORMAT,  INITLZ,  RENAME,  SCRTCH,  VALIDT. 


194 


COPYFL 


Name 

Copy  a  file  to  the  same  disk 

The  DOS  Copy  command  is  really  intended  for  making  back- 
ups with  a  dual  drive,  but  Commodore  hasn't  manufactured  a 
dual  drive  for  several  years.  Thus,  the  copy  command  is  useful 
only  for  copying  a  file  (under  a  different  name)  to  the  disk  it 
already  occupies. 

Prototype 

1.  Open  channel  15  (Kernal  routines  SETLFS,  SETNAM, 
OPEN). 

2.  As  part  of  the  name,  include  the  copy  command. 

3.  Close  the  command  channel. 

Explanation 

The  key  to  this  routine  is  the  string  at  the  end  of  the  program, 
"C0:NEWFILE=0:OLDFILE",  which  tells  the  disk  drive  to 
copy  the  program  OLDFILE  on  drive  0  to  the  file  named 
NEWFILE  on  the  same  drive. 

The  SETLFS  routine  sets  up  logical  file  %  drive  8,  channel 
15.  Then  SETNAM  sets  the  length  and  address  of  the  com- 
mand and  we  OPEN.  Then,  the  job  finished,  we  close  the 
channel. 

In  actual  practice,  you  may  want  to  set  up  a  separate 
buffer  for  the  copy  command  and  write  different  parameters  to 
the  data  area.  After  all,  it's  fairly  rare  that  youll  always  be 
copying  files  called  OLDFILE  to  a  new  name  called  NEWFILE. 

Note:  If  you  own  additional  disk  drives,  you  may  want  to 
change  the  drive  number  at  $C002-$C003  to  9,  10,  or  11. 
Also,  if  you  own  a  dual  drive,  you  may  change  one  or  both  of 
the  zeros  in  the  ASCII  string  to  ones. 


Routine 

cooo 

SETLFS 
SETNAM 

— 

$FFBA 

cooo 

SFFBD 

cooo 

OPEN 

= 

$FFC0 

CLOSE 

$FFC3 

CLRCHN 

$FFCC 

cooo 

A9 

01 
08 

COPYFL 

LDA 

#1 

logical  file  <1) 

C002 

A2 

LDX 

#8 

disk  drive  Is  device  8 

C004 

AO 

OF 

FF 

LDY 

#15 

command  channel  15 

C006 

20 

BA 

JSR 

SETLFS 

prepare  to  open  it 

C009 

A9 

15 

LDA 

#BUFLEN 

iength  of  buffer 

COOB 

A2 

IE 

LDX 

#<BUFFER 

.X  and  .Y  hold  the 

CO0D 

AO 

CO 

LDY 

#>BUFFER 

address  of  the  buffer 
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COOF    20    BD  FF  JSR      SETNAM         ;  set  name 

C012    20    CO  FF  JSR      OPEN  ;  open  it 

C015    A9  01  I  DA    #1  ;  and  immediately 

C017    20    C3  FF  JSR      CLOSE  ;  close  Ihe  command  channel 

COIA   20    CC  FF  JSR      CLRCHN         ;  cleat  the  channels 

C01O  60  RTS  ;  all  done 

;  Data  area 

C01E    43    30    3A  BUFFER       .ASC  "C0:NEWFILE=0:OLDFIL£" 

!  substitute  your  own  filenames 
C032    OD  .BYTE   13  ;  RETURN  character 

C033  BUFLEN       =         *  -  BUFFER 

See  also  CONCAT,  FORMAT,  INITLZ,  RENAME,  SCRTCH,  VALIDT. 
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Name 

Custom  characters  for  the  80-column  screen 
Description 

Using  the  routine  that  writes  to  the  128's  80-column  chip, 
CUST80  redefines  one  character.  This  routine  can  easily  be  ex- 
panded to  create  an  entirely  new  character  set. 

Prototype 

1.  Set  up  registers  18  and  19  of  the  VDC  chip  to  point  to  the 

2.  Send  eight  bytes  to  register  31  to  create  the  new  character. 
Explanation 

The  key  to  accessing  the  80-column  VDC  chip  is  writing  to 
locations  $D600  and  $D601,  the  gateway  bytes  (see  RE80CO 
and  WR80CO  for  more  about  the  gateway  bytes).  The 
STRVDC  routine  at  $0C26  below  handles  this  task.  First,  the 
VDC  register  to  be  POKEd  is  stored  in  $D600.  Next,  we  need 
to  wait  for  bit  7  of  $D600  to  turn  on.  At  that  point,  $D601  can 
be  PEEKed  or  POKEd. 

The  VDC's  uppercase/graphics  character  set  starts  at  loca- 
tion $2000  within  the  VDC's  private  16K  of  memory.  The 
shape  for  the  letter  A  is  found  at  $2010.  So,  to  change  that 
shape,  the  routine  must  set  up  the  address  $2010  in  registers 
18  and  19.  Note  that,  unlike  most  other  addresses  in  the  128, 
in  this  case  the  high  byte  is  stored  ahead  of  the  low  byte. 
(This  could  be  called  a  quirk  of  the  VDC.)  STRVDC  is  called 
twice— once  to  store  a  $20  into  register  18,  and  once  to  store  a 
$10  into  19. 

When  the  POKE  address  has  been  established,  the  values 
to  be  sent  there  are  stored  in  VDC  register  31.  The  80-column 
chip  automatically  increments  the  address,  so  it's  not  nec- 
essary to  keep  writing  to  registers  18  and  19.  The  character 
shape  in  the  source  code  is  stored  in  binary  form,  so  the  actual 
appearance  can  be  seen.  The  letter  A  is  replaced  by  a  small  z 
inside  a  box. 

The  character  sets  are  stored  in  a  rather  unusual  fashion. 
The  first  eight  bytes  ($2000-$2007)  are  the  @  character.  The 
next  eight  bytes  are  unused.  The  next  eight  ($2010-$2017)  are 


197 


CUST80  (128  only) 


the  letter  A,  followed  by  eight  more  unused  bytes.  This  pattern 
continues.  If  you're  planning  to  store  several  consecutive  cus- 
tom characters,  remember  to  skip  eight  bytes  between  shapes. 

Note:  Both  character  sets  can  be  displayed  at  the  same 
time.  Attribute  memory  determines  which  set  is  used.  (See 
VDCCOL  for  more  information  about  attribute  memory.)  The 
second  half  of  each  character  set  contains  the  reversed  ver- 
sions of  the  first  128  characters.  These  characters  are  what  you 
see  when  you  turn  reverse  mode  on.  Now,  attribute  memory 
can  be  changed  to  display  a  normal  or  a  reverse  character 
(again,  see  VDCCOL),  which  means  that  the  reverse  character 
shapes  in  the  character  set  are  redundant.  It  is  actually  pos- 
sible to  have  four  character  sets  in  memory  at  the  same  time,  a 
total  of  512  characters.  To  reverse  any  of  them,  write  to  attri- 
bute memory  (which  gives  you  512  more,  reversed  characters). 

Routine 


ocoo 

VDCADR 

m 

ocoo 

VDCDAT 

$D601 

VRMLO 

VRMH1 

18 

VRDAT 

31 

ocoo 

MEM4A 

— 

$2010 

OCOO  A9 

20 

CUST80 

LDA 

#>MEM4A 

0C02  A2 

12 

LDX 

#VRMHI 

OCM  20 

26 

OC 

JSR 

STRVDC 

0C07  A9 

10 

LDA 

#<MEM4A 

0C09  A2 

13 

LDX 

#VRMLO 

OCOB  20 

26 

OC 

JSR 

STRVDC 

0C0E  AO 

00 

LDY 

CHARY 

OC10  B9 

IE 

OC 

LOOP 

LDA 

0C13  A2 

IF 

LDX 

005  20 

26 

OC 

JSR 

STRVDC 

0C18  C8 

INY 

0C19  CO 

08 

CPY 

#8 

0C1B  DO 

F3 

BNE 

LOOP 

0C1D  60 

RTS 

0C1E 

CHAR 

■ 

0C1E  FF 

.BYTE 

%imirn 

OCIF  81 

BYTE 

%10000001 

OC20  B5 

BYTE 

%ionoioi 

0C21  89 

BYTE 

%10001001 

0C22  91 

BYTE 

%10010001 

0C23  AD 

.BYTE 

%10101101 

0C24  8! 

.BYTE 

%10000001 

0C25  FF 

.BYTE  %1 1111111 

;  note  the  high  byte  is  first,  not  second 

.:  (internal  memory  for  the  VDCJ 

;  high  byte  of  character  memory 

;  register  18 

;  set  up  the  register 

;  low  byte 

;  register  19 

;  and  store  the  value 


;  register  31 
;  store  It 

;  we  have  to  move  forward 


;done 


198 


CUST80  (128  only) 


0C26  STRVDC  - 

0C26  8E    00  D6  STX  VDCADR  ;  store  .X  in  the  address  gate 

0C29  AE  00  D6  WAITAD      LDX  VDCADR  ;  and  wait 

0C2C  10   FB  BPL  WAITAD  :  for  bit  7  to  dick 

0C2E  8D  01  D6  STA  VDCDAT  ;  store  the  data 

0C31  60  RTS  .  and  quit 

See  also  ANIMAT,  CHRDEF,  RE80CO,  VDCCOL,  WR80CO. 
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Create  DATA  statements  from  numbers  in  memory 
Description 

If  you  have  a  short  ML  program — or  sprites,  custom  charac- 
ters, or  other  chunk  of  memory— you  wish  to  add  to  a  BASIC 
program,  this  program  will  convert  the  values  in  memory  to  a 
series  of  DATA  statements  that  are  tacked  onto  the  end  of  the 
program  currently  in  memory. 

Prototype 

1.  Enter  with  the  starting  address  in  DFIRST  and  the  ending 
address  (plus  one)  in  DLAST. 

2.  Subtract  2  from  the  pointer  to  the  end  of  BASIC  text  and 
store  this  pointer  in  zero-page. 

3.  Begin  a  BASIC  line  by  storing  two  bogus  nonzero  line  links, 
which  will  be  fixed  later. 

4.  Next,  store  a  two-byte  line  number  (data  from  memory 
location  49152  will  be  put  in  line  49152,  for  example)  and 
the  BASIC  token  that  represents  the  keyword  DATA. 

5.  Loop  six  times,  reading  a  byte  from  memory  and  converting 
it  to  ASCII  characters. 

6.  If  the  loop  isn't  finished,  add  a  comma  between  numbers. 

7.  After  each  line,  store  a  zero-byte  and  go  back  to  step  3. 

8.  When  the  last  byte  is  converted,  call  the  ROM  routine 
LINKPRG  to  fix  the  line  links. 

Explanation 

Before  you  SYS  or  JSR  to  this  routine,  store  the  beginning  ad- 
dress in  DFIRST  and  the  ending  address  (plus  one)  in  DLAST. 
For  example,  to  create  DATA  statements  for  the  range  8192- 
16191,  you  would  put  an  8192  in  DFIRST,  but  a  16192  (one 
byte  past  16191)  in  DLAST. 

BASIC  program  lines  have  an  overhead  of  Five  bytes,  four 
at  the  beginning  and  one  at  the  end.  The  first  two  are  the  line 
link,  which  points  to  the  line  link  of  the  next  BASIC  line  (the 
final  link  is  two  zeros,  which  mark  the  end  of  the  program). 
After  the  link  comes  the  line  number,  low-byte  first.  At  the 
end  of  each  line  you'll  find  a  zero  byte. 

To  manufacture  DATA  statements,  we  put  two  nonzero 
numbers  into  the  line-link  area,  and  then  a  line  number.  The 
example  program  numbers  the  lines  according  to  where  in 
memory  they're  stored.  So  line  16394  would  mark  the  begin- 
ning of  the  bytes  that  go  into  memory  at  16394.  After  the  line 
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link  and  the  line  number,  an  $83  is  stored.  This  is  the  BASIC 
token  for  DATA. 

The  values  from  memory  are  changed  to  ASCII  in  the 
subroutine  called  ASCII.  The  number  153  would  be  converted 
to  the  three  characters  t,  5,  and  3.  It's  similar  to  the  BYTASC 
routine  elsewhere  in  this  book.  Between  the  numbers,  commas 
are  : 


COOO    AD  E7    CO   DATAMK    LDA     D FIRST 


C003  8D  27  CO 

COM  AD  E8  CO 

COOT  8D  28  CO 

COOC  A5  2D 

COOE  38 

COOF  E9  02 

COU  85  FB 

C013  A5  2E 

C015  E9  00 

C017  85  FC 

C019  20  7B    CO   NEW. IN 

C01C  20  86  CO 

C01F  A9  06 

C021  8D  EB  CO 

C024  AO  00 


MO  REIN 
B9    FF    FF  LOADR 
POINTR 


C026 
C029 
C029    20    9C  CO 


STA  POINTR 

LDA  DFIRST+1 

STA  POINTR+1 

IDA  VARTAB 

SEC 

SBC  #2 

STA  ZP 

LDA  VARTAB+I 

SBC  #0 

STA  2P+I 

JSR  BOGUS 

JSR  LINNUM 

LDA  #6 

STA  NUMDAT 

LDY  #0 

LDA  JFFFF.Y 

LOADR+1 

JSR  ASCH 


C02C 
C02F 
C031 
COM 


C03A 


C03F 

C041 

C043 

C045 

C047 

C04A 

C04D 


EE  27  CO 

DO  03 

EE  28  CO 

AD  28    CO  NOHI 

CD  EA  CO 

F0  II 

CE  EB  CO  ANDER 

FO  2F 

A9  2C 

AO  00 


FB 

E0 


CO 

4C  24  CO 

AD  27    CO  LOOKLO 

CD  E9  CO 

DO  E7 


INC 

BNE 

INC 

LDA 

CMP 

BEQ 

DEC 

BEQ 

LDA 

LDY 

STA 

JSR 

JMP 

LDA 

CMP 

BNE 


POINTR 

NOHI 

POINTR+1 

POINTR+1 

DLAST+1 

LOOKLO 

NUMDAT 

ENDLIN 

#44 

#0 

(ZP),Y 

PLUSZP 

MORELN 

POINTR 

DLAST 

ANDER 


C055  A9  00 

C057  AO  02 

C059  91  FB 

C05C  10  FB 


CLNLP 


LDA  #0 
LDY  #2 
STA 


;  replace  with  TXTTOP  =  4624  for  the  128 
;  LINKPRC  =  S4F4F  on  128 

;  low  byte  of  beginning  of  memory  to 
;  convert 

;  Into  POINTR  below 
;  high  byte 
;  also 

;  get  the  end-of-BASIC  pointer  (substitute 


;  subtract  2 
;  save  it  In  ZP 

;  high  byte  (substitute  TXTTOP+1  for  the 

;  subtract  zero,  to  account  for  page 
;  boundaries 

;  set  up  a  false  line  link 
;  create  the  line  number  and  data  token 
;  number  of  data  numbers  per  line 
;  save  it 


;  this  win  be  fixed 


;  memory 

i  add  one  to  POINTR 


s  And  store  in 

-  -     -  ■  - 


;  see  if  we're  done 
;  does  it  equal  the  last 
;  maybe,  look  at  the  low 
;  count  down  (six  numbi 
;  fix  the  end  of  the  line 
;  else  insert  a  comma 

;  store  in  memory 
;  add  to  ZP 

;  go  back  for  another  byte  from  memory 
;  check  the  low  byte 
j  against  DLAST 
;  not  equal,  do  more 

;  Clean  up  the  end  of  the  program. 


;  put  three  zeros  at  the  end  of  the  program 


CLNLP 
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20  DD  CO 

C061  20  EO  CO 

C064  A5  FB 

C066  85  2D 

C068  A5  FC 

C06A  85  2E 

C06C  20  33  AS 


C070  A9  00 

C072  A8 

C073  91  FB 

C075  20  EO  CO 

C078  4C  19  CO 

C07B  A9  01 

C07D  AS 

C07E  91  FB 

C080  88 

C081  10  FB 

4C  DD 


ENDL1N 


JSR  PL2ZP 

JSR  PLUSZP 

LDA  ZP 

STA  VARTAB 

LDA  ZP+1 

STA  VARTAB+1 

JSR  LINKPRG 
RTS 

LDA  #0 

TAY 

STA  <ZP),Y 

JSR  PLUSZP 
NEWLIN 


JMP 

BOGUS       LDA  #1 


BOGLP 


C088  B9  27    CO  LINLP 

C08B  91  FB 

C08D  88 

COSE  10  F8 

C090  20  DD  CO 

C093  AO  00 

C095  A9  83 

C097  91  FB 

C099  4C  EO  CO 


(ZP),Y 


TAY 
STA 
DEY 
BPL  BOGLP 
JMP  PL2ZP 


C086    AO  01  UNNUM     LDY  #1 


LDA  POINTR,Y 

STA  (ZP).Y 
DEY 

BPL  LINLP 

JSR  PL2ZP 

LDY  #0 

LDA  #$83 

STA  <ZP).Y 

JMP  PLUSZP 


;  double  INC  ZP 

!  one  more  time 

;  set  end-of-progrim  pointer 

;  (substitute  TXTTOP  for  the  128) 

;  (substitute  TXTTOP  (or  the  128) 
i  relink  the  lines 
i  that's  it 

; 

;  pul  a  zero 

;  at  the  end  of  the  line 

;  store  i! 

;  move  ZP  up  one 

,-  put  ones  in  the  line  links,  to  be  fixed 
;  later 


copy  the  memory  address  to  the  line 
number 


;  token  for  the  data  command 


#100 

HAG HUN 

#10 

TENS 

ONES 

#49 

M1N1O0 
#100 


COCO 
C0C2 
C0C3 
C0C5 
C0C6 
C0C7 


COCA  8A 
C0CB  09  30 


MTN100 


FUTMEM 

#48 
#10 

HAGTEN 
#10 

COM10 


PUTMEM 


;  save  in  .X 

;  is  it  smaller  than  1007 

;  no,  do  a  hundreds  place 

;  less  than  100;  is  it  less  than  10? 

i  no,  so  it  has  a  tens  place 

;  it  is  less  than  10;  go  lo  ONES 

;  pul  an  ASCII  1  In  .Y 

;  subtract  100 

;  is  it  still  higher  than  100? 

;  no,  continue 

;yes 

;  so  subtract  again 
;  save  in  .X 


;put» 

;  get  the  number  back 

;  compare  .A  to  10 
;  gel  ready  to  leave 
;  subtract  10 
;  .Y  increases 
;  branch  always 


ONES 


TXA 

ORA  #48 
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COCD  20    DS  CO 
CODO  60 

C0D1   38  MIN100 
C0D2  E9  64 
C0D4  60 

C0D5  AO  00 

C0D7  91  FB 

C0D9  20  EO  CO 
CODC  60 


RTS 


PUTMEM 


#100 


PUTMEM    LDY  #0 

JSR  PLUSZP 
RTS 


CODD  20    EO  CO  PI.2ZP 
COEO    E6    FB  PtUSZf 
C0E2    DO  02 
E6  EC 

60  FINZP 


JSR  PLUSZP 

INC  ZP 

BNE  FINZP 

INC  ZP+1 
RTS 


; 

;  and  slore  it 


;  INC  ZP  by  one 

;  if  not  eqtuL  end 

;  el»e,  *dd  one  lo  high  byle 


C0E7  00  CO 
C0E9    OA  CO 


DFIRST  .WORDSCOOO 
DLAST  .WORDSCOOA 
NUMDAT    .BYTE  0 


DERRCK 


Name 

Check  the  disk  status  and  print  a  message 
Description 

DERRCK  reads  the  disk  drive's  error  channel  and  looks  for 
certain  common  problems.  For  example,  if  you  try  to  write  to 
a  disk  that  has  a  write-protect  tab,  an  error  26  will  result. 
When  an  error  26  is  discovered,  DERRCK  prints  a  message 
that  says  Please  remove  write-protect  tab. 

Prototype 

1.  In  preparation  for  DERRCK,  open  the  command  channel 
(15,8,15). 

2.  Within  DERRCK,  first  print  the  message  DISK  STATUS:. 

3.  Read  the  error  channel  (using  the  Kernal  routines  CHKIN 
and  CHRIN)  and  print  the  characters  received. 

4.  Convert  the  error  number  to  a  binary  coded  decimal  (BCD) 
number  as  it's  received. 

5.  Search  through  a  table  of  specific  errors. 

6.  If  the  error  number  matches  a  number  in  the  table,  print  a 
message  that  provides  more  information. 

Explanation 

The  example  routine  attempts  to  open  a  file  that  doesn't  exist 
on  the  disk.  The  DERRCK  routine  then  reads  the  error  chan- 
nel and  prints  the  message  Filename  doesn't  exist  on  disk,  try 
again. 

The  Kernal  routines  SETLFS,  SETNAM,  and  OPEN 
should  be  called  early  in  the  program.  DERRCK  performs  a 
Kernal  CHKIN  to  cause  input  to  come  from  channel  15  instead 
of  the  keyboard.  The  PRINTS  subroutine  is  a  general  string- 
printing  routine.  The  first  thing  it  prints  is  the  DISK  STATUS: 
line.  Next,  the  error  channel  is  read  and  printed.  The  error 
number  comes  in  as  two  ASCII  numbers;  error  73  would  ap- 
pear as  two  characters  ($37  and  $33).  The  ASCD  numbers  are 
combined  into  one  byte  ($73,  in  this  case)  to  make  looking  up 
the  error  a  little  easier. 

Several  error  numbers  can  be  ignored  (0-20,  50,  and  73). 
Others  are  fairly  common  (26,  33,  74,  and  62).  When  one  of 
the  four  common  errors  is  encountered,  a  longer  message  is 
printed,  again  via  PRINTS. 


DERRCK 


ZP 

SETLFS 
SFTNAM 


CHK1N 

CLOSE 

CHRJN 

CHROUT 

READST 


COOO  A9 

C0G2  A8 

COOS  A2 

C005  20 

C008  A9 

COOA  20 

GOOD  20 

C010  A9 

C012  A8 

CO  13  A2 

C015  20 

CO  1 8  A9 

COIA  A2 

C01C  AO 

C021  20 

C027  A9 

C029  20 

C02C  A9 

C02E  20 

C031  60 


08 

BA  FF 
00 

BD  FF 

CO  FF 


08 

BA  FF 
OE 
AB 
CO 

BD  FF 
CO  FF 
32  CO 
02 

C3  FF 
OF 

C3  FF 


C032 
COM 
C037 
C039 
C03B 
C03E 
C041 
C044 
C045 
C046 
C047 
C048 
C04B 
C04E 
C051 
C053 


C05C 
C05E 
COM 
C063 
C066 
C069 
CMC 
C06E 
C070 
C072 
C075 


DERRCK 


A2  OF 
20    C6  FF 
A2  B9 
AO  CO 
20    97  CO 
20    CF  FF 
20    D2  FF 
OA 
OA 
OA 
OA 

8D  AA  CO 

20    CF  FF 

20    D2  FF 

29  OF 

OD   AA  CO 

8D   AA  CO 

20    CF  FF  MORE 

C9  OD 

FO  06 

20    D2  FF 

4C   59  CO 

20    D2  FF  EXAAOT 

AD  AA  CO 

C9  21 

90  23 

AO  01 

D9  C7  CO  OKLOOP 
FO  1C 


= 

SFB 

= 

— 

SFFBA 
SFFBD 

= 
= 

$FFCO 
$FFC6 

= 

SFFC3 

= 

SFFCF 

$1'FD2 

= 

$FFB7 

— 

$FFCC 

IDA 

#15 

* 

;  logical  file 

TAY 

;  secondary  address  (command  c 

LDX 

#8 

;  device  number 

JSR 

SETLFS 

;  get  the  channel  ready 

IDA 

*0 

;  no  filename 

)SR 

SETNAM 

;  set  the  name 

I5K 

OPEN 

.-  and  open  it 

LDA 
TAY 

*2 

j  logical  file 

;  the  secondary  address 

LDX 

#8 

;  a  disk  file 

JSR 

SETLFS 

LDA 

OLEN 

:  the  length  of  the  fake  filename 

LDX 

*<FAKE 

LDY 

#>FAKE 

:  address  of  fake 

JSR 

SETNAM 

;  this  is  not  a  file 

JSR 

OPEN 

:  open  it  (error  now) 

JSR 

DERRCK 

i  check  the  status 

LDA 

#2 

JSR 

CLOSE 

;  dose  channel  2 

LDA 

«15 

JSR 

CLOSE 

;  close  channel  15 

RTS 

and  finish 

LDX 

JSR 

LDX 

LDY 

JSR 

JSR 

JSR 

ASL 

ASL 

ASL 

ASL 

STA 

JSR 

JSR 

AND 

ORA 

STA 

JSR 

CMP 


JSR 

JMP 

JSR 

LDA 

CMP 

BCC 

LDY 

CMP 

BEQ 


#15 

CHKIN 

#<DSTAT 

#>DSTAT 

PRINTS 

CHRIN 

CHROUT 


ERROR 
CHRIN 
CHROUT 
#%OO0Ollll 


#13 

EXAMIT 

CHROUT 

MORE 

CHROUT 

ERROR 

#$21 

ALLDONE 
#<OKNUM 
OK,Y 


;  print  the  DSTAT  message 
;  get  the  first  number 


;  shift  It  left  four  times 
;  high  nybble 
;  get  the  next  one 


i  nybble 


;  mask  t 
;  add  to  t 
;  and  store  it 

;  get  a  character  from  disk 
;  Is  It  a  carriage  return? 
;  if  so,  we're  done 
;  else  print  it 

;  print  the  carriage  return 
;  get  the  error  number 


;  Si  It  0-207 
;  If  so,  exit 

;  check  for  OK  errors 
;  if  it  matches 
;  skip  ahead 


DERRCK 


C077  88  DEY 

C078  10  F8  BPL  OKLOOP 

C07A  AO  03  LDY  #<NOKNUM 

C07C  D9  C9  CO  NOKLOOP     CMP  NOK.Y 

C07F  F0  03  BEQ  MESSAGE 

C081  88  DEY 

C082  10  F8  BPL  NOKLOOP 

C084  98  MESSAGE  TYA 

C085  OA  ASL 

C086  AS  TAY 

C087  B9  CD  CO  LDA  NTABLE.Y 

C08A  AA  TAX 

C08B  C8  INY 

C08C  B9  CD  CO  LDA  NTABLE,Y 

C08F  A8  TAY 

C090  20  97    CO  JSR  PRINTS 

C093  20  CC  FF    AI.l.DONE     JSR  CIRCHN 

C094  60 


C097  86  FB 

C099  84  FC 

C09B  AO  00 

C09D  Bl  FB 

C09F  48 

COAO  20    D2  FF 

C0A3  C8 

C0A4  68 

C0A5  C9  OD 

C0A7  DO  F4 

C0A9  60 


PRINTS 


PSLOOP 


STX  ZP 
STY  ZP+1 
LDY  «0 
LDA 
PHA 
JSR  CHROUT 
INY 
PLA 

CMP  #13 
BNE  PSLOOP 
RTS 


;  loop  back 

;  the  error  a  nol  OK 

;  check  NOK  table 

;  found  it  ao  prim  a  message 

;  loop  back  for  more 

;  Index  to  .A 

;  times  2 

;  back  in  Y 

;  find  the  low  byte 

;into.X 

;  go  np  1 

;  high  byle 

;  into  -Y 

;  print  the  message 
;  clear  the  channels 
;  and  the  subroutine  is  done 

I  low  byte  fn  ZP 
i  high  byte,  too 
;  get  ready  bo  print  it 
;  get  a  character 
;  push  it 
;  print  it 

.-  pull  ii 

;  is  it  a  RETURN? 

;  if  not,  get  another  character 


00  ERROR 
30    3A  4E  FAKE 
LEN 
49    53  DSTAT 

0D 


.BYTE  00 

.ASC  "0:NOTAFILENAME" 
•-FAKE 

"DISK  STATUS:  " 
13 


.ASC 


g 

C0C9 

C0C9  26  33 
COCD 

COCD  D5  CO 

C0D5  50  4C 

C0F5  0D 

C0F6  4E  4F 

C118  0D 

C119  50  4C 

C141  0D 

C16C   OD  W 


OK 

OKNUM 
74  NOK 

NOKNUM 
F6  NTABLE 
45  WRPROT 

20  WILDCD 

45  NREADY 

4C  NFOUND 


.BYTE  $50,$73 

=       *-OK— 1  ;  number  of  OK  errors 

.BYTE  $26.$33.$74,$62 

=         '-NOK— 1         ;  number  of  not  OK  errors 
WORD  WRPROT.  WILDCD.NREADY.NFOUND 
ASC    "PLEASE  REMOVE  WRITE-PROTECT  TAB." 
13 

"NO  "S  OR  m  ALLOWED  IN  FILENAME." 
13 

"PLEASE  INSERT  DISK  OR  TURN  ON  THE  DRIVE." 
13 

"FILENAME  DOESN'T  EXIST  ON  DISK.  TRY  AGAIN." 


.BYTE 

.ASC 

.BYTE 

.ASC 

.BYTE 

.ASC 


BYTE  13 


See  also  CHK144,  RDSTAT. 
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Name 

Read  the 


Prototype 

%  On  the  128,  set  the  bank  to  15. 
2.  OPEN  1,8,0  with  the  name 


3.  On  the  128,  prior  to  SETNAM,  load  .A  with  the  bank 
where  the  directory  is  to  be  OPENed  and  .X  with  the  bank 
containing  the  directory  filename,  then  SETBNK. 

4.  Discard  the  two  track  and  sector  bytes. 


5.  Check  the  two  link  bytes  for  the  last  entry. 

6.  If  they're  both  zeros,  exit  the  routine. 

7.  Otherwise,  get  and  print  (with  NUMOUT)  the  number  of 
blocks  in  the  current  entry  on  a  new  screen  line. 

8.  Get  characters  from  the  current  entry  and  print  them  until 
a  zero  byte  is  reached. 

9.  If  a  zero  byte  is  reached,  loop  back  to  step  5. 

10.  If  the  next  set  of  link  bytes  are  both  zeros,  close  file  1  and 
restore  default  devices. 


reads  the  directory  byte  by  byte  and  displays  it  in  a 
formatted  fashion  on  the  text  screen. 

The  directory  file  is  structured  just  like  a  BASIC  program 
file,  which  is  why  you  can  type  LOAD  "$0",8  and  LIST  it  as  if 
it  were  a  program.  At  the  beginning  of  the  directory  are  two 
bytes  that  would  indicate  the  load  address  if  it  really  were  a 
program.  We  have  no  use  for  these,  and  they  are  discarded. 

The  next  two  bytes  are  link  bytes  that  point  to  the  address 
in  memory  of  the  next  entry  in  the  file.  These  are  equivalent 
to  the  link  bytes  in  a  BASIC  program  file  that  point  to  the  next 
program  line.  If  the  two  link  bytes  are  both  zeros  (determined 
in  CHLINK),  we  know  we've  reached  the  end  of  the  file  (like- 
wise with  a  BASIC  program).  When  this  occurs,  we  branch  to 
EXIT,  closing  file  1  and  restoring  default  devices. 

If  one  or  both  of  the  link  bytes  are  nonzero  bytes,  we  get 
and  print  characters  from  the  current  entry  until  a  zero  byte  is 


207 


DIRBYT 


reached.  A  zero  marks  the  end  of  a  line,  again  just  as  in  a 
BASIC  program  line. 

Each  entry  can  be  one  of  three  types:  the  disk  name,  a 
program  name,  or  the  BLOCKS  FREE  message.  The  first  two 
bytes  after  the  link  bytes  in  each  program  entry  represent  the 
number  of  blocks  occupied  by  the  corresponding  program  on 
the  disk.  If  the  entry  is  the  BLOCKS  FREE  message  at  the  bot- 
tom of  the  directory,  the  first  two  bytes  refer  to  the  number  of 
blocks  remaining  on  the  disk.  If  the  entry  is  the  disk  name, 
the  first  two  bytes  are  zeros. 

Regardless  of  the  entry  type,  these  first  two  bytes  are 
printed  as  a  two-byte  integer  with  NUMOUT,  a  space  is  in- 
serted, and  the  rest  of  the  entry  printed  (in  LOOP). 

As  is  suggested  with  DIRPRG,  you  can  display  a  portion 
of  the  directory  by  using  the  built-in  wildcard  notations.  For 
instance,  to  show  all  two-character  filenames  that  begin  with 
D,  change  the  directory  filename  in  FILENM  to  "$0:D?".  Or  to 
show  any  filename  beginning  with  D,  regardless  of  its  length, 
change  FILENM  to  "$0:D*". 

Note:  DIRBYT  lacks  disk  error  checking.  You  can  easily 
add  this  feature  if  you  like  by  incorporating  the  subroutine 
DERRCK  into  the  code.  Place  DERRCK  just  before  FILENM, 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  you  have  opened  file  1  to  the  disk.  Also,  as  noted  in  the 
source  listing,  be  sure  to  open  the  error  channel  (15)  at  the 

m. 


ie  BNKNUM  and  BNKFNM  at  the  end 


of  the  program. 


cooo 

65466 

cooo 

65384 

cooo 

MMUREG  = 

65280 

SETNAM  = 

65469 

cooo 

OPEN  = 

65472 

cooo 

CHKIN  - 

65478 

cooo 

CHRIN  = 

65487 

cooo 

CHROUT  - 

65490 

cooo 

CLOSE  = 

65475 

cooo 

CLRCHN 

65484 

cooo 

ZP  = 

251 

cooo 

LINPRT  - 

48589 

,-  Kemal  bank  number  for  OPEN  and 
;  MMU  configuration  register  (128  only) 


=  36402  on  the  128 


!  Read  the  directory  as  a  stream  of  t 
;  Open  channel  15  here  if  you  ii 
:  error  checking  (DERRCK). 
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cooo 

DIRBYT 

= 

• 

cooo 

A9 

01 

LDA 

mi 

C002 

A2 

08 

LDX 

#8 

C004 

AO 

00 

LDY 

#0 

C006 

20 

BA  FF 

JSR 

SETLFS 

CD09 
COOB 

A9 
A2 

02 
5D 

COOD 

AO 

CO 

COOF 

20 

BD  FF 

C012 

20 

GO  FF 

#FNLENG 
*<FILENM 
#>FILENM 


C015 

A2 

01 

LDX 

#1 

C017 

20 

C6 

FF 

JSR 

CHKIN 

C01A 

20 

57 

CO 

JSR 

GET2 

C01D 

20 

49 

CO  NEWENT  JSR 

CHUNK 

C020 

FO 

IE 

BEQ 

EXIT 

C022 

A9 

OD 

LDA 

#13 

C024 

20 

D2 

FF 

JSR 

CHROUT 

C027 

20 

CF 

FF 

JSR 

CHRIN 

C02A 

AA 

TAX 

CHRIN 

C02B 

20 

CF 

FF 

JSR 

C02E 

20 

CD  BD  NUMOUT 

JSR 

LINPRT 

C031 

A9 

20 

LDA 

#32 

C033 

20 

D2  FF 

JSR 

CHROUT 

C036 

20 

CF 

FF 

LOOP 

JSR 

CHRIN 

C039 

FO 

E2 

BEQ 

NEWENT 

C03B 

20 

D2 

FF 

JSR 

CHROUT 

C03E 

DO 

F6 

BNE 

LOOP 

C040 

A9 

01 

EXIT 

LDA 

C042 
C04S 

20 

FF 

i!» 

CLOSE 

20 

FF 

JSR 

C048 

60 

RTS 

C049 

20 

CF 

FF 

CHUNK 

JSR 

CHRIN 

C04C 

85 

FB 

STA 

ZP 

C04E 

CF 

EE 

JSR 

CHRIN 

C051 

FB 

ORA 
RTS 

ZP 

C053 

60 

C054 

20 

57 

CO 

GET4 

JSR 

GET2 

C057 

20 

CF 

FF 

GET2 

JSR 

CHRIN 

;  LDA  #0;  set  the  128  to  bank  15 
:  STA  MMUREG;  (128  only) 
;  logical  file  1 

;  disk  drive  (sometimes  device  9) 
;  1.8.0  is  set  for  read 
:  set  parai 


i  Include  the  following  thr 
■  the  128. 
;  LDA  BNKNUM:  open  into  bank  l 
j  LDX  BNKFNM;  bank  contain 
i  filename 


son 


filename 

e  directory  file  for  reading 


Insert  |SR  DERRCK  here  for  disk  error 


;  input  from  file  1 
;  discard  the  track  and  sector  bytes 
;  is  it  the  last  entry? 
;  if  90,  exit  the  routine 
;  print  each  entry  on  a  new  , 


;  Get  the  number 
;  entry  and  print  with 
;  get  the  low  byte 
;  and  put  in  .X 
;  gel  (he  high  byte  in  .A 
;  print  the  number 
;  Insert  a  SPACE 


;  Read  Information  on  each  program  entry 

;  (filename,  type,  etc.). 

;  Input  a  character  from  entry 

;  if  zero  byte,  next  byte  is  from  a  new  entry 

;  print  it 

;  and  continue  with  current  entry 
,-  you're  finished 

gical  file  1 

i  channels  and  restore  default 


;  check  two  link  bytes  for  00 
;  store  first  byte 

';  fnd  OR  it  with  the  first  byte 

;  return  a  zero  if  both  are  zero,  otherwise 

I  nonzero  value  returned 


i  get  next  four 
;  get  two  bytes 


1 
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C05A  4C  CF  FF 


IMP  CHR1N 


C05D   24    30  F1LENM  .ASC 


:  gel  a  byte  and  RTS 

:  insert  DERRCK  here  If  you're 
;  error  checking. 


;  length  of  filename 
;  Include  the  next  two  variables  on  the  128. 
i  BNKNUM  .BYTE  0;  bank  number  to  OPEN 
!  into  (128  onlv) 

;  BNKFNM  .BYTE  0;  bank  number  where 
;  ASCn  filename  is  (128  only) 


DIRPRG 


Name 

Load  the  directory  as  a  program  file 
Description 

This  routine  loads  the  directory  file  on  disk  into  the  BASIC 
workspace.  If  you've  worked  in  BASIC,  you've  probably  done 
this  many  times  with  LOAD"$",8.  If  so,  you've  certainly 
found,  perhaps  the  hard  way,  that  loading  the  directory  in  this 
manner  overwrites  any  BASIC  program  currently  in  memory. 
But  if  the  program  you're  executing  is  outside  the  BASIC 
workspace,  which  is  often  the  case  with  ML,  this  method  of 
reading  the  directory  is  completely  suitable. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  Set  up  the  parameters  for  a  relative  load  of  the  directory  file 
(SETLFS,  SETNAM). 

3.  On  the  128,  prior  to  SETNAM,  load  .A  with  the  bank 
where  the  directory  is  to  be  loaded  and  .X  with  the  bank 
containing  the  directory  filename.  Then  JSR  to  SETBNK. 

4.  Store  zero  in  .A  to  indicate  a  load  operation. 

5.  Load  .X  and  .Y  with  the  starting  address  of  BASIC  from 
TXTTAB. 

6.  JSR  to  LOAD. 

7.  Store  .X  and  .Y  in  the  end-of-BASIC  text  pointer. 

8.  JMP  to  LINKPG. 

Explanation 

DIRPRG  loads  the  directory  as  a  BASIC  program  into  the  cur- 
rent BASIC  workspace.  (A  secondary  address  of  zero  causes  a 
relative  load.)  This  allows  you  to  position  the  BASIC 
workspace  anywhere  you  want  before  entering  the  routine. 
DIRPRG  simply  loads  the  directory  file  based  on  the  current 
starting  address  of  BASIC. 

DIRPRG  is  very  much  like  a  relative  load  of  any  BASIC 
program  (see  LOADBS).  As  with  LOADBS,  we  place  a  zero  in 
the  accumulator  before  executing  the  Kernal  LOAD  to  cause  a 
load  rather  than  to  verify.  And  again,  before  JSRing  to  LOAD, 
we  store  the  starting  address  of  BASIC  (TXTTAB)  in  .X  and  .Y. 
(On  the  128,  TXTTAB  is  at  location  45.) 

After  LOAD  has  finished,  store  .X  and  .Y  containing  the 
ending  address  of  the  directory  file  in  VARTAB  (or  TEXTTP  at 
4624  on  the  128).  Finish  up  by  JMPing  to  LINKPG  to  relink 
the  lines  of  the  directory  file  as  a  BASIC  program. 
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Note:  You  can  look  at  different  portions  of  the  directory 
selectively  by  using  the  operating  system's  built-in  wildcard 
notations.  For  instance,  if  you  want  to  display  a  list  of  ail  files 
whose  names  begin  with  PROG,  change  FILENM  in  DIRPRG 
to  "$0:PROG*".  On  the  other  hand,  if  you  want  a  list  of  all 
program  names  ending  in  .08/  that  are  ten  characters  long, 
change  FILENM  to  "$0:??????.OBJ=P". 

DIRPRG  currently  lacks  disk  error  checking.  You  can  add 
this  feature  if  you  like  by  incorporating  the  subroutine 
DERRCK  into  the  code.  Place  DERRCK  just  before  FILENM, 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  the  JSR  LOAD  instruction.  Be  sure  to  open  the  error 
channel  (15)  at  the  beginning  of  the  program  (also  noted  in 
the  source  listing). 

On  the  128,  you  must  define  and  include 
BNKFNM  at  the  end  of  the  program. 


J  TXTTAB  =  45  on  the  128— start-of-BASlC 
;  pointer 

;  TEXTTP  =  4624  on  the  1 28— end-of-BASIC 
;  pointer 

;  LINKPG  =  20303  on  the  128 

•  Kemal  bank  number  for  load  and  filename 

;  (128  only) 

;  MMU  configuration  register  (128  only) 


Routine 

cooo 

SETLF5 

65466 

coon 

SETNAM 

65469 

cooo 

LOAD 

65493 

cooo 

TXTTAB 

43 

cooo 

VARTAB 

45 

cooo 

LINKPG 

42291 

cooo 

SETBNK 

m 

65384 

cooo 

MMUREG 

65280 

cooo 

COOO    A9  01 
C006    20    BA  FF 


LDA  #1 

LDX  #8 

LDY  m 

JSR  SETLFS 


C009  A9  02 

C0OB  A2  22 

C00D  AO  CO 

C00F  20  BD  FF 


LDA  #FNLENG 

LDX  #<FILENM 

LDY  #>FILENM 

JSR  SETNAM 


!  Load  the  directory  into  normal  BASIC 
f  memory. 

j  Open  channel  15  here  if  you  include  disk 
i  error  checking  (DERRCK). 


;  LDA  #0;  set  for  bank  15  (128  only) 

;  STA  MMUREG;  (128  only) 

;  logical  Hie  number  (value  doesn't  matter) 

;  device  number  for  disk  drive 

;  secondary  address  of  zero  causes  relative 

;load 

;  set  parameters  for  relative  load 

;  Include  the  following  three  instructions 

;  for  the  128  only. 

;  LDA  BNKNUM;  bank  containing  the 
;  program 

;  LDX  BNKFNM;  bank  containing  the 

;  ASCII  filename 

;  JSR  SETBNK 

i  leng'h  of  filename 

;  the  filename  is  "SO" 
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COU  A9  00 

C014  A6  2B 

C016  A4  2C 

C018  20  D5  FF 


C01B    86  2D 

C01D  84  2E 
COIF    4C   33  AS 


C022  24  30 
C024 


LDA  #0 

LDX  TXTTAB 

LDY  TXTTAB +1 

JSR  LOAD 


STX  VARTAB 

STY  VARTAB+1 
JMP  IINKPG 


JSC  $0" 
IG      =         *  -  F1LENM 


;  flag  for  load 

;  low  byte  of  sl*rt-of-BASIC  program 
;  address 
;  high  byte  i 
;  address 

;  load  the  directory  at  the  start  of  BASIC 

; 

;  JSR  DERRCK;  Insert  here  for  disk  error 
;  checking. 

;  Change  VARTAB  in  the  next  two 

;  instructions  to  TEXTTP  on  the  128. 

;  store  end  of  directory  address  into  end-of- 

;  BASIC  program  pointer 

;  relink  lines  of  tokenized  program  text  and 
;  RTS 

i  Insert  DERRCK  here  if  you're  including 
;  disk  error  checking. 


;  director)*  name 
:  length  of  filename 


ibles  for  the  128 


i  BNKNUM  .BYTE  0;  bank  number  where 
;  program  is  to  be  loaded 
i  BNKFNM  -BYTE  0;  bank  number  where 
.-  ASCII  filename  is  located 


See  also  DIRBYT,  FRESEC. 
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Name 

Disable  RUN/STOP-RESTORE 
Description 

DISRSR  disables  the  reset  function  of  the  RUN/STOP- 
RESTORE  key  combination  by  redirecting  the  NMI  interrupt 
vector  to  the  end  of  the  normal  NMI  interrupt  handler. 

Prototype 

Change  the  NMI  interrupt  vector  to  point  to  a  harmless  rou- 
tine that  skips  the  normal  interrupt  handling. 

Explanation 

There  are  two  normal  sources  for  an  NMI  interrupt  in  the  64 
and  128.  One  is  the  CIA  (Complex  Interface  Adapter)  #2  chip, 
which  generates  the  interrupts  to  handle  RS-232  communica- 
tions. The  other  is  the  RESTORE  key. 

DISRSR  changes  the  NMI  interrupt  vector  so  that  it  skips 
both  sources  of  NMI  interrupts.  Note  that,  in  addition  to  dis- 
abling RUN/STOP-RESTORE,  this  technique  will  also  disable 
RS-232  communications  through  the  user  port. 

On  the  64,  this  is  accomplished  by  pointing  the  NMI  vec- 
tor directly  to  the  RTI  instruction  at  the  end  of  the  normal 
NMI  service  routine.  The  128  pushes  the  A,  X,  and  Y  reg- 
isters, as  well  as  the  configuration  register,  onto  the  stack  just 
before  jumping  through  the  NMI  vector.  As  a  result,  before 
leaving  the  routine,  you  have  to  restore  these  registers.  This  is 
done  by  jumping  to  the  common  IRQ  exit  routine  at  65331. 

On  the  64,  the  A,  X,  and  Y  registers  are  also  stored  on 
the  stack,  but  as  part  of  the  NMI  interrupt  handler  routine  it- 
self. Since  we  skip  these  instructions  altogether  on  this  ma- 
chine, you  don't  need  to  restore  the  registers  before  exiting  the 
routine. 


Routine 

C000  NMTVEC     =  792 

C000  RTINMI       =  65217 


C0O0  A9  a  DISRSR  LDA 

C002  8D  18  03  STA 

COOS  A9  FE  LDA 

C007  8D  19  03  STA 

C00A  60  RTS 

See  also  DISTOP,  ERRRDT,  RSTVEC. 


;  vector  to  nonmaskable  interrupt  routine 
;  RTINMI  =  65331  on  the  128— return  from 
,-  NMI  routine  address 

!  Disable  RUN/STOP-RESTORE  key 
;  sequence  by  skipping  NMI  handler. 
;  redirect  NMI  vector,  low  byte  first 

;  then  high  byte 

;  we're  done 


#<RTINM1 
NMTVEC 
#>RTINM1 
NMTVEC+1 
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Name 

Disable  the  STOP  key  by  changing  the  STOP  vector 
Description 

DISTOP  disables  the  STOP  key  by  redirecting  the  STOP  vec- 
tor past  the  STOP  key  check  in  the  normal  STOP  handler. 

Prototype 

Store  the  address  of  that  portion  of  the  STOP  routine  that  is 
just  beyond  the  STOP  key  check  into  the  STOP  vector  and  RTS. 

Explanation 

The  STOP  vector  at  location  808  is  one  of  Kemal  indirect  vec- 
tors in  page  3.  This  vector  ordinarily  points  to  a  short  ROM 
routine  that  checks  whether  the  STOP  key  is  pressed. 

Press  the  STOP  key,  and  a  $7F  is  stored  into  the  STOP 
key  flag  at  location  $91.  The  Kernal  STOP  routine,  when 
called,  determines  whether  the  STOP  key  flag  contains  this 
value.  This  routine  begins  with  the  same  series  of  instructions 
on  the  128  as  on  the  64.  The  only  difference  in  the  two  is  the 
address  of  the  routine— on  the  128,  it's  at  63086. 

On  the  64,  the  code  for  this  routine  goes  like  this: 

F6ED  A5  91       LDA  $91 
F6EF  C9  7F       CMP  #$7F 
F6F1    DO  07       BNE  SF6FA 


F6FA  60  RTS 

In  DISTOP,  we  disable  the  STOP  key  by  pointing  the 
STOP  vector  to  the  CMP  at  $F6EF.  Consequently,  since  the 
accumulator  never  gets  the  $7F  from  location  $91,  the  routine 
always  branches  to  the  RTS  at  $F6FA. 

Routine 

;  vector  to  Kemal  STOP  key  routine 
;  STOP  =  63086  on  the  128 — STOP  routine 
;  address 

;  Disable  STOP  key  by  skipping  STKEY  flag 
;  check. 

;  tciiMj||jt  STOP  vector  ahead  by  two  bytes 
;  we're  done 


STOPVC      =  808 
63213 


C0OO    A9  EF  DISTOP      LDA  #<STOP+2 

C002    8D  28    03  STA  STOPVC 

C«!5     A«   Ffi  IDA  #>STOP+2 


C007    8D  29    03  STA  STOPVC+1 

C0OA   60  RTS 

See  also  DISRSR,  ERRRDT,  RSTVEC. 
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Name 

Divide  one  byte  value  by  another  and  store  the  result  (and 
remainder)  in  memory 

Description 

This  version  of  the  division  routine  repeatedly  subtracts  the 
second  number  from  the  first.  The  leftover  number  is  kept  in 
REMAIN.  The  result  is  in  TOTAL. 

Prototype 

1.  Store  the  first  number  in  FIRST  and  the  second  in 
SECOND. 

2.  Zero  out  the  total  and  remainder. 

3.  Load  the  accumulator  from  FIRST. 

4.  Compare  to  SECOND. 

5.  If  the  carry  flag  is  clear,  store  the  remainder  in  REMAIN 
and  exit. 

6.  INC  the  total  and  subtract  SECOND  from  FIRST. 

7.  Branch  back  to  step  4. 

Explanation 

When  you're  dealing  with  byte-sized  quantities  (0-255),  divid- 
ing by  repeated  subtraction  of  one  number  from  another  will 
suffice.  To  divide  99  by  10,  just  subtract  10  until  you  have  a 
number  smaller  than  10.  Whatever  is  left  is  the  remainder. 
For  division  of  larger  numbers,  see  DIVINT. 


Routine 


LINPRT 

$BDCD 

;  UNPRT  =  $8E32  on  the  128 

CHROUT 

<= 

$FFD2 

cooo 

20  19 

CO 

ISR 

DIVBYT 

divide  them 

C003 

A9  00 

LDA 

#0 

C005 

AE  39 

CO 

LDX 

TOTAL 

;  print  the  result 

coos 

20  CD 

BD 

JSR 

LINPRT 

C00B 

A9  0D 

LDA 

#13 

i  print  RETURN 

COOD 

20  D2 

FF 

ISR 

CHROUT 

CO  10 

A9  00 

LDA 

#0 

AE  3A 
20  CD 

I 

LDX 

REMAIN 

C015 

BD 

LINPRT 

C018 

60 

RTS 

C019 

A9  00 

DIVBYT 

LDA 

#0 

;  zero  out  Ihe  total 

com 

8D  39 

CO 

STA 

TOTAL 

;  store  it  in  TOTAL 

C01E 

8D  3A 

CO 

STA 

REMAIN 

;  and  remainder 

C021 

AD  37 

CO 

LDA 

FIRST 

;  get  the  number 

C024 

CD  38 

CO  VtOOP 

CMP 

SECOND 

;  compare  it  with  the  second 

C027 

90  OA 

BCC 

DONE 

;  SECOND  Is  bigger 

C029 

EE  39 

CO 

INC 

TOTAL 

;  else,  increment  the  result 

C02C 

F0  08 

BEQ 

NOREM 

j  no  remainder 

C02E 

ED  38 

CO 

SBC 

SECOND 

;  carry  is  set,  so  subtract 
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C031  BO  Fl  BCS  VLOOP  ;  branch  always  (carry  Is  set) 

C033  8D  3A  CO  DONE  STA  REMAIN        ;  -A  holds  the  remainder 

COS*  60  NOREM  RTS  ;  end  the  subroutine 

C037  64  FIRST  .BYTE  100 

C038  03  SECOND  .BYTE  3 

C039  00  TOTAL  -BYTE  0 

C03A  00  REMAIN  .BYTE  0 

See  also  DIVFP,  DIVINT. 
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Name 

Divide  one  floating-point  number  by  another 
Description 

Like  most  of  the  other  floating-point  routines  in  this  book, 
DIVFP  depends  on  built-in  BASIC  routines.  The  example  pro- 
gram divides  30,000  by  302  and  prints  out  the  result,  complete 
with  decimal  fractions. 

Prototype 

1.  Set  up  the  dividend  (or  numerator)  in  floating-point  accu- 
mulator 2  (FAC2). 

2.  Put  the  divisor  (or  denominator)  in  FAC1. 

3.  Call  the  FDIVT  routine  in  ROM.  The  answer  can  be  found 
in  FAC1. 

Explanation 

The  framing  program  converts  the  integer  value  30,000  to  a 
floating-point  number  with  GIVAYF.  The  MOVEF  routine 
moves  it  from  FAC1  to  FAC2.  Next,  the  number  302  is  stored 
into  FAC1,  and  the  DIVFP  routine  is  called  (a  simple  ROM 
call).  Finally,  FOUT  converts  the  contents  of  FAC1  to  ASCII 
numbers,  which  are  then  printed  to  the  screen. 


cooo 
cooo 
cooo 

cooo 

cooo 


ZP 

CHROUT 
FDIVT 

MOVEF 

GIVAYF 

FOUT 


C000  A9  75 

C002  AO  30 

C004  20  91  B3 

C007  20  OF  BC 

C00A  A9  01 

C00C  AO  2E 

C00E  20  91  B3 


COll 
COM 


20  29 

20  DD 

85  FB 

19    84  FC 


$FB 

SFFD2 

SBB12 

SBC0F 

SB39I 

$BDDD 


LDA  #>30000 

LDY  #<3Q000 

JSR  GIVAYF 

)SR  MOVEF 

LDA  #>302 

LDY  #<302 


JSR  DIVFP 


STY 


ZP 

ZP+1 


;  FDIVT  -  $6B4C  on  the  128— divide  FAC2 
;  by  FAC1;  result  in  FAC1 
.-  MOVEF  =  $8C3B  on  the  128— moves  EAC1 
;  to  FAC2 

j  GIVAYF  =  SAFQ3  on  the  128— converts 
;  integer  to  floating  point 
!  FOUT  =  $8E42  on  the  128— converts  FAC1 
I  to  ASCII  string 

;  Convert  the  numbers  30000  and  302  to 
;  floating  point  and  divide. 
;  high  byte  of  30000 
;  low  byte 

;  convert  it;  now  it's  in  FAC1 
:  move  FAC1  to  FAC2 
;  high  byte  of  302 
:  low  byte 
j  convert  it 

:  EAC1  now  holds  302;  FAC2  holds  30000. 
i  divide  30000  by  302;  the  result  is  in  FAC1 
;  convert  to  ASCII 


DIVFP 


PRTLOP 


C01B  AO  00 

C01D  Bl  FB 

COIF  DO  01 

C021  60 

C022  20    D2  FF  PRNTT 

C025  C8 

C026  DO  F5 

C028  60 


LDY 

#0 

LDA 

(ZP).V 

BNE 

PRNTT 

RTS 

JSR 

CHROUT 

INY 
BNE 

PRTLOP 

RTS 

C029  20  12  BB  DTVFP  JSR 
C02C  60  RTS 

See  also  DIVBYT,  DIVINT. 


FDIVT 


;  divide  FAC2  by  FAC1 
;  the  result  is  in  FAC1 
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Name 

Divide  one  integer  value  into  another 

For  values  that  take  up  two  bytes  or  more,  this  division  rou- 
tine is  preferable  to  the  subtraction  method  used  in  DIVBYT. 
It's  much  faster  than  subtracting. 

Prototype 

1.  Since  there  are  16  bits  in  a  two-byte  integer,  store  a  16  into 
a  counter  (change  this  if  you're  using  larger  numbers). 

2.  Store  zeros  into  ANSWER  and  WORK,  which  will  even- 
tually contain  the  answer  and  the  remainder. 

3.  Copy  the  numerator,  also  called  the  dividend,  from 
DIVNUM  to  a  work  area  COPYN. 

4.  Begin  division:  Rotate  COPYN  to  the  left.  The  additional  bit 
rotates  into  WORK. 

5.  Compare  the  contents  of  WORK  to  DIVDEN  (the  denomi- 
nator or  divisor). 

6.  If  WORK  is  equal  or  larger,  the  carry  flag  will  be  set.  Rotate 
the  set  carry  (a  1)  left  into  ANSWER  and  execute  step  7. 

7.  Subtract  DIVDEN  from  WORK  and  store  the  result  in 
WORK.  Skip  step  8. 

8.  If,  after  step  5,  WORK  was  smaller,  carry  would  be  clear. 
Rotate  this  zero  bit  left  into  ANSWER. 

9.  Decrement  the  counter  setup  in  step  1.  If  it's  not  yet  zero, 
loop  back  to  step  4. 

Explanation 

The  following  partial  example  of  a  binary  division  may  be 
helpful  in  understanding  how  division  works  in  ML: 

0001 
110  1 10110010 
110 
110 

The  110  is  the  denominator  (or  divisor)  being  divided  into 
10110010,  the  numerator  (or  dividend).  There's  a  third  work 
area,  called  WORK  in  the  program  below,  which  starts  out 
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holding  a  zero.  The  main  loop  rotates  DIVDEN  (10110010  in 
the  example  above)  to  the 
WORK: 

WORK  DIVDEN 

1  00000001  0110010a: 

2  00000010  HOOlOxx 

3  00000101  lOOlOrcr 

4  00001011  OOlOaxex 

As  you  can  see,  the  number  in  WORK  gradually  grows 
larger  as  more  bits  are  shifted  left  (the  x's  represent  unknown 
bits  that  don't  matter).  Since  the  example  is  dividing  by  the 
number  110,  at  each  step,  we  have  to  compare  WORK  to  the 
denominator.  The  binary  numbers  %1,  %10,  and  %101  are 
smaller,  so  the  carry  flag  is  clear,  and  a  zero  gets  rotated  into 
ANSWER.  Note  the  first  three  zeros  in  the  example. 

When  WORK  is  equal  to  or  larger  than  DIVDEN,  carry  is 
set  (which  means  a  1  gets  rotated  into  the  answer),  and  we 
have  to  subtract  DIVDEN  from  WORK.  Then  the  rotate 
instructions  and  compares  continue. 

After  division  is  complete,  the  answer  is  held  in  AN- 
SWER. The  remainder  can  be  found  in  WORK.  The  example 
program  divides  two  numbers  (3112/550)  and  prints  the  an- 
swer. The  remainder,  preceded  by  the  letter  R  is  also  printed. 

To  use  this  routine  in  your  own  programs,  store  the  inte- 
ger values  in  DIVNUM  and  DIVNUM.  Using  the  bit-shifting 
method  is  faster  than  subtracting.  Dividing  60,000  by  3,  for  ex- 
ample, would  require  30,000  loops  in  DIVBYT,  but  only  16  in 
DIVINT. 

Note:  If  you're  dividing  by  a  power  of  2  (2,  4,  8,  16,  32, 
and  so  forth),  you  can  skip  this  routine  and  simply  shift  the 
dividend  to  the  right,  with  LSR  for  the  high  byte  and  ROR  for 
any  intermediate  or  lower  bytes. 

Warning:  Division  by  zero  is  mathematically  illegal,  and 
this  program  doesn't  contain  a  trap  for  zero.  If  you  think  a 
user  might  try  dividing  by  zero,  you'll  need  to  check  for  zeros 
at  the  beginning  of  DIVINT. 


$BDCD  ;  UNPRT  =  $8E32  for  the  128 


A9  93  LDA  #147  -dear screen 

20  D2  FF  JSR  CHROUT  .  print  it 

AE  41  CO  LDX  DIVNUM  :  low  byte  of  the  numerator  or 

AD  42  CO  LDA  DIVNUM+1 
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COOB 
CODE 
C010 
C013 
C016 
CO!  9 
C01C 
CO  IE 
C021 
C024 
C027 
C02A 
CCI2D 

C02F 
C032 
C034 
C037 
C03A 
C03D 
C040 


20  CD  BD 
A9  2F 

20    D2  FF 

AE  43  CO 

AD  44  CO 

20  CD  BD 
A9  OD 

20    D2  FF 

20    4C  CO 

AE  47  CO 

AD  48  CO 

20  CD  BD 
A9  OD 

20  D2  FF 
A9  52 

20    D2  FF 

AE  45  CO 

AD  46  CO 

20  CD  BD 
60 


C041  28  OC  DIVNUM 

C043  26  02  DIVDEN 

C045  00  00  WORK 
C047 


C047  00  0 
C049  00  0 
C04B  00 


ANSWER 

COPYN 

COUNTR 


C04C  20    61  CO  DIVINT 

C04F  20    67  CO 

C052  20    72  CO 

C0S5  20    7F  CO  DIVLP 

C0S8  20    8C  CO 

C05B  CE  4B  CO 

COSE  DO  F5 

COCO  60 


C061    A9  10  SETUP 
C063    8D  4B  CO 
C066  60 


JSR 

LDA 

JSR 

LDX 

LDA 

JSR 

LDA 

JSR 

JSR 

LDX 

LDA 

JSR 


LDA 

JSR 

LDX 

LDA 

JSR 

RTS 


L1NPRT 
#47 

CHROUT 
DIVDEN 
DIVDEN +  1 
LINPRT 
#13 

CHROUT 
DIVINT 

ANSWER 
ANSWER +1 
LINPRT 
#13 

CHROUT 
#82 

CHROUT 
REMAIN 
REMAIN+1 
LINTR'I 


WORD3112 
.WORD550 
.BYTE  0,0 

WORK 


BYTE  0 


JSR 
JSR 
JSR 
JSR 
JSR 


SETUP 

ZEROS 
COPYNM 
MVOVER 
DIVIDE 
DEC  COUNTR 
BNE  DIVLP 
RTS 


;  print  it 

:  the  slash  (/),  lo  indicate  division 
;  print  it 

:  low  byte  of  the  denominator  or . 
;  high  byte 

;  print  RETURN 
:  new  line 

;  divide  the  numbers 
;  and  print  the  answer 


;  letter  R  for  remainder 

;  print  it,  Ihen 

;  low  byte  o(  remainder 

;  high  byte 

;  print  It 


.-3112  will  be  divided  by 


LDA  #16 
STA  COUNTR 
RTS 


up  in  WORK  (also 


,-  set  the  counter  to  16 

;  zero  out  WORK  and  ANSWER 

;  copy  DIVNUM  to  COPYN 

;  route  COPYN  and  WORK  to  the  left 

f  the  main  division  routine 

;  count  down 

;  if  if  s  not  rem  yet,  keep  going 
;  quit  the  DIVINT  routine 

\  Setup  just  puts  a  16  into  COUNTR. 
;  16  represents  the  number  of  bits  in 
;DIVNUML 


C067  A9  00  ZEROS        LDA  #0 

m  $  %  co  zloop  if #3 

C06E  88  DEY 

C06F  10  FA  BPL 

C071  60  RTS 


WORK.Y 


i  Into  WORK  and 


;  as  long  as  .Y  Is  zero  or  higher,  loop  back 


C072  AD  41  CO 

C075  8D  49  CO 

C078  AD  42  CO 

C07B  8D  4A  CO 

COTE  60 


LDA  DIVNUM 
STA  COPYN 


;  Copy  DIVNUM  to  COPYN. 


; 

;  Move  a  bit  to  the  left  from  COPYN  to 
;WORK. 


DIVINT 


C07F 

OE  49 

CO 

MVOVER 

ASL 

COPYN 

C082 

2E  4A 

CU 

ROL 

COPYN+1 

C085 

2E  45 

CO 

ROL 

WORK 

cZ 

CO 

WORK+1 

£  46 
wu 

COSC 

AD  46 

CO 

DIVIDE 

WORK  +  1 

C08F 

CD  44 

CO 

CMP 

DIVDEN  +  l 

C092 

FO  09 

BEQ 

LOOKMR 

vu"4 

ou  Ur 

D*-5> 

CI  TBTI? 

C096 

2E  47 

CO  FIXANS 

ROL 

ANSWER 

2E  48 

CO 

ANSWER +  1 

C09C 

60 

RTS 

C09D 

LOOKMK 

— 

• 

C09D 

AD  45 

CO 

LDA 

WORK 

COAO 

CD  43 

CO 

CMP 

DIVDEN 

C0A3 

90  Fl 

BCC 

FDCANS 

C0A5 

SUBTR 

• 

C0A5 

20  96 

CO 

JSR 

FIXANS 

38 

SEC 

AD  45 

CO 

LDA 

WORK 

COAC 

ED  43 

CO 

SBC 

DIVDEN 

COAF 

8D  45 

CO 

STA 

WORK 

C0B2 

AD  46 

CO 

LDA 

WORK+1 

C0B5 

ED  44 

CO 

SBC 

DIVDEN+l 

COBS 

8D  46 

CO 

STA 

WORK+1 

COBB 

60 

RTS 

;  low-byte  shifts  left 

;  into  high  byte 

;  into  WORK 

;  and  high  byte  of  WORK 


;  high  byte  of  WORK 

;  compare  (o  the  divisor 

;  look  more  (check  the  low  byte)  if  equal 

;  WORK  is  higher,  so  subtract 

;  If  we  fall  through  from  above,  carry  is 

;  move  the  carry  flag  into  ANSWER 
j  high  byte,  too 

;  end  of  FIXANS  and/or  subroutine 

;  check  the  low  byte  if  the  high  byte  was 
;  equal 

;  get  value  in  WORK 

;  compare  to  denominator  (divisor)  low 

;  If  carry  is  clear,  DIVDEN  is  bigger,  so  exit 

; 

;  else  subtract  DIVDEN  from  WORK 
;  carry  is  always  set  (note  the  RTS  of 
;  FIXANS  returns  to  here) 
i  carry  was  changed  by  FDCANS,  so  set  il 

;  subtract  DIVDEN  from  WORK 
;  high  byte,  too 


See  also  DIVBYT,  DIVFP. 
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ERRRDT  redirects  BASIC'S  ERROR  vector  to  your  own 
routine. 


Prototype 

Store  the  address  of  the  custom  error  routine  into  the  ERROR 
vector;  then  RTS. 

Explanation 

When  an  error  occurs  during  a  BASIC  program,  an  indirect 
jump  is  taken  through  the  ERROR  vector  at  location  768.  This 
vector  normally  points  to  the  ROM  routine  which  displays  the 
appropriate  one  of  the  familiar  BASIC  error  messages,  such  as 
SYNTAX  ERROR,  ILLEGAL  QUANTITY  ERROR,  and  so 
forth.  In  some  cases,  however,  you  may  want  to  substitute  a 
custom  error  message  in  place  of  the  standard  one.  In  this 
case,  you  can  change  the  address  in  the  ERROR  vector  to 
point  to  an  error  message  routine  of  your  own. 

For  example,  when  you  type  in  BASIC  programs  that  con- 
tain many  numeric  DATA  statements  being  POKEd  into  mem- 
ory, you'll  frequently  get  an  error  that's  difficult  to  pin  down. 
If  you  accidentally  include  a  number  higher  than  255  and  run 
the  program,  you'll  get  the  error  message  7ILLEGAL  QUAN- 
TITY IN  LINE  xxx.  But  the  line  given  as  xxx  is  the  one 
containing  the  READ  statement  rather  than  the  one  with  the 
errant  data.  The  READ  works  just  fine  (it's  legal  to  READ 
numbers  greater  than  255),  but  the  POKE  causes  the  problem. 

The  example  program  relies  on  ERRRDT  to  solve  this 
problem.  Ordinarily,  the  ERROR  vector  points  to  a  routine 
that  prints  either  a  BASIC  error  message  or  the  READY 
prompt.  Using  the  .X  register,  this  routine  locates  the  error 
message  in  a  table  and  then  prints  it.  If  you're  in  program 
mode,  the  number  of  the  line  that's  currently  being  executed  is 
taken  from  CURLIN  (location  57  on  the  64;  59  on  the  128) 
and  is  printed  as  well. 

ERRRDT  changes  the  ERROR  vector  to  point  to  our  own 
custom  error  handler  at  EWEDGE.  If  an  error  other  than  an  il- 
legal quantity  error  occurs  (.X  <>  14),  normal  error  handling 
will  result.  But  if  .X  contains  a  14  upon  entry  into  EWEDGE — 
meaning  an  illegal  quantity  has  occurred — the  current  DATA 
line  number  (CURLIN)  will  be  stored  into  the  current  BASIC 


ERRRDT 


line  (DATLIN)  before  the  normal  error  handler  will  execute. 
And  so,  in  our  example  above,  instead  of  telling  us  that  the  er- 
ror occurred  in  the  line  with  the  READ  statement,  with  this 
routine  in  place,  BASIC  reports  the  actual  DATA  line  contain- 
ing the  typo. 

Of  course,  this  routine  fails  to  distinguish  among  the 
many  possible  sources  of  illegal  quantity  errors.  If  your  pro- 
gram contains  a  POKE  251,257,  for  instance,  the  error  message 
that  results  will  erroneously  point  you  to  the  last  DATA  line 
that  was  read.  Because  of  this,  you  should  limit  the  use  of  this 
wedge  to  BASIC  programs  that  contain  many  numeric  DATA 
statements— primarily  BASIC  loaders  of  ML  object  code. 

Routine 


cooo 
cooo 


ERRNOR 
CURLIN 
DATLIN 


58251 
57 


A9  OB 
BD  00 


COOO 
C002 

C005  A9 
C007    8D  01 
CO0A  60 


03 


CO 


03 


LDA  #<EWEDGE 

STA  ERRVEC 

LDA  #>EWEDGE 

STA  ERRVEC +1 
RTS 


C00B  EO  0E 
C00D  DO  08 


EWEDGE     CPX  #14 
BNE  EXIT 


C00F    AS  3F 

C011    85  39 

C013    A5  40 

C015    85  3A 

4C  8B 


LDA  DATLIN 

STA  CURLIN 

LDA  DATUN+1 

STA  CURLIN +1 

IMP  ERRNOR 


See  also  DISRSR,  DISTOP,  RSTVEC. 


;  error  vector 

i  ERRNOR  -  19775  on  the  128— normal 
;  error-service  routine 

;  CURLIN  =  59  on  the  128— current  BASIC 
;  line  being  executed 

i  DATLIN  =  65  on  the  128— current  data 
.line 

';  Insert  a  custom  error  routine  that  looks  for 

an  illegal  quantity  error, 
j  Assume  it  occurs  while  reading  data  and 
j  report  the  data  line  number, 

;  ERRRDT  points  the  ERRVEC  vector  to  our 

;  routine. 

;  low  byte  first 

;  then  high  byte 

;  and  exit  the  «etup  routine 

j  Upon  entry,  .X  contains  the  error  number. 

.-  all  errors  except  the  illegal  quantity  error 
1  (error  14). 

;  is  it  an  illegal  quantity  error? 

;  if  not,  exit  through  the  normal  error  handier 

;  Otherwise,  substitute  the  current  data  line 

;  for  the  current  BASIC  line. 

:  low  byte  first 

|  then  high  byte 

;  and  execute  the  normal  error  handler 
j  routine 
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Name 

Produce  an  explosion  sound 
Description 

EXPLOD  provides  the  sound  of  an  explosion  and  could  be 
used  in  any  number  of  game  programs,  with  or  without 
modification. 


1.  Clear  the  SID  chip  with  SIDCLR. 

2.  Set  the  necessary  SID  chip  parameters  (volume, 
attack/decay,  sustain/release,  and  frequency). 

3.  Select  the  noise  waveform  and  gate  the  sound. 

4.  Cause  a  delay  (here,  120  jiffies),  and  then  start  the  release 
cycle  (ungate  the  sound). 

5.  Then  RTS. 

Explanation 

This  routine  relies  on  the  noise  waveform  to  achieve  its  effect. 
You  can  alter  the  sound  that's  produced  by  varying  a  number 
of  parameters  in  the  routine.  These  include  the  attack/decay 
and  sustain/release  rates,  the  base  frequency  for  the  noise 
waveform,  and  the  number  of  jiffies  between  eating  and 


EXPLOD  is  no  different  in  one  respect  from  other  sound- 
effect  routines  in  this  book.  After  the  release  cycle  is  complete, 
the  SID  chip  hums  on  in  the  background.  Again,  to  prevent 
this,  after  the  explosion  has  sounded,  store  zeros  in  the  fre- 
quency registers  (FREHI1,  FREHI3)  or  turn  the  chip  off  al- 
together by  JSRing  to  SIDCLR. 

Routine 


cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 


ATDCY1 
SUREL1 
FRhLOl 


54296 


COOO  20  2F    CO  EXPLOD 

C003  A9  OF 

COOS  8D  18  D4 

COOS  A9  0C 

COO  A  8D  05  D4 

CO0D  A9  18 

COOF  8D  06  D4 

C012  A9  00 

COM  8D  00  D4 

C017  A9  18 


LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 


54278 
54272 
54273 
54276 
162 

SIDCLR 
#15 

SIGVOL 

#$0C 

ATDCY1 

#918 

SUREL1 

#0 

FRELOl 


;  SrD  chip  volume  register 

;  voice  1  attack/decay  register 

:  voice  1  sustain/release  register 

,  voice  1  frequency  control  (low  byte) 

i  voice  1  frequency  control  (high  byte) 

;low  byteof  jiffylfock 

;  clear  the  SID  chip 
;  set  volume 

;  set  attack/decay 


;  sel  voice  1  low  frequency 
,-  set  voice  1  high  frequency 
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C019 
C01C 
C01E 
C021 
C023 
C025 
C027 
C029 


8D 
A9 
8D 
A9 
65 
C5 
DO 
A9 
8D 
60 


01  D4 


D4 


DELAY 


D4 


C02F  A9  00  SIDCLJR 

C031  AO  18 

C033  99  00    D4  SIDLOP 

C036  88 

C037  10  FA 

C039  60 


STA 

STA 

LDA 

ADC 

CMP 

BNE 

LDA 

STA 

RTS 


FREHI1 


#120 

JIFFLO 

JIFFLO 

DELAY 

#•410000000 

VCREG1 


LDA  #0 

LDY  #24 

STA  FRELOl.Y 
DEY 

BPL  SIDLOP 
RTS 


1  noise  i 

;  cause  a  delay  of  120  jiffies 

;  add  current  jiffy  reading 

;  and  wail  for  120  jiffies  lo  elapse 

;  ungate  sound 


Clear  the  SID  chip. 

fill  with  zeros 

index  to  FRELOl 

store  zero  in  SID  chip  address 

for  next  lower  byte 

fill  25  bytes 


See  also  BEEPER,  BELLRG,  INTMUS,  MELODY,  NOTETB, 
SIDVOL,  SIRENS. 
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Name 

Print  floating-point  accumulator  1  to  a  specified  number  of 
decimal  places 

Description 

If  you  print  a  floating-point  variable,  anywhere  from  zero  to 
nine  decimal  places  may  be  displayed.  In  many  situations, 
you'll  want  to  format  your  numeric  output.  With  FACPRD, 
you  can  do  just  that.  This  routine  lets  you  specify  the  number 
of  decimal  places  to  print  when  you're  outputting  floating- 
point numbers  to  the  screen.  In  the  process,  no  rounding 
occurs. 

Prototype 

1.  Enter  this  routine  with  the  number  of  decimal  places  to 
print  in  DECIML. 

2.  Keep  a  counter  of  digits  past  the  decimal  in  zero  page. 

3.  Load  each  character  from  the  number  string. 

4.  If  the  end  of  the  string  is  reached  (a  zero  byte  occurs),  print 
a  decimal  point  and/or  the  proper  number  of  trailing  zeros 
(in  OUTCHK). 

5.  Increase  the  decimal  counter  if  the  decimal  point  has  been 
printed. 

6.  Otherwise,  check  the  current  character  for  a  decimal  point. 
If  one  occurs,  increase  the  decimal  counter. 

7.  Check  to  see  whether  zero  decimal  places  have  been  re- 
quested. If  so,  exit  the  routine. 

8.  Determine  whether  the  last  decimal  place  has  been  printed. 
If  so,  place  a  terminator  byte  of  zero  at  the  end  of  the  num- 
ber string. 

9.  Print  the  current  character  and  branch  back  to  step  3. 
Explanation 

This  program  is  much  like  the  example  program  shown  under 
FACPRT,  where  a  floating-point  number— 365.25— is  con- 
verted to  an  ASCII  string  and  printed  to  the  screen.  Again,  in 
this  routine,  the  number  365.25  is  printed.  Here,  however,  you 
have  the  option  of  specifying  the  number  of  decimal  places 
(0-9)  that  are  displayed.  Notice  that  CHRGTR  allows  only  nu- 
meric input,  with  the  exception  of  the  RETURN  key.  Pressing 
RETURN  exits  the  program. 

FACPRD  takes  the  ASCII  string  in  the  workspace  area  at 
the  top  of  the  stack  (beginning  at  $100)  and  displays  it  to  the 
number  of  decimal  places  in  DECIML.  The  routine  begins  by 
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initializing  a  decimal-place  counter  in  zero  page  to  $FF.  Each 
character  from  the  string  is  then  examined  to  see  whether  it's 
a  terminator  byte  (zero)  or  a  decimal  point. 

If  a  terminator  byte  occurs,  we  branch  to  the  routine 
OUTCHK.  OUTCHK  prints  a  decimal  point  (if  needed)  and  the 
proper  number  of  trailing  zeros. 

If  a  decimal  point  occurs,  increment  the  decimal  counter 
and  print  the  decimal  point  if  one  or  more  decimal  places 
have  been  requested.  As  a  result,  the  counter  will  contain  a 
positive  value  once  the  decimal  point  has  been  printed.  On 
the  other  hand,  if  DECIML  is  zero  (no  decimal  places  have 
been  specified),  we  simply  exit  the  routine. 

Assuming  the  decimal  point  has  been  printed,  before  we 
print  each  character  from  the  string,  the  decimal  counter  is 
compared  to  DECIML  (the  number  of  decimal  places  requested). 
If  they  agree  in  value,  a  terminator  byte  is  placed  at  the  next 
character  position  within  the  string.  So,  after  the  current  charac- 
ter is  printed,  the  next  character  (the  zero  byte)  will  send  us  to 
OUTCHK  where  trailing  zeros  can  be  added  if  necessary. 

Routine 


;  FAC1  =  99  on  the  128— floating-point 
:  FOUT_-  36418  on  the  128-converts 
ice  at  the  top  of  the  stack 


;  Print  the  number  in  floating-, 
;  accumulator  1  to  the  number 
;of 

;  K±  _ 

;  clear  the  screen 


i  as  an  index  for  PRTLOP 

;  print  the  prompt  "NUMBER  OF  DECIMAL 

:  PLACES  (0-9)?" 

;  If  zero  byte,  skip  ahead 

;  print  each  character  in  the  prompt 

.  next  character 

;  branch  always 

t  get  a  keypress  in  the  range  0-9.  or  a 

;  RETURN 

;  If  no  keypress 

;  is  it  RETURN? 

;  if  so,  then  quit 

;  is  it  zero? 

I  if  it's  less,  get  another  key 

;  is  it  9  phis  1? 

;  if  it's  more,  get  another  key 

;  put  ASCII  number  in  a  range  0-9 

;  store  .A  for  FACPRD 


ZP 

251 

CHROUT 

6S490 

cooo 

GETIN 

65508 

FAC1 

= 

97 

cooo 
cooo 

FOUT 
STWORK 

- 

48605 
256 

A9  93 

CIRCHR 

LDA 

#147 

20    D2  FF 

JSR 

CHROUT 

C007 

AO  00 

OUTLOP 

LDY 

#0 

B9    8C  CO  PRTLOP 

LDA 

STR1NG.V 

CO0A 

FD  06 

BEQ 

CHRGTR 

C00C 
C00F 

20    D2  FF 
C8 

JSR 

CHROUT 

C010 

DO  F5 

INY 
BNE 

PRTLOP 

C012 

20    E4  FF 

CHRGTR 

|SR 

GETIN 

C015 

F0  FB 

BEQ 

CHRGTR 

C017 

C9  0D 

CMP 

#13 

C019 

F0  27 

BEQ 

EXIT 

C01B    CD  AD  CO 

RANGE  1 

C01E 

90  F2 

CHRGTR 

C020 

CD  AE  CO 

CMP 

RANGE2 

C023 

B0  ED 

BCS 

CHRGTR 

C025 

29  OF 

AND 

#15 

C027 

8D  B5  CO 

STA 

DECIML 
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C02A  AO  05  LDY  #5 

C02C  B9    AF  CO   LOOP  LDA  FPNUM.Y 

C02F  99    61  00  STA  FACl.Y 

C032  88  DEY 

C033  10    F7  BPL  LOOP 

C035  20    DD  BD  ISR  FOUT 

C038  20    43  CO  ISR  FACPRD 

C03B  A9  0D  LDA  #13 

C03D  20    D2  FF  JSR  CHROUT 

C040  DO  C3  BNE  OUTLOP 

C042  60  EXIT  RTS 


:  index  to  floating-point  number 

;  store  each  byte  of  FPNUM  in  FAC1 


;  for  next  byte 

;  if  .Y  is  0-5,  continue 


;  convert  contents  of  FAC1  to  ASCII  string 
;  string  is  in  stack  area 
:  print  the  FAC1  to  DECIML  decimal  places 
;  print  RETURN 


C043  AO  00  FACPRD 

C045  A2  FF 

C047  86  FB 

C049  B9    00    01  MORE 

C04C  F0  20 

C04E  A6  FB 

C050  10  04 

C052  C9  2E 

C0S4  DO  12 

C056  E6    FB  INCRZP 

C058  AE  B5  CO 

C0SB  F0  2E 

C05D  E4  FB 


C061  48 

C062  A9  00 

C064  99  01  01 

C067  68 

C068  20  D2  FF  PRINT 

C06B  C8 

C06C  DO  DB 

C06E  AE  B5    CO  OUTCHK 

C071  E4  FB 

C073  F0  16 

C07S  B0  05 


C077    A9  2E 
C079    20    D2  FF 
C07C   AD  B5  CO 


C07F  38 

C0B0  E5  FB 

C082  AA 

C083  A9  30 

C085  20    D2  FF  ZRLOOP 

C088  CA 

C089  DO  FA 

C08B  60 


C08C   4E    55  4D 


LDY  #0 

LDX  #255 

STX  ZP 

LDA  STWORK,Y 

BEQ  OUTCHK 

1.DX  ZP 

BPL  INCRZP 

CMP  #46 

BNE  PRINT 

INC  ZP 

LDX  DECIML 

BEQ  OUT 

CPX  ZP 

BNE  PRINT 

PHA 

LDA  #0 

STA  STWORK+1 
PLA 

JSR  CHROUT 
INY 

BNE  MORE 

LDX  DECIML 

CPX  ZP 

BEQ  OUT 

BCS  DECIZR 

LDA  #46 

JSR  CHROUT 

LDA  DECIML 


;  FACPRD  displays  the  number  in  FAC1  to  a 
;  number  (DECIML)  of  decimal  places. 
;  as  an  Index 
;  as  a  decimal  counter 
;  store  decimal  counter  In  zero  page 
;  load  each  ASCII  byte  of  string 
;  If  zero  byte,  print  decimal  and/or  t 
;  zeros 
;  check  decimal  counter 
;  increase  decimal  counter  if  decimal  has 
;  already  been  reached 
,-  is  it  currently  a  decimal  point? 
;  no,  so  print  .A 
;  increment  decimal  counter 
;  load  with  number  of  decimal  places 
;  requested 

if  zero  decimal  points  requested 
;  compare  with  dedmal-place  counter 
;  we  haven't  reached  the  last  one,  so  print 
;.A 

; save  .A 

;  put  terminator  character  in  the  position 
,-  which  follows 

t 

;  restore  j\ 
;  print  a  character 
;  next  character 
;  branch  always 

;  see  whether  decimal  and/or  extra  zeros 
;  need  printing 

;  have  all  decimal  places  been  printed? 
;  yes,  so  get  out 

;  if  carry  set,  we  need  to  print  one  or  more 
;  trailing  zeros 

;  otherwise,  print  a  decimal  point 

;  subtract  decimal  counter  from  requested 
;  number  of  places 


SBC  ZP 
TAX 

LDA  #48 
JSR  CHROUT 
DEX 

BNE  ZRLOOP 
RTS 

.ASC    "NUMBER  OF  DECIMALTLACES  (0-9)?" 


i  well  fill  remainder  with  zeros 
;  print  a  zero 

;  if  more  to  print,  continue 
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COAB  OD  00  .BYTE  13,0  ;  carriage  return  and  terminator  byte 

COAD  30  RANGE  1      .BYTE  48  ':  ASCII  0 

COAE  3A  RANGE2      .BYTE  58  ;  ASCII  9  plus  1 

COAT-  89    B6    AO   FPNUM       .BYTE  137,182,160,0.0,0 

;  the  value  for  365.25  in  FP  accumulator 
C0B5    00  DEC1ML      .BYTE  0  ;  storage  for  number  of  decimal  places 

See  also  BYTASC,  CNUMOT,  FACPRT,  NUMOUT. 
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Name 

Print  the  value  in  floating-point  accumulator  1 
Description 

All  BASIC  mathematical  operations  use  a  series  of  six  loca- 
tions— known  collectively  as  a  floating-point  accumulator — to 
store  real  numbers.  Actually,  the  64  and  128  have  two  sepa- 
rate floating-point  accumulators.  The  primary  one,  located  at 
97-102  on  the  64  and  99-104  on  the  128,  is  labeled  FAC1, 
The  secondary  one,  often  used  to  hold  an  interim  value  in  a 
calculation,  is  FAC2  (located  at  105-110  on  the  64  and 
107-112  on  the  128). 

At  any  rate,  whether  you  use  BASIC'S  built-in  routines  as 
they  are,  modify  them,  or  write  your  own,  you'll  certainly 
need  to  display  the  contents  of  these  floating-point  accu- 
mulators at  some  point.  The  routine  that  follows  prints  the 
contents  of  floating-point  accumulator  1  to  the  screen. 

Prototype 

1.  Prior  to  the  routine,  JSR  to  FOUT  to  convert  the  contents  of 
floating-point  accumulator  1  to  an  ASCII  string  at  $100. 

2.  Beginning  at  $100,  print  each  byte  of  the  string  until  a  zero 
byte  is  found. 

Explanation 

In  the  example  program,  the  number  365.25 — the  number  of 
days  in  a  year — is  represented  by  FPNUM,  just  as  it  would  ap- 
pear in  one  of  the  floating-point  accumulators.  The  first  byte 
of  FPNUM  is  the  binary  exponent  of  the  number  (plus  129  to 
account  for  negative  exponents) — that  is  137  —  129,  which  is 
8,  so  the  exponent  is  2  to  the  eighth  power.  The  next  four 
bytes  are  the  mantissa  of  the  number,  with  the  first  bit  in  the 
series  containing  the  sign  of  the  number.  The  last  byte  is  the 
sign  byte— 0  indicates  a  positive  number;  255,  a  negative 
number. 

In  the  program,  the  floating-point  representation  of 
365.25  is  stored  in  floating-point  accumulator  1.  The  BASIC 
routine  FOUT  (located  at  48605  on  the  64  and  36418  on  the 
128)  converts  it  into  an  ASCII  string  and  stores  it  in  a 
workspace  area  at  the  top  of  the  stack  (beginning  at  $100). 
After  the  number  has  been  converted,  FACPRT  prints  it  to  the 
screen. 

In  converting  the  floating-point  number  to  an  ASCII 
string,  FOUT  positions  a  terminator  byte  of  zero  at  the  end  of 
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Routine 


the  string.  As  a  result,  this  routine  is  much  like  other  string- 
printing  routines  in  this  book.  Using  CHROUT,  you  simply 
output  each  byte  of  the  string  to  the  screen  until  a  zero  byte  is 


;  FAC1  =  99  on  the  128 — floating-point 
:  accumulator  1 

;  FOUT  =  36418  on  the  128— converts  FAC1 
i  to  ASCII 

.  workspace  at  the  top  of  the  stack 

I 

;  Print  the  number  in  floating-point 
;  accumulator  1. 

;  clear  the  screen 


;  If  .Y  ls  0-5.  continue 

;  convert  contents  of  FAC1  to  ASCII  string 

:  string  Is  in  stack  area 

;  print  the  EAC1  value  and  return 

;  FACPRT  prints  the  number  in  floaring- 
;  point  accumulator  i. 
,-  as  an  Index 

;  load  each  ASCII  byfe  of  string 

;  if  zero  byfe,  we're  finished 

;  otherwise,  print  it 

;  next  byte 

;  branch  always 

;  return  to  MAIN 


j  the  value  for  365.25  in  FP  acorn 


cooo 

CHROUT 

65490 

cooo 

FAC1 

- 

97 

cooo 

FOUT 

— 

48605 

cooo 

STWORK 

= 

256 

cooo 

MAIN 

= 

* 

cooo 

A9 

93 

CLRCHR 

LDA 

#147 

C002 

20  D2 

FF 

CHROUT 
#5 

C005 

AO 

05 

coo*? 

B9 

24 

CO 

i  nop 

I  DA 

C00A 

99 

61 

00 

STA 

FACl.Y 

COOD 

88 

DEY 

C00E 

10 

F7 

BPL 

LOOP 

C010 

20 

DD  BD 

|SR 

FOUT 

C013 

4C 

16 

CO 

IMP 

FACPRT 

C0I6 

AO 

00 

FACPRT 

LDY 

#0 

C018 

B9 

00 

01 

MORE 

LDA 

STWORK, 

C01B 

F0 

06 

BEQ 

OUT 

C01D 

20 

D2 

FF 

JSR 

CHROUT 

C020 

C8 

INY 

C021 

DO 

F5 

BNE 

MORE 

C023 

60 

OUT 

RTS 

C024 

89 

B6 

AO 

FPNUM 

-BYTE 

137.182,16 

ho  BYTASC,  CNUMOT,  FACPRD, 
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Description 

FETCH  is  just  the  opposite  of  STASH;  it  tranfers  bytes  from 
expansion  RAM  in  the  model  1700  and  1750  RAM  Expansion 
Modules  into  system  memory. 

Prototype 

1.  Enter  this  routine  with  the  REC  registers  set  with  the  appro- 
priate system  memory  base  address,  expansion  RAM  base 
address,  and  number  of  bytes  to  transfer.  The  .X  register 
should  contain  the  system  bank  number. 

2.  Load  .Y  with  the  value  required  in  the  command  register 
(location  57089)  to  perform  a  fetch  operation. 

3.  JMP  to  the  Kernal  routine  DMACALL. 

Explanation 

Memory  locations  57088-57098,  on  the  128,  are  used  to  ad- 
dress the  REC  (RAM  Expan  sion  Controller  chip)  registers  in 
the  model  1700  or  1750  RAM  Expansion  Modules.  The  REC 
chip  performs  four  different  memory-management  operations: 
stashing,  fetching,  swapping,  and  verifying. 

The  program  below  is  designed  to  be  used  with  the  pro- 
gram provided  with  STASH.  That  particular  program  stores 
BASIC  programs  into  one  of  four  32K  memory  partitions  in 
the  RAM  expansion  unit.  This  program,  on  the  other  hand,  re- 
trieves BASIC  programs  which  have  been  stored  to  the  expan- 
sion module. 

So,  after  you've  run  the  program  associated  with  STASH 
and  saved  a  few  BASIC  programs  to  expansion  RAM,  run  this 
one.  Notice  that  since  it's  assembled  at  a  different  location 
than  its  companion  program,  both  can  reside  in  memory 
simultaneously. 

Next,  SYS  to  the  starting  location  (4864)  of  the  program, 
following  the  SYS  address  with  the  number  of  a  partition  that 
contains  a  previously  stored  BASIC  program.  For  example,  sup- 
pose you  wanted  to  fetch  a  previously  saved  BASIC  program 
from  partition  2,  you'd  enter  SYS4864,2.  The  BASIC  program 
in  partition  2  would  then  be  restored  to  the  BASIC  text  area. 

The  program  associated  with  STASH,  when  called,  saves 
the  BASIC  pointers— the  start-  and  end-of-BASIC  addresses- 
followed  by  the  BASIC  program  itself.  Two  separate  transfer 
operations  are  required  to  restore  it.  The  BASIC  pointers  are 
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the  first  thing  brought  back  from  the  designated  partition. 
Once  they're  installed,  the  BASIC  program  which  follows  is 
retrieved.  As  with  the  companion  program,  the  expansion- 
RAM  base  address  updates  automatically  with  each  byte  trans- 
ferred (bits  6  and  7  in  57098  are  00  by  ,J- 


3300 
1300 


1300 
1300 
1300 
1300 


65490 


DMASYA 
DMAEXA 

DMABNK 
DMADAT 
TXTTAB 
TEXTTP 

ZP 


57090 
57092 

57094 


4624 

251 


C9  01 

CMP 
BCC 

#1 

1302 

90  5D 

PRTMSG 

1304 

C9  05 

CMP 

#5 

1306 

B0  59 

BCS 

PRTMSG 

1308 

38 

SEC 
SBC 

1309 

E9  01 

si 

130B 
130C 
130F 

4A 

LSR 

8D  06 
A9  00 

DF 

STA 
LDA 

DMABNK 
#0 

1311 

8D  04 

DF 

STA 

DMAEXA 

1314 

90  02 

BCC 

EXPOFF 

A9  20 

DF  EXPC 

#32 

8D  05 

IFF  STA 

DMAEXA  + 1 

131B 

A9  FB 

LDA 

#ZP 

131D 

8D  02 

DF 

STA 

DMASYA 

1320 

A9  04 

LDA 

#4 

1322 

8D  07 

DF 

STA 

DMADAT 

1325 

A9  00 

LDA 

»0 

1327 

8D  08 

DF 

STA 

DMADAT-*- 1 

132A 

8D  03 

DF 

STA 

DMASYA +1 

132D 

AA 

TAX 

132E 
1331 

20    6F  13 

JSR 

FETCH 

A5  FB 

LDA 

ZP 

1333 

85  2D 

STA 

TXTTAB 

1335 

A5  FC 

LDA 

ZP+1 

1337 

85  2£ 

STA 

TXTTAB+ 1 

1339 

A5  FD 

LDA 

ZP+2 

133B 

8D  10 

12 

STA 

TEXTTP 

133E 

A5  FE 

LDA 

ZP+3 

,  Kerna!  routine  which  passes  command  in  .X 
;  to  DMA  controller 

j  DMA  system  memory  base  address  register 
;  DMA  expansion  memory  base  address 


;  DMA  expansion  memory  bank 
j  DMA  number  of  bytes  to  transfer 
;  start-of-BASIC  pointer 


;  Get  BASIC  program  from  RAM  ex; 
:  bank  0  or  1  on  32K  boundaries, 
i  Use  this  program^n  undem  with  the 

i  Stt&f  J%  »  range  H 

;  .A  is  less  than  1.  so  print  an  error  message 

:  and  leave 

;  .A  is  5  or  greater,  so  print  error  message 
;  and  leave 

;  now  subtract  1  to  put  it  in  range  0-3 

;  determine  RAM  expansion  bank 

;  store  it  into  register 

;  determine  32K  offset  In  each  bank  (high 

:  byte) 

;  also  store  zero  into  base  address  for 

;  expansion  memory  (low  byte) 

;  if  partition  number  is  1  or  3.  carry  is  clear. 

;  so  OK  offset 

!  offset  by  32K  if  partition  number  is  2  or  4 
;  store  in  base  address  for  expansion  memory 
;  (high  byte) 

;  store  starting  address  of  two  pointers  in 
;  system-memory  address  register 
;  low  byte 

;  store  number  of  bytes  to  transfer  in  DMA 
j  register  (low  byte) 

j  store  zero  to  high  byte 

■  also  store  zero  to  high  byte  of  system- 
;  memory  address 

;  put  system-memory  bank  number  in  -X 

!  retrieve  BASIC  pointers 

;  install  start-of-BASIC  pointer 
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1340    8D  11  12 


STA  TEXTTP+1 


1343 

38 

SEC 

1344 

AD 

10 

12 

LDA 

TEXTTP 

E5 

2D 

SBC 

TXTTAB 

1349 

8D 

07  DF 

STA 

DMADAT 

134C 

AD 

11 

12 

LDA 

TEXTTP  + 1 

134F 

E5 

2E 

DF 

SBC 

TXTTAB +  1 

•   '*  4    111  U      ■  1 

1351 

8D 

08 

STA 

DMADAT  4 1 

1354 

A5 

2D 

LDA 

TXTTAB 

1356 

8D 

02 

DF 

STA 

DMASYA 

135B 

2E 
03 

TXTTAB +1 

DF 

^ 

DMASYA +1 

135E 

4C 

6F 

13 

IMP 

FETCH 

1361 

AO 

00 

PRTMSG 

LDY 

#0 

1363 

B9 

74 

13 

PRTLOP 

LDA 

ERRMSG.Y 

1366 

FO 

06 

BEQ 

PRTEND 

1368 

20 

D2 

FF 

JSR 

CHROUT 

136B 

C8 

INY 

136C 

DO 

FS 

BNE 

PRTLOP 

136E 

60 

PRTEND 

RTS 

,  Now  it 

i  saved  after  the  pointers. 
;  determine  number  of  bytes  in  BASIC 
;  program 

;  get  end-of-BASIC  low  byte 

;  subtract  stait-of-BASIC  low  byte 

;  store  result  into  DMA  register  for  number  of 

I  bytes  to  transfer 

;  gel  end-of-BASIC  high  byte 

;  subtract  start-of-BASIC  high  byte 

;  store  to  high  byte  of  register 

.  store  starting  address  of  BASIC  as  system 


!  System  bank  number  is  in  X,  and  DMAEXA 
;  updates  automatically  (see  57098). 
;  retrieve  BASIC  program  and  RTS 

j  index  for  PRTLOP 
;  get  a  character  for  the 
;  end  on  a  zero  byte 
',  print 
;  next. 


136F     AO  81  FETCH  LDY 

1371     K   50    FF  JMP 

1374    4E    4F    54    ERRMSC  ASC 

1390    00  BYTE 

See  also  STASH. 


he  program 


;  Enter  this  routine  with  DMA  registers  set 
J  up.  and  system  bank  number  in  .X 
j  command  register  (57089)  value  for  retch 
,-  call  DMA  Keraal  routine  and  RTS 

f 


DMACALL 


"NOT  A  VALID  PARTITION  NUMBER" 
;  error 

0 
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Name 


This  routine  fills  a  portion  of  memory  with  a  particular  byte. 
Just  specify  in  the  equates  the  starting  address  for  the  portion 
of  memory  you  want  to  fill  (BLOCK),  the  number  of  bytes  you 
want  to  fill  (NUMBER),  and  the  particular  byte  you  want  to 
store  (FILBYT). 

Prototype 

1.  Store  the  number  of  bytes  to  be  filled  into  the  variable 
COUNTR  at  the  end  of  the  program. 

2.  Store  the  accumulator  containing  the  fill  byte  into  a  tem- 
porary storage  location  (TEMPA). 

3.  In  FILLOP,  store  the  contents  of  TEMPA  in  BLOCK,  using 
zero-page  addressing  until  COUNTR  decrements  to  zero. 
Then  return  to  the  calling  program. 

Explanation 

To  demonstrate  FILMEM,  the  example  program  stores  a  90 
(screen  code  for  Z)  into  400  bytes  of  screen  memory. 

Within  the  routine  itself,  a  two-byte  counter  (COUNTR) 
decrements  each  time  a  byte  is  copied.  When  this  counter 
reaches  0  (the  high  byte  must  decrement  to  255  on  the  last 
pass),  the  routine  is  complete. 

On  the  128,  to  fill  memory  in  another  bank,  use  the 
Kernal  routine  INDSTA  at  65399.  Define  the  target  bank  num- 
ber at  the  end  of  the  program  as  BNKFIL.  Then  substitute  the 
four  commented  instruction  lines  in  the  middle  of  FILMEM 
for  the  STA  (ZP),Y  at 

Routine 


cooo 
cooo 


cooo 


65490 
1384 
90 
400 


COOO  A9  93 

C002  20  D2  m. 

C005  A9  68 

C007  85  FB 

C009  A2  05 

C00B  86  FC 


LDA 

)5R 

LDA 


414 
CHROUT 


;  memory  block  to  fill 
;  byte  to  fill  with 
;  number  of  bytes  to  fill 
;  Kerr.al  routine  to  store 
;  bank  (128  only) 

:  Fill  NUMBER  of  bytes  of 
!  value  in  .A. 
r  the  screen 


to  any 
wilh  the 


»<BLOCK        ;  store  memory  block  to  fill  in  zero  page,  low 


#>  BLOCK 
ZP-M 


;  then  high  byte 
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COOD  A2  90 

COOF    AO  01 

C011    A9  5A 

C013    4C  16  CO 


COW  3E    3C  CO  FILMEM 

C019  8C   3D  CO 

C01C  8D  3E  CO 

COIF  AO  00 

C021  AD  3E  CO  FILLOP 

C024  91  FB 


LDX  *<NUMBER 


LDY 
IDA 


STX 
STY 
STA 
LDY 


COM  E6  FB 

C028  DO  02 

C02A  E6  FC 

C02C  CE  3C  CO  DECCTR 

C02F  DO  FO 

C031  CE  3D  CO 

C034  AD  3D  CO 

C037  C9  FF 


#>NUMB£R 
#FILBYT 


IMP  FILMEM 


COUNTR 
COUNTR+1 
TEMPA 
#0 


INC 


C039  DO  E6 
C03B  60 

C03C  00  00 


INC 
DEC 
BNE 

DEC 
LDA 

CMP 
BNE 


ZP 

DECCTR 

ZP+1 

COUNTR 

FILLOP 

COUNTR+1 
COUNTR+1 


FILLOP 


COUNTR  .WORDO 
BYTE  0 


;  then  put  low  bvte  of  number  of  bytes  to  fill 
.  in  .X 

:and  high  byte  in  .Y 

;  byte  to  fill  with  in  .A  (screen  code  for  a 

;  diamond) 

;  fill  memory  and  RTS 

;  Fill  memory.  Enter  with  the  number  of 
;  bytes  to  move  in  .X  (low) 
;  and  Y  (high).  Memory  block  is  in  two  bytes 
;  at  ZP. 

;  store  number  to  COUNTR,  low  byte  first 

;  then  high  byte 

;  store  fit. BYT  temporarily 

;  index  for  FILLOP 

;  restore  FILBYT  in  JV 

;  store  a  byte  into  memory  block 

;  For  the  128,  substitute  the  next  four  lines 

;  for  the  previous  line 

;  to  fill  memory  in  another  bank. 

;  LDX  #ZP;  put  zero-page  pointer  to 

;  memory  block  in  location  697 

;  STX  697 

;  LDX  BNKFIL;  bank  number  for  memory 
;fUl 

;  JSR  INDSTA;  store  into  bank  .X 
;  beginning  at  block 

* 

;  Increase  ZP  pointer  by  one,  low  byte  first 

;  if  low  byte  hasn't  turned  over,  decrement 

;  the  counter 

;  increase  ZP  high  byte 

;  decrement  counter  low  byte 

;  if  low  byte  hasn't  turned  over,  continue 

;  filling 

;  otherwise,  decrement  the  high  byte 
;  determine  whether  we've  filled  the  last 
;page 

;  on  the  last  page,  high  byte  of  counter  goes 

;  from  0  through  255 

;  if  not  on  the  last  page,  continue 


two-byte  counter  for  remaining  number  of 

bytes  to  fill 

temporary  .A  storage 

BNKFIL  .byte  15;  the  bank  number  for 
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Name 

Find  the  cursor  location 
Description 

FINDCR  uses  the  Kernal  routine  PLOT  to  return  the  current 
cursor  position  by  row  (in  .X)  and  column  (in  .Y).  This  routine 
is  handy  in  game  writing,  especially  when  you're  tracking  a 
player's  screen  position. 

Prototype 

1.  Set  the  carry  flag — required  by  PLOT. 

2.  JSR  to  the  Kernal  routine  PLOT  and  return  (or  s 
to 

Explanation 

The  example  routine  allows  you  to  move  about  the  screen  by 
using  the  cursor  keys  or  simply  by  typing  in  characters.  When- 
ever you  press  X,  its  position  is  returned  to  the  main  program 
by  FINDCR.  The  row  and  column  number,  separated  by  a 
space,  are  then  printed  with  NUMOUT. 

Note:  Setting  the  carry  flag  and  calling  PLOT  causes  the 
cursor  position  to  be  placed  in  .X  and  .Y.  Upon  returning  from 
PLOT,  .X  contains  one  fewer  than  the  actual  row  number, 
while  .Y  contains  one  fewer  than  the  column  number — that  is, 
if  you're  used  to  numbering  the  columns  1-40  and  the  rows 
1-25.  Programmers  who  start  counting  at  zero  will  find  the 


ing  within  a  window  on  the  128,  the  values  returned  in  .X  and 
.Y  are  relative  to  the  top  of  the  window  rather  than  to  the  top 


Warning:  If  you  use  this  routine  within  a  loop  indexed  by 
.Y  or  .X,  be  sure  to  save  the  current  index  value  to  a  safe  loca- 
tion before  calling  it  since  PLOT  affects  both  the  .X  and  .Y 


Routine 

cooo 
cooo 
cooo 
cooo 


PLOT 

GETIN  - 
CHROUT  = 
LINPRT 


65520 
65508 
65490 
48589 


cursor-position  routine 


C000  A9  93  CLRCHR 

C002  20  D2  FF 

C005  20  E4   FF  LOOP 

COOS  C9  58 


LDA  «147 

|SR  CHROUT 

JSR  GETIN 

CMP  »88 


;  Print  the  current  cursor  row  (0-24)  and 
;  column  (0-39)  when  X  1~- ' 
;  clear  the  screen 

;  get  a  character 

;  is  it  X? 
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COOA    FO  06 

GOOC   20  D2 

COOF    4C  05 

C012    20  35 

C0I5    8C  3A  CO 

C018   A9  58 

C01A  20  D2  FF 

C01D  A9  OD 

20  D2  FF 

20  30  CO 

C025    A9  20 

C027    20  D2  FF 

C02A  AE  3A  CO 

C02D  4C  30  CO 


FF 
CO 

CO  LOCATE 


COIF 
C022 


BEQ 

|SR 

IMP 

J5R 

STY 

LDA 

JSR 

LDA 

JSR 

M 

LDA 
JSR 
LDX 
IMP 


LOCATE 
CHROUT 
LOOP 
FINDCR 

TEMPY 
#"X 

CHROUT 
#13 

CHROUT 
NUMOUT 

#32 

CHROUT 
TEMPY 


C030    A9  00  NUMOUT    LDA  #0 

C032   4C  CD  BD  JMP  UNPRT 


C035    38  FINDCR  SEC 

C036  20  FO  FF  JSR 
C039    60  RTS 


PLOT 


;  it's  X.  so  < 
;  otherwise,  print  character 
;  and  continue 

;  determine  the  cursor  positio 

;  print  X 

;  prim  RETURN 

;  print  the  row 
;  print 


m  and  RTS 


C03A  00 


.BYTE  0 


i  Print  the  two-byte  integer  in 
;  and  .A  (high  byte). 
;  high  byte  of  re 
;  here 

;  pnnt  number  and  RTS 


;  Locate  the  cursor.  Return  position  in  . 
;  (row)  and  Y  (column). 

•  locate'the  cursor 


i  temporary  .Y  storage 


FINDME 


Name 

Find  the  program  counter  address  (from  a  subroutine) 

The  program  counter  (PC)  is  an  internal  register  in  the  6510 
and  8502  microprocessors  that  keeps  track  of  which  ML 
instruction  is  currently  being  executed.  There  are  times  when 
it's  necessary  to  find  out  where  in  memory  a  program  is  lo- 
cated. And,  on  occasion,  a  subroutine  may  need  to  figure  out 
which  part  of  the  program  did  the  original  JSR.  This  sub- 
routine figures  out  the  program  counter  address  and  stores  it 
in  memory. 

Prototype 

1.  JSR  to  FINDME  (the  subroutine  that  finds  the  PC). 

2.  Wirttin  the  subroutine,  use  PLA  twice  to  pull  the  two-byte 

3.  After  storing  the  address  somewhere,  push  the  address 
back. 

4.  RTS. 

Explanation 

When  you  JSR  (Jump  to  a  SubRoutine),  the  computer  has  to  be 
able  to  figure  out  the  return  address  when  an  RTS  (ReTum 
from  Subroutine)  instruction  ends  the  subroutine.  So,  just 
before  jumping  to  the  subroutine,  the  computer  puts  the  re- 
turn address  on  the  stack,  high  byte  first,  followed  by  the  low 
byte. 

Knowing  this  makes  it  a  simple  matter  to  pull  the  address 
from  the  stack  and  store  it  in  memory  (location  829  was  cho- 
sen for  storage,  for  no  particular  reason  except  that  it's  avail- 
able on  the  64).  Before  the  subroutine  executes  the  RTS  to  get 
back,  you  must  put  the  return  address  back  on  the  stack  so 
that  the  RTS  will  work  properly. 

Note:  The  main  program  that  calls  FINDME  does  the  JSR 
at  location  $C000.  The  return  address  should  bring  you  back 
to  $C003,  the  next  instruction  after  JSR  FINDME.  Actually, 
the  address  that's  pushed  onto  the  stack  is  $C002  (the  return 
address  minus  one).  What  happens  during  an  RTS  is  that  the 
address  is  taken  from  the  stack  and  then  the  PC  is  in- 
cremented. After  each  instruction,  the  program  counter  counts 
forward,  and  RTS  is  no  exception.  Thus,  when  the  address  is 
printed,  you'll  see  a  49154  (decimal)  instead  of  a  49155. 
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Warning:  This  might  seem  to  be  a  convenient  way  to  fig- 
ure out  the  program  counter  value,  in  case  you  want  to  relocate 
the  routine  to  another  place  in  memory.  The  problem  is  that 
JSR  uses  an  absolute  address,  so  the  FINDME  subroutine  must 
be  at  a  known  location.  If  you  relocate  the  object  code  to  $8000, 
for  example,  the  first  three  bytes  of  the  program  (20  0D  CO) 
will  still  JSR  to  $C00D.  You  should  either  load  the  FINDME 
routine  as  a  separate  program  or  limit  its  use  to  finding  the 
address  of  the  calling  routine.  Another  routine  (FINDPC)  may 
be  preferable  if  you're  moving  ML  routines  around  and  don't 
know  where  they'll  be  placed. 

Location  829  is  not  available  on  the  128.  Programmers 
should  substitute  two  other  consecutive  free  memory  locations 
on  the  " 


cooo 
cooo 


UNPRT 


COOO    20   0D  CO 

C003  AE  3D  03 
AD  3E  03 
20  CD  BD 
60 


C00D  68 

C00E  8D  3D  03 

C012  8D  3E  03 

C015  48 

C016  AD  3D  03 

C019  48 

C01A  60 


See  also  FINDPC. 


JSR 


FINDME  PLA 


829 


FINDME 


LDX  IMHERE 

LDA  IMHERE +1 

JSR  UNFRT 
RTS 


IMHERE 


STA 
PLA 

STA  IMHERE +1 
PHA 

LDA  IMHERE 

PHA 

RTS 


J  choose  a  different  address  for  the  128 

;  general  routine  to  print  a  two-byte  unsigned 


;  Now  print  address  value. 
;  low  byte 
:  high  byte 

;  print  as  a  decimal  number 
;  all  done 

; 

;  subroutine  to  End  address  (minus  1)  of 

;  calling  routine 

j  pull  low  byte  from  stack 

;  store  in  IMHERE 

;  now  get  the  high  byte 

;  and  store  in  IMHERE+1 

;  put  It  back 

;  low  byte 

;  goes  back  alBo 

;  otherwise,  this  RTS  won't  work 
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Name 

Find  the  program  counter  address  (in-line  code) 
Description 

Most  ML  instructions  are  location-independent.  LDA  #$08 
loads  an  8  into  the  accumulator  regardless  of  where  the 
instruction  happens  to  reside  in  memory.  But  JMPs  and  JSRs 
are  absolute  instructions.  If  a  program  is  relocated  to  a  new 
section  of  memory,  the  internal  JMPs  and  JSRs  should  be 
modified.  This  routine  lets  you  find  out  where  you  are  in 
memory,  so  you  may  make  the  necessary  modifications. 

Prototype 

1.  Put  an  RTS  instruction  somewhere  safe  in  memory. 

2.  JSR  to  it,  which  means  coming  back  immediately. 

3.  Transfer  the  stack  pointer  to  .X. 

4.  Decrement  .X  twice  and  put  the  result  back  in  the  stack 
pointer  with  TXS. 

5.  Pull  the  address  from  the  stack. 

Explanation 

The  JSR  instruction  pushes  the  return  address  (minus  1)  onto 
the  stack,  which  for  the  6510  and  8502  microprocessors  is  al- 
ways located  in  page  1.  The  stack  builds  down  in  memory 
from$lFF. 

The  opcode  for  the  RTS  instruction  is  96  (decimal),  so  if  a 
96  is  stored  in  memory  and  you  JSR  there,  the  program 
bounces  right  back  to  where  it  started.  But  in  the  meantime, 
the  stack  has  very  briefly  held  the  return  address  from  the 
JSR.  All  you  have  to  do  to  reset  the  stack  pointer  to  the  ad- 
dress is  transfer  the  stack  pointer  to  .X  (TSX),  decrement  .X 
twice,  and  transfer  .X  back  to  the  stack  pointer  (TXS).  PLA 
pulls  the  low  byte  off  the  stack  and  another  PLA  pulls  the 
high  byte. 

Note:  The  resulting  address  is  stored  in  the  IMHERE  loca- 
tion (location  829  is  used  in  the  example  routine,  but  it's  avail- 
able only  on  the  64).  The  JSR  at  $C005  originally  put  the 
address  on  the  stack.  The  return  address  is  $C008,  but  the 
value  on  the  stack  is  actually  one  less  than  that.  When  the 
transfers,  decrements,  and  pulls  are  finished,  the  result  will  be 
a  $07  in  IMHERE  and  a  $C0  in  IMHERE+1. 
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Warning:  Do  not  use  this  as  a  subroutine.  If  you  do,  you'll 
find  the  address  of  the  subroutine  instead  of  the  routine  that 
called  it. 

Locations  828-830  are  not  free  on  the  128.  Substitute 
three  other  free  locations  for  the  labels  FREE  and  IMHERE  on 
the  128. 


Routine 


C00O  FREE 

C0OO  A9  60  FINDPC 

C002  BD  3C  03 

C005  20    3C  03 

COOS  BA  MINUS 

COOT  CA 

C00A  CA 

CO0B  9A 

C00C  68 

C00D  8D  3D  03 

C010  68 

COU  8D  3E  03 

C014  60 


See  also  FINDME. 


=        828  ;  could  be  any  free  location 

829  ;  two  bytes  to  store  eventual  program  counter 

;  {choose  other  addresses  for  the  128) 
LDA    #96  ;  the  object  code  for  RTS 

STA     FREE  ;  set  up  the  shortest  subroutine,  there  and 

;back 

JSR      FREE  ;  bouncing  back  (note  the  address) 

TSX  ;  stack  pointer  in  X 

DEX  ;  decrement  once 

DEX  ;  and  twice 

;  put  it  back  in  I 
;  pull  on*  byte 
;  low  byte  of  PC  into  1 
;  pull  the  next  byte 
;  high  byte  of  PC 

;  end  of  this  routine,  normally  we'd  process 
;  address  value 

;  The  value  in  829  will  point  to 
;  one  byte  before  the  label  MINUS  above. 


PLA 

STA  IMHERE 
PLA 

STA  IMHERE +1 
RTS 
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Name 

Read  a  joystick  fire  button 


This  simple  routine  checks  the  fire  button  of  the  spi 
joystick. 

Prototype 

1.  Enter  this  routine  with  the  accumulator  containing  the  num- 
ber of  the  joystick  whose  fire  button  you  wish  to  check. 

2.  Load  the  contents  of  the  appropriate  joystick  register  into 
the  accumulator. 

3.  Test  bit  4  of  the  accumulator  by  ANDing  with  %00010000 
and  RTSing  to  the  main  program.  (If  the  zero  flag  is  set  as  a 
result  of  the  AND,  the  fire  button  is  pressed.) 

Explanation 

Pressing  the  fire  button  on  either  joystick  clears  bit  4  of  the 
corresponding  joystick  register.  Joystick  port  1  is  wired  to  the 
register  at  56321  (CIAPRB),  while  port  2  is  connected  to  56320 
(CIAPRA).  You  might  expect  the  sequence  of  the  registers 
(56320-56321)  to  be  the  same  as  the  sequence  of  the  joystick 
labels  (1-2),  but  for  some  reason  they're  switched. 

Before  you  call  FIREBT,  provide  the  joystick  number  in 
the  accumulator.  The  routine  then  reads  the  appropriate  reg- 
ister and  returns  with  the  zero  flag  set  if  the  fire  button  for 
that  joystick  is  being  pressed. 

In  the  example  program,  pressing  the  fire  button  on  joy- 
stick 1  causes  the  border  color  of  the  screen  to  increment. 


e  screen 


C000  A9  0!  JOYLOP 

C002  20  OB  CO 

COOS  DO  F9 

07  EE  21  DO 


COOB  29  01 

C00D  AA 

CO0E  BD  00  DC 

Cm  29  10 

C013  60 


Seet 


FIREBT 


LDA  #1 
JSR  FIREBT 
BNE  IOYLOP 
INC 
RTS 


AND  #1 

TAX 

LDA  CIAPRA.X 
AND  #%00010000 
RTS 


color 


;  Read  joystick  1  fire  button.  C 
;  color  when  pressed. 
;  put  joystick  number  in  .A 
:  read  fire  button 

;  if  fire  button  not  pressed,  check  it  again 
;  increment  screen  color 
;  and  you're  done 

;  Enter  the  routine  with  joystick  number 
;  in  .A. 

;  determine  joystick  offset 
;  pul  offset  In  .X 

;  read  joystick  1  U  -  1)  or  2  (.X  =  0) 
,-  test  Are  button  bit— result  is  zero  If  fired 
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Name 

Format  a  disk 

Description 

A  disk  must  be  formatted  before  it  can  be  used.  This  process 
lays  down  the  tracks  and  sectors  that  will  later  hold  the  pro- 
grams and  files  you  save  to  the  disk.  This  routine  formats  a 
disk,  preparing  it  for  reading  and  writing. 

Prototype 

1.  Open  the  command  channel  (with  the  Kernal  SETLFS, 
SETNAM,  and  OPEN  routines). 

2.  Send  the  command  "NO:diskname,  ID". 

3.  Close  the  file. 

Explanation 

This  routine  is  the  equivalent  of  the  BASIC  command  OPEN 
1,  8,  15,  "NO:diskname,lD" -.CLOSE  h  The  first  number  (the 
logical  file  number)  is  unimportant.  The  second  is  the  disk 
drive  number,  which  is  almost  always  8  unless  you  own  more 
than  one  drive,  in  which  case  the  device  number  may  be  8-11. 
The  final  number  is  the  secondary  address.  When  you  open  a 
disk  file,  the  secondary  address  is  the  channel  number,  and 
channel  15  is  reserved  for  direct  commands  to  the  drive.  The 
NO:  command  is  short  for  NEW  the  disk.  It's  followed  by  your 
choice  of  disk  name,  plus  the  ID. 

Note:  If  the  disk  has  previously  been  formatted,  you  can 
omit  the  ID  number.  The  disk  will  not  be  reformatted.  Instead, 
the  directory  will  be  cleared  and  the  disk  will  be  renamed 
with  the  new  disk  name.  As  far  as  the  disk  drive  is  concerned, 
this  is  equivalent  to  reformatting  the  disk.  Leaving  off  the  ID 
speeds  up  the  formatting  process. 


Warning:  This  progr, 
.  Experiment  with  it  < 


ram  will  erase  everything  on  your 
at  your  own  risk. 


Routine 


SETNAM 
OPEN 
CLOSE 
CLRCHN 


$FFBA 
SFFBU 

$FFC0 
SFFC3 
$FFCC 


C000 
C000 
C000 


COOO 
C002 
C004 
C0O6 
COOS 


A9  01 
A2  08 
AO  OF 


FORMAT  LDA  #1 
LDX  #8 
LDY  #15 


;  logical  file  (1) 

;  disk  drive  is  device  8 

:  command  channel  15 
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;  address  of  the  buffer 
;  set  name 
;  open  li 

;  and  Immediately 
;  close  the  command  channel 
!  clear  the  channels 
;  all  done 

:  Data  area 

C01£  4E  30   3A  BUFFER      ASC  "N0:MYD1SK.MD" 

;  Substitute  your  own  name  for  MYDISK.  and 
;  your  own  ID  for  MD 

C02A  0D  BYTE  13  ;  RETURN  character 

C02B  BUFLEN       =         *  -  BUFFER 

See  also  CONCAT,  COPYFL,  INITLZ,  RENAME,  SCRTCH,  VALIDT. 


C00D  AO  CO 

COOF  20  BD  FF 

C012  20  CO  FF 

C015  A9  01 

C017  20  O  FF 

COIA  20  CC  FF 

C01D  60 


LDY  #>BUFFER 

JSR  SETNAM 

JSR  OPEN 

LDA  #1 

JSR  CLOSE 

JSR  CLRCHN 
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Name 

Print  the  number  of  free  sectors  remaining  on  the  disk 
Description 

FRESEC  prints  the  number  of  free  sectors  remaining  on  the 
disk  without  printing  the  entire  directory.  Such  a  routine  is 
useful  in  reporting  to  the  user  the  amount  of  space  remaining 
on  the  disk  before  a  save  is  attempted. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  OPEN  1,8,0  with  a  directory  specifier,  $0:,  and  a  non- 
existent filename  (SETLFS,  SETNAM,  and  OPEN)  for 
reading. 

3.  On  the  128,  prior  to  SETNAM,  load  .X  with  the  bank 
containing  the  directory  filename.  Then  JSR  to  SETBNK. 

4.  Read  in  and  discard  the  first  six  bytes  (two  track  and  sector 
bytes,  two  link  bytes,  and  two  for  the  number  of  blocks 
occupied). 

5.  Read  bytes  from  the  disk  header  until  a  zero  byte  occurs. 

6.  Discard  the  two  link  bytes  from  the  BLOCKS  FREE  entry. 

7.  Print  the  two-byte  number  representing  the  blocks  free  with 
NUMOUT. 

8.  Print  the  BLOCKS  FREE  message  and  close  the  file. 
Explanation 

In  FRESEC,  we  use  the  directory  name  $0:Z-£  =  U.  This  tells 
the  computer  to  search  the  directory  for  any  USR  programs 
that  begin  with  the  characters  Z-£.  Of  course,  it's  very  unlikely 
that  such  a  file  exists.  Not  finding  this  filename,  the  computer 
loads  the  directory  header  and  reports  the  number  of  free 
blocks  on  the  disk. 

To  see  what  we  mean,  try  this  from  BASIC:  Just  LOAD 
"$0:Z-£=U",8  and  list  what  loads. 

The  directory  file  is  structured  much  like  a  BASIC  pro- 
gram file.  Within  the  directory,  each  entry  (including  the  disk 
header  and  the  BLOCKS  FREE  message)  is  comparable  to  a 
program  line. 

At  the  beginning  of  the  directory  are  two  bytes  that  act  as 
a  load  address  for  a  program.  (If  you  LOAD  "$",8,1,  the  direc- 
tory finds  its  way  into  1024,  which  is  where  screen  memory  is 
located.)  We  have  no  use  for  these  bytes,  and  they  are  dis- 
carded. The  next  two  bytes  are  link  bytes  that  point  to  the  ad- 
dress of  the  first  entry  in  the  directory.  These  are  equivalent  to 
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the  link  bytes  in  a  BASIC  program  file  that  point  to  the  next 
program  line.  Again,  these  bytes,  here  associated  with  the  disk 
name,  are  discarded. 

The  next  two  bytes  represent  the  number  of  blocks  occu- 
pied by  that  particular  program  entry  (or  filename).  If  the  en- 
try is  the  disk  header,  these  two  bytes  are  always  zero,  and  we 
discard  them. 

After  this,  we  move  to  the  end  of  the  disk  header  descrip- 
tion by  finding  the  next  zero  byte.  Just  as  with  a  BASIC  pro- 
gram, this  zero  byte  marks  the  end  of  each  line  (or  entry).  So 
now,  we're  positioned  at  the  beginning  of  the  BLOCKS  FREE 
entry.  Again,  the  first  two  bytes  in  the  entry  are  link  bytes, 
and  we  ignore  them. 

Finally,  we've  reached  our  destination  within  the  direc- 
tory. The  next  two  bytes  represent  the  number  of  free  sectors 
remaining  on  the  disk  in  low-byte/high-byte  form.  This  two- 
byte  integer  is  printed  out  with  NUMOUT,  a  space  is  inserted, 
and  BLOCKS  FREE  is  printed. 

Our  purpose  accomplished,  file  1  is  closed  and  default  de- 
vices are  restored  with  CLRCHN. 

Note:  FRESEC  currently  lacks  disk  error  checking.  You 
can  easily  add  this  feature,  if  you  like,  by  incorporating  the 
subroutine  DERRCK  into  the  code.  Place  DERRCK  just  before 
FILENM,  as  noted  in  the  source  listing.  Jump  to  DERRCK  im- 
mediately after  you  have  opened  file  1  to  the  disk.  Also,  be 
sure  to  open  the  error  channel  (15)  at  the  beginning  of  the 
program.  (Again,  this  is  noted  in  the  source  listing.) 

On  the  128,  you  must  define  and  include  BNKNUM  and 
at  the  end  of  the  program. 


Routine 


cooo 


SETLFS 

SETNAM 

OPEN 

CHKIN 

CHRIN 

CHROUT 

CLOSE 

CLRCHN 

UNPRT 

SETBNK 

MMUREG 


= 


65466 
65469 
65472 
65478 
-J87 


48589 
65384 

65280 


;  (128  only) 


;  LINPRT  =  36402  on  the  128 

:  Kemal  bank  number  (or  OPEN  and 

;  filename  (128  only) 

:  MMU  configuration  register  (128 

;  Read  and  print  the  number  of  free  sectors 
.  remaining  on  the  disk. 

j  Open  channel  15  here  if  you  include  disk 
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;  error  checking  (DERRCK). 


cooo 


FRESEC  - 


COOO  A9  01 

CO02  A2  08 

COM  AO  00 

C006  20  BAFF 


C009  A9  08 

COOB  A2  51 

COOD  AO  CO 

COOF  20    BD  FF 

C012  20    CO  FF 


C0J5    A2  01 
C017    20    C6  FF 
C01A   A2  05 


IDA  #1 

LDX  #8 

LDY  #0 

JSR  SETLFS 


LDA 

LDX 
LDY 
JSR 
JSR 


#FNLENG 

#<FILENM 

#>FFLENM 

SETNAM 

OPEN 


LDX  #1 
JSR  CHKIN 
LDX  #5 


C01C   20    CF  FF   TOSSrr      JSR  CHRIN 

COIF    CA  DEX 

C020    10    FA  BPL  TOSSIT 


;  LDA  #0;  set  the  128  to  bank  15  028  only) 
;  STA  MMUREG;  (128  only) 
j  logical  file  1 

;  device  number  for  disk  drive 
;  secondary  address  to  read 
;  set  file  parameters 

;  Include  the  following  three  instructions 
;  for  the  128  only. 

;  LDA  BNKNUM;  bank  number  for  data 

;  LDX  BNKFNM;  bank  containing  the 

;  ASCII  filename 

;  JSR  SETBNK 

;  length  of  filename 

;  address  of  filename 


;  set  up  filename 

; 

w — 

;  checking 


error 


;  take  Input  from  file  1 

;  discard  six  bytes  (track  and  sector,  link, 

;  and  blocks  occupied— two  each) 


C022  20  CF  FF  INLOOP  JSR  CHRIN 
C025    DO  FB  BNE  INLOOP 


C027  20  CF  FF 
C02A   20    CF  FF 


JSR 
JSR 


CHRIN 
CHRIN 


;  Read  information  on  disk  header  until 
:  zero  byte  is  reached.  What  follows 
;  Is  the  number  of  blocks  occupied  (two 
;  bytes)  and  BLOCKS  FREE  message. 
;  get  a  byte  from  open  file 

';  We've  reached  the  end  of  the  header.  The 
;  next  two  bytes  are  link  bytes. 
;  discard  them 


C02D   20    CF  FF 

C030  AA 

C031    20    CF  FF 


JSR  CHRIN 
TAX 

JSR  CHRIN 


COM    20    CD  BD  NUMOUT  JSR  LINPRT 


C037  A9  20 

C039  20  D2  FF 

C03C  20  CF  FF  PRTLOP 

C03F  20  D2  FF 

C042  DO  F8 

COM  A9  OD 

C046  20  D2  FF 

C049  A9  01 

C04B  20  C3  FF 


LDA  #32 
JSR  CHROUT 
CHRIN 
CHROUT 
PRTLOP 
LDA  #13 
JSR  CHROUT 
LDA  #1 
JSR  CLOSE 


JSR 
JSR 
BNE 


;  Print  the  t 

rofbl. 


;  number  representing 
i  i^uisinin^  with 


;  low  byte  of  number 
;  high  byle  of  number 
;  print  the  number 

;  Print  BLOCKS  FREE  message. 
;  print  a  SPACE 

;  get  a  character 
;  and  print  it 

;  if  not  zero  byte,  get  another  character 
;  last  character,  so  print  a  RETURN 


;  close  file  1 


250 


FRESEC 


C04E    4C  CC  FF 


JMP  CLRCHN 


;  clear  all  channels,  restore  default  devices, 
;  and  return 


C051    24   30    3 A  FILENM 
FNLENG 


.ASC  "$0:Z-E=U" 
•  -  FILENM 


i  filename  for  USR  program  Z-E  in  the 

;  directory 

;  length  of  filename 

;  Include  the  next  two  variables  on  the  128. 
;  BNKNUM  .BYTE  0;  bank  number  for  d 
:  BNKFNM  BY" 
1  ASCU  f 


i  DIRBYT,  DIRPRG. 
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Exit  machine  language  and  GOTO  a  BASIC  line  number 


There  are  several  ways  to  combine  machine  language  routines 
with  BASIC.  The  most  common  way  to  call  an  ML  program  is 
with  the  SYS  statement.  When  you're  finished,  RTS  returns 
control  to  the  BASIC  program. 

With  the  following  GOTOBL  routine,  a  machine  language 
program  can  return  to  any  given  line  number  within  a  BASIC 
program.  This  means  that  if  you  SYS  to  an  ML  routine,  you 
can  return  to  the  BASIC  program  at  some  point  other  than 
where  you  SYSed  from.  If  you  want,  you  can  even  have  a  se- 
ries of  conditional  GOTOs  to  different  BASIC  line  numbers 
within  your  ML  program.  Or  you  can  pass  a  variable  value  to 
the  ML  routine  using  PASFMV,  convert  it  to  an  integer,  and 
GOTO  the  chosen  line  number. 

Prototype 

111  Store  the  BASIC  line  number  you  intend  to  go  to  at  the  end 
of  the  routine  (BSLINE). 

2.  Within  the  routine  itself,  store  the  low  and  high  bytes  of  the 
target  BASIC  line  number  in  .A  and  .Y  and  store  them  in 
LINNUM. 

3.  Then  jump  into  BASIC'S  GOTO  routine. 
Explanation 

In  the  example  program,  GOTOBS  performs  a  GOTO  to  line 
2000  within  the  BASIC  program.  When  you  try  the  program, 
be  sure  that  you  have  a  line  2000  in  memory;  otherwise,  you'll 
get  an  undefined  line  error. 

GOTOBL  itself  is  very  straightforward.  Within  it,  the  tar- 
get line  number  (BSLINE)  is  placed  in  the  two-byte  LINNUM 
(location  20  on  the  64  and  22  on  the  128).  After  this,  the  pro- 
gram jumps  directly  into  the  middle  of  BASIC'S  GOTO  routine 
(43196  on  the  64  and  23035  on  the  128).  We  skip  the  part  of 
the  GOTO  routine  that  gets  the  target  line  number  since  it's  al- 
ready provided. 


GOTOBL 


Routine 

cooo 
cooo 


LINNUM 
GOTOBS 


COOO  AD  OD  CO  GOTOBL 

C003  85  14 

C005  AC  OE  CO 

C008  84  15 

COOA  4C    BC  A8 


COOD  DO  07 


BSUNE 


LDA 
STA 
LDY 
STY 
JMP 


20 

43196 


BSLINE 

LINNUM 

BSLINE+1 

LlNNUM+1 

GOTOBS 


WORD  2000 


;  LINNUM  =  22  on  the  128— integer  line 
;  number 

i  GOTOBS  =  23035  on  the  128— GOTO  the 
;  line  number  in  LINNUM 

:  Exit  ML  and  GOTO  a  BASIC  line. 

;  urate  low  byte  of  line  number  to  return  to 

;  now,  •tore  high  byte 

;  exit  ML,  GOTO  BASIC  line 

;  BASIC  Une  to  GOTO 


See  also  PASFMV,  PASMEM,  PASREG,  PASUSR. 
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GOTO  from  a 
branches 

Description 

This  is  probably  the  fastest  way  to  execute  a  routine  based  on 
a  limited  number  of  keyboard  responses.  Here,  you  simply  get 
a  character  from  the  keyboard  and  check  the  response  sequen- 
tially against  a  series  of  allowed  ASCII  responses.  If  a  suitable 
response  is  found,  branch  to  the  appropriate  routine. 

Prototype 

ji  Get  a  keypress. 

2.  Compare  its  ASCII  value  with  each  acceptable  response  and 
branch  to  the  appropriate  routine. 

3.  If  the  response  is  not  among  those  compared  with,  branch 
to  step  1. 

Explanation 

The  example  program  illustrates  a  common  programming 
situation — checking  for  a  Y  (yes)  or  N  (no)  response.  If  you 
press  Y,  the  screen  border  color  changes  to  white.  An  N 
changes  it  to  black. 

As  it's  currently  written,  the  routine  checks  for  two 
characters.  But  additional  CMP  #ASCU  valueSEQ  routine  ad- 
dress instructions  can  be  added  if  you  need  to  check  for  more 
keys. 

If  many  characters  are  checked  for,  place  the  CMP  and 
BEQ  steps  for  the  most  commonly  pressed  keys  early  in  the 
code.  This  will  speed  execution  of  the  routine  slightly. 

If  the  routines  you  wish  to  execute  lie  outside  the  range  of 
the  branch  instruction  (128  bytes  backward  or  127  bytes  for- 
ward), you  can  use  GOTOST.  Or,  you  can  use  a  CMP  XASCII 
value:  BNE  next  compare:  JMP  routine  address  arrangement 
instead. 

Routine 

.  border  color  register 

!  Limit  input  to  V  or  N.  Then,  go  to 
:  appropriate  routine. 
;  get  a  character  from  keyboard 
;  is  it  N? 

;  N  waa^pressed,  so  go  to  NO  routine 


t  using  sequential  compares  and 


CETTN  -  65508 
EXTCOL  = 


C000  20  E4  FF    GOTOCP     JSR  GET1N 

C003  C9  4E  CMP  #78 

C005  FO  09  BEQ  ROUTEN 

C007  C9  59  CMP  #89 
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C009    DO  F5 


BNE  GOTOCP 


COOB  A9  01         ROUTEY     LDA  #1 

C00D  4C  15  CO  IMP  BORCOL 

C010  A9  00  ROUTEN     LDA  #0 

C012  4C  15  CO  IMP  BORCOL 


C015  8D  20  DO  BORCOL  STA  EXTCOL 
COl'B  60 

See  also  GOTOST. 


;  neither  N  nor  Y,  so  get  another  key 
f  If  Y,  fall  through  to  ROUTEY. 
;  Y  routine 

;  change  border  color  to  white 
;  N  routine 


:  Set  border  color.  Enter  with  color  value 

;  in  .A. 

:  set  register 


GOTOST 


Name 

GOTO  from  a  character  input  and  execute  using  the  stack 
Description 

GOTOST,  like  GOTOCP,  checks  for  limited  keypresses, 
executing  a  certain  routine  based  on  the  response.  The  ap- 
proach taken  here  is  preferred,  however,  when  the  number  of 
keypresses  and  corresponding  routines  is  lengthy. 

As  with  GOTOCP,  we  begin  by  getting  a  character  from 
the  keyboard.  At  this  point  (in  CHKLOP),  we  check  the  re- 
sponse against  a  number  of  suitable  characters  in  a  table 
(KEYS).  If  the  incoming  key  is  in  the  table,  we  go  to  the 
appropriate  routine  by  placing  its  address,  less  one,  on  the 
stack  and  executing  an  RTS.  The  RTS  causes  the  program  to 
jump  to  the  chosen  routine. 

The  location  of  each  acceptable  routine  is  listed  in  a  table 
of  two-byte  addresses  (labeled  ROUTES)  at  $C02C.  These  ad- 
dresses are  automatically  calculated  by  the  assembler. 

Prototype 

1.  Get  a  keypress. 

2.  Check  the  key  entered  against  a  table  of  allowed  character 
input. 

3.  If  the  input  key  is  the  same  as  a  character  in  the  table,  use 
its  relative  position  in  the  table  to  determine  the  address  of 
the  corresponding  routine. 

4.  Push  the  high  and  low  address  bytes  of  the  selected  routine 
onto  the  stack. 

5.  Execute  an  RTS,  thereby  jumping  to  the  chosen  routine. 
Explanation 

The  following  program  demonstrates  this  routine  by  checking 
for  an  A  or  a  B  keypress.  If  A  is  pressed,  the  background  color 
of  the  screen  is  cycled  through  the  available  colors;  if  B  is 
pressed,  the  border  color  rotates.  If  neither  key  is  pressed,  the 
program  gets  another  keypress. 

Note:  The  table  of  acceptable  characters  can  contain  the 
entire  ASCII  set  (as  many  as  255  characters),  if  you  like.  To 
speed  execution  of  the  routine,  place  the  characters  represent- 
ing the  more  likely  responses  at  the  beginning  of  the  table. 

Routine 

COOO  GET1N  -  65508 

coo°  BGCOL0  =  53281  ;  text-screen  background  color  register  0 

COOO  EXTCOL  =  53280  ;  text-screen  border  color  register 
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C000   4C  03   CO  LOOP 


C003  20  E4  FF  GOTOST 
C006    A2  00 

COOS    DD  30    CO  CHKLOP 
F0  07 


FOUND 


C015  OA 


C016  AA 

C017  BD  2D  CO 

C01A  48 

C01B  BD  2C  CO 

C01E  48 

COIF  60 


C020  EE  21  DO 
C023    4C  00  CO 


C026  EE  20  DO  BORCOL 
C02V    4C   00  CO 

C02C  IF   CO  25  ROUTES 

C030    41    42  KEYS 

NUMKEY 


IMP 

GOTOST 

GETIN 

Ldx 

#0 

CMP 

KEYS,X 

urn 

vcvt  iisin 
r  uum' 

TNX 

cpx 

#NUMKEY 

txa 

GOTOST 

ASL 

TAX 

LDA 

ROUTES+l.X 

PHA 

LDA 
PHA 

ROUTES,X 

RTS 

INC  BCCOL0 
JMP  LOOP 


;  Check  for  keys  in  table  and  execute 

:  appropriate  routine  using  stack. 

;  Change  (A)  background  or  (B)  border  color. 

;  check  lor  keys,  and  execute  appropriate 

;  routine 

';  get  ASCH  key  value 

;  check  each  character  in  table 
;  if  found 

;  check  key  number 

;  If  more  in  table,  check  next  character 

;  if  no  match,  get  another  keypress 

;  character  key  has  been  pressed 

;  double  its  value  since  routines  are  at  two- 

;  byte  addresses 


;  push  it  on  stack 
;  push  low  byte 

;  RTS  causes  program  to  return  to  last 
;  address  on  stack  plus  one 

;  Routines  for  A  and  B  follow. 
;  cycle  background  color 


INC 
IMP 


LOOP 


■  cycle  border  color 
i  and  get  another  ke 


WORDBCKCOL- l.BORCOl- 1 

;  two-byte  addresses  of  each  routine  minus  1 
ASC    "AB"  ;  list  of  acceptable  keystrokes 

=  '-KEYS 
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Name 

;  a  two-byte  instruction  with  the  BIT  instruction 


The  BIT  instruction  tests  one  value  against  another,  but  apart 
from  setting  a  few  status  register  flags,  it  changes  the  contents 
of  neither  the  registers  nor  memory.  Because  it  is  almost  a  do- 
nothing  command,  BIT  can  be  used  to  hide  a  two-byte  instruction. 
Prototype 

1.  Precede  each  instruction  in  a  series  with  a  .BYTE  $2C. 

2.  Jump  or  branch  into  the  list  at  various  entry  points. 

Explanation 

Suppose  you  saw  the  following  fragment  in  a  machine  lan- 
guage routine.  What  would  it  do? 

033C  LDA  #$41 
033E  BIT  $42A9 
0341  JSR  $FFD2 

If  you  enter  it  at  $033C,  the  routine  will  put  the  ASCII 
value  of  A  into  the  accumulator,  perform  a  BIT,  and  then  print 
the  accumulator  value.  But  what  is  the  significance  of  the 
comparison  with  location  $42A9?  There  is  none.  It  doesn't 
matter  what  value  is  found  at  $42A9,  and  it  doesn't  matter 
that  the  N,  Z,  and  V  flags  are  affected  by  the  BIT  instruction. 

Instead,  the  BIT  instruction  hides  the  two  bytes  $A9  and 
$42  (stored  low  byte  first,  of  course).  Those  two  bytes  combine 
to  form  the  instruction  LDA  #$42.  So  if  you  enter  the  routine 
just  past  the  BIT  instruction  (at  location  $033F),  the  routine 
prints  the  letter  B.  As  a  single  routine,  it  prints  either  an  A  or  a 
B.  There's  no  shorter  way  to  write  a  two-in-one  (or  more) 
routine. 

One  valuable  application  for  this  little  trick  is  in  extending 
-  -;e  of  branch  instructions.  A  BEQ  or  BNE  can  branch 
_  127  bytes  or  backward  128.  But  if  you  hide  an  addi- 
tional BEQ  or  BNE  inside  a  BIT,  you  can  increase  the  range  of 
a  branch. 

Routine 

cooo 
cooo 


SFFD2 

COOO    20    E4    FF    ENTRY        JSR       GETIN  j  gel* 

COOS    F0    FB  BEQ     ENTRY  ;  go  b 
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C005 

C9 

31 

HIDBIT 

CMP 

#49 

C0O7 

FO 

0D 

BEQ 

KEY1 

C009 

C9 

32 

CMP 

#50 

COOB 

FO 

0C 

BEQ 

KEY2 

COOD 

C9 

33 

BEQ 

#51 

l_UUr 

rO 

OB 

con 

C9 

34 

CMP 

£5" 

C013 

FO 

OA 

BEQ 

KEY4 

C015 

2C 

.BYTE 

$2C 

C016 

A9 

93 

KEY1 

LDA 

#147 

C018 

2C 

.BYTE 

$2C 

G019 

A9 

12 

KEY2 

LDA 

#18 

2C 

jBYTE 

U 

E6 

FB 

KEY3 

2C 
FO 

COIF 

06 

KEY4 

QUIT 

C021 

20 

D2 

FF 

JSR 

CHKOUT 

C024 

4C 

00 

CO 

JMP 

ENTRY 

C027 

60 

QUIT 

RTS 

;  the  1  key? 

;  branch  ahead 

;  is  il  a  27 

;  branch  ahead 

;  check  for  3 

;  yes.  it  is 

;  now  a  4 

;  another  branch 

;  the  BIT  instruction 

;  clear  screen  for  1 

;  reverse  on  for  2 

;  another  two-byte  instruction  for  3 


;  two  bytes  hiding  another 
;  equal  if  we  get  here) 
;  print  a  key 
;  and  jump  back 
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Name 


In  machine  language,  setting  up  a  high-resolution  graphics 
screen  on  the  64  or  128  is  a  multistep  process.  The  16K  video 
bank  where  the  screen  is  to  be  located  is  selected  (VIDBNK), 
bitmap  mode  is  enabled  (BITMAP),  and  the  newly  created 
screen  is  cleared  (CLRHRS  or  CLRHRF). 

In  addition,  before  you  draw  anything  on  this  screen,  the 
foreground  color — the  color  of  the  individual  pixels  or  dots  on 
the  screen — and  the  background  color  must  be  assigned.  Just 
as  COLFIL  fills  color  memory  for  a  text  screen,  HRCOLF  fills 
the  1000-byte  area  of  memory  associated  with  the  standard 
high-resolution  screen  (as  opposed  to  a  multicolor-mode 


Prototype 

1.  Enter  this  routine  with  the  foreground  color  value  in  the 
accumulator  and  the  background  color  value  in  .X. 

2.  Store  the  .X  register  contents  into  a  temporary  location. 

3.  Shift  the  low  nybble  of  the  accumulator  into  its  high 
nybble. 

4.  OR  in  the  temporary  location  so  that  the  accumulator  con- 
tains the  foreground  color  in  its  high  nybble  and  the  back- 
ground color  in  its  low  nybble. 

5.  Within  a  loop,  store  .A  in  all  1000  bytes  representing  high- 
resolution  color  memory  and  return  to  the  main  program. 

Explanation 

The  example  program  sets  up  a  high-resolution  graphics 
screen  (or  bitmap)  at  the  start  of  video  bank  1 — location  16384 
to  be  exact.  Color  memory  for  this  screen  directly  follows. 

Placing  the  bitmap  screen  in  a  video  bank  other  than 
bank  0  makes  the  code  a  little  more  involved,  especially  on 
the  128.  Above  16383,  memory  in  bank  15  on  the  128  consists 
only  of  ROM,  although  POKEing  values  into  locations  16384 
or  higher  of  bank  15  causes  whatever  is  being  stored  to  go 
into  bank  0  RAM.  And  this,  among  other  reasons,  requires  us 
to  treat  the  128  version  differently,  as  you'll  soon  see.  (For 
comparison  purposes,  you  might  look  at  the  program  under 
CLRHRF,  which  creates  a  high-resolution  graphics  screen  at 
location  8192.) 

Initially,  on  the  64,  the  contents  of  the  VIC-II  chip  mem- 
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ory  control  register,  or  VMCSB  at  53272,  are  saved  to  a  tem- 
porary location.  This  register  contains  the  offset  address  within 
the  current  video  bank  for  the  character  set  (in  its  low  nybble) 
and  the  text  screen  (in  its  high  nybble).  By  saving  it  out  in  this 
manner,  we'll  later  be  able  to  restore  the  text  screen  when  we 
exit  bitmap  mode. 

On  the  128,  you  don't  need  to  save  VMCSB.  The  reason 
is  that  on  this  machine  VMCSB  takes  its  value  during  each 
IRQ  interrupt  from  one  of  two  shadow  registers.  In  text  mode, 
this  register  is  VM1  at  2604,  while  in  bitmap  mode  it's  VM2  at 
2605.  Since  we  never  alter  VM1  in  the  program,  we  don't 
need  to  worry  about  storing  it  (or  VMCSB). 

Next,  a  value  of  %  10000000  is  stored  into  VMCSB  (into 
VM2  on  the  128,  since  this  register  gets  copied  to  VMCSB 
when  we  enter  bitmap  mode).  The  high  nybble  of  VMCSB  (or 
VM2)  still  points  to  the  offset  address  for  the  text  screen,  but 
in  normal  bitmap  mode,  the  text  screen  is  actually  color  mem- 
ory for  the  graphics  screen.  So  storing  an  $8  high  nybble  off- 
sets color  memory  by  8K  in  the  video  bank  we're  about  to 
choose  (bank  1).  This  places  color  memory  for  the  bitmap 
screen  at  24576.  (Video  bank  1  starts  at  16384,  and  the  $8  in 
the  high  nybble  of  the  VMCSB  register  sets  color  memory 
8  X  1024  bytes  higher  than  the  base.) 

Only  bit  3  of  the  low  nybble  of  VMCSB  (or  VM2  on  the 
128)  is  significant  in  bitmap  mode.  This  bit  is  the  8K  offset  to 
the  bitmap  screen  within  the  current  video  bank.  It  tells  the 
computer  whether  the  bitmap  screen  is  to  be  located  in  the 
first  half  of  the  video  bank  (if  set  to  zero)  or  in  the  second  half 
(if  set  to  one).  And  in  this  case,  since  we're  placing  the  screen 
in  the  first  half,  starting  at  16384,  bit  3  is  cleared. 

After  establishing  the  offset  address  of  the  high-resolution 
graphics  screen  and  its  color  memory  within  the  video  bank, 
we  actually  assign  a  video  bank  number  of  1  (defined  as 
BNKNUM)  using  VIDBNK.  Then  we  enter  bitmap  mode  with 
BITMAP.  On  the  128,  in  this  routine  be  sure  to  replace 
SCROLY  at  53265  with  its  shadow  register  GRAPHM  at  216. 
(See  BITMAP  for  details  on  why  this  is  done.) 

After  this,  the  high-resolution  screen  we've  created  is 
cleared  with  CLRHRS,  a  method  employing  self-modifying 
code  which  fills  the  screen  with  zeros.  See  CLRHRS  for  an 
explanation.  (Using  CLRHRF  is  another  option.) 

On  the  128,  just  before  clearing  the  screen,  you  can  insert 
an  STA  MMUREG+1.  This  instruction  causes  the  computer  to 


HRCOLF 


be  placed  into  bank  0  as  long  as  the  accumulator  contains  a 
nonzero  value.  And,  of  course,  this  is  where  our  bitmap  re- 
sides on  the  128.  (Recall  that  above  16383,  bank  15  is  ROM.) 
So,  if  you  PEEK  the  high-resolution  screen  here,  you'll  see  its 
contents,  rather  than  ROM,  in  bank  15. 

At  this  point  in  the  program,  we  use  the  current  routine, 
HRCOLF,  to  fill  color  memory  with  bytes  representing  me- 
dium gray  on  black.  Each  byte  of  color  memory,  assigned  to 
an  8  X  8  group  of  pixels  on  the  bitmap,  contains  the  fore- 
ground color  value  for  these  pixels  in  its  high  nybble  and  their 
background  color  value  in  the  low  nybble.  The  relative  color 
values,  defined  as  FORECL  and  BACKCL  in  the  equates,  are 
passed  to  the  routine  in  .A  and  .X.  (See  COLFIL  for  a  table  of 
colors  and  their  corresponding  values.) 

HRCOLF  combines  the  two  color  values  into  a  single  byte 
and  fills  color  memory  with  this  byte  within  HRCLOP.  The 
code  for  this  memory-filling  loop  is  similar  to  that  used  else- 
where in  this  book,  and  no  description  is  needed  here  (see 
CLRFIL  and  COLFIL). 

After  color  memory  is  filled,  the  program  awaits  a 
keypress  before  returning  you  to  the  normal  text  screen.  The 
Kernal  routine  GETIN  is  used  to  fetch  this  keypress. 

Since  the  Kernal  is  not  present  in  bank  0,  128  users  must 
switch  to  a  bank  where  the  Kernal  is  available.  Here,  we 
switch  to  bank  15  by  storing  a  zero  into  the  MM! 
tion  register  at  65280.  On  a  128,  add  LDA  #0:STA  MMl 
to  the  code  before  calling  GETIN. 

When  a  key  is  pressed,  BITMAP  disables  bitmap  mode, 
and  VIDBNK  puts  you  back  into  the  original  16K  video  bank 
(assumed  to  be  bank  0,  defined  as  BNKNMO).  Commodore 
128  users  should  see  the  normal  text  screen  almost  immedi- 
ately as  VM1  is  copied  to  VMCSB  on  the  next  IRQ  interrupt. 
\  64  users  must  physically  reset  the  VIC-II  chip  memory 
•  r  before  it  becomes  visible. 


cooo 

C00B 


cooo 
cooo 
cooo 
cooo 


ZP 

GETIN 
VMCSB 
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C12PRA 
C2DDRA 


53272 
53265 

56576 
56578 

I' 

24576 


;  VIC-11  chip  memory  c 
;  scroll/control  regisl 
;  216  cm  the  128 
;  CIA  2  data  port  register  A 
,-  CIA  2  data  direction  register  A 
;  for  medium-gray  fore 
!  for  black  background 
!  start  of  hi-res  color  memory 


HRCOLF 


cooo 


MMUREG  = 
VM2  = 


65280 
2605 


COOO  AD  18  DO 
  8D  8F  CO 


C006    A9  80 
C008    8D  18  DO 


COOB  AD  91  CO 
COOE  20  76  CO 
C011    20    6D  CO 


C014  20  33  CO 

C017  A9  OC 

C019  A2  00 

C01B  20  51  CO 


CO  IE  20    E4  FF  WAIT 

C021  FO  FB 

C023  20    6D  CO 

C026  AD  92  CO 

C029  20   76  CO 


LDA 
STA  TEMP 


LDA  #%  10000000 
STA  VMCSB 


LDA  BNKNUM 
JSR  VTDBNK 
ISR  BITMAP 


LDA  oFORECL 
LDX  »BAOCCL 
JSR  HRCOLF 


JSR  GETTN 
BEQ  WAIT 

BITMAP 


JSR 
LDA 


JSR       VIDBNK  i  select  bank  0 


;  MMU  configuration  register  (128  only) 
;  VIC-n  chip  memory  control  sh 
;  (128  only) 

;  Locate  hi-res  screen  at  16384  and  clear  It. 

;  color  memory  (gray  on  black) 

;  at  24576.  Enable/disable  bitmap  mode  with 

;  BITMAP,  clear  hi-res  screen 

;  with  CLRHRS,  and  fill  color  memory  with 

;  HRCOLF. 

;  temporarily  save  VMCSB  (64  only) 
:  (64  only) 

;  Now  offset  bitmap  by  OK  in  video  bank. 

;  locating  color  at  24K. 

i  LDA  #%0xxxl000  if  hi-res  screen  is  in 

;  second  half  of  video  bank 

;  reset  register  (replace  VMCSB  with  VM2  on 

;  the  128) 

;  Now  choose  bank  number. 
;  .A  contains  bank  0-3 
;  select  video  bank  1 
:  enter  bitmap  mode 

.-  STA  MMUREG  + 1,  set  the  128  to  bank  0 
:  (128  only) 

i  clear  the  hi-res  screen 

;  foreground  color  for  hi-res  screen 

;  and  background  color 

i  clear  hi-res  color  memory 

;  LDA  #0;  set  the  128  to  bank  15  (128  only) 

:  STA  MMUREG;  (128  only) 

;  get  a  keypress 

:  if  no  keypress,  then  wait 

:  turn  off  bitmap  mode 

.-  return  to  original  video  bank;  .A  contains 


C02C  AD  8F  CO 
C02F  8D  18  DO 
C032  60 


j  Reset  pointer  to  character  set. 
;  (64  only) 
;  (64  only) 


C033    AD  8E    CO  CLRHRS      LDA     HRSCRN  +  1 


C036  8D  46  CO 

C039  AD  8D  CO 

C03C  8D  45  CO 

C03F  A9  00 

C041  A8 


A2  20 

FF   FE  LOOP 


99 
C8 

DO  FA 


C042 
C044 
C047 
C048 
C04A  EE   46  CO 
C04D  CA 
C04E    DO  F4 
-----  60 


STA 
LDA 

STA 

LDA 
TAY 
LDX 
STA 
INY 
BNE 
INC 


LOOP+2 
HRSCRN 
LOOP+1 


#32 

SFFFF.Y 

LOOP 
LOOP+2 


LOOP 


;  Clear  the  hi-res  screen  with  a  self- 

;  modifying  code  method. 

;  store  hi-res  screen  address  In  dummy 

.     1^    .....     ...  *  I  Ull  II  > 


;  32  pages 

;  fill  a  block  of  256  bytes  with 


;  Clear  hi-res 
;BACKC1_ 


HRCOLF 


C0S1  6E 

C054  DA 

C055  OA 

C056  OA 

C0S7  OA 


90    CO  HRCOLF     STX  TEMPX 


C05B  AO 

C05D  88 

C05E  99 

C061  99 


90  CO 
FA 

00  60 

FA  60 


LDY  #250 
DEY 

STA     SCREEN^      ;  fint  quarter 

STA  " 


;  .tore  BACKCL  fa  JC  temporarily 
f  shift  low  nybble  of  FORECL  Into  high 


;  .A  now  contains  foreground  color  fa  high 
;  nybbie,  background  In  low  nybble 


C064    99    F4  61 


C067  99 

C06A  DO 
C06C  60 


Fl 


;  second  quarter 
STA  SCREEN+500.V 

;  third  quarter 
STA  SCREEN+750,Y 

;  fourth  quarter 
BNE    HRCLOP        ;  fill  all  250  bytes  with  color  byte 
RTS 


C06D  AD  11    DO  BITMAP      LDA  SCROLY 


C070    49  20 
C072    8D   11  DO 

C075  60 


C076  49  03 

C078  85  FB 

C07A  AD  02  DD 

C07D  09  03 

C07F  8D  02  DD 

C082  AD  00  DD 

C085  29  FC 

C087  05  FB 

C089  BD  00  DD 

C08C  60 

C08D  00  40 

C08F  00 

C090  00 

C091  01 

C092  00 


EOR 

STA 

RTS 


VIDBNK 

EOR 

#3 

STA 

ZP 

LDA 

C2DDRA 

ORA 
STA 

#3 

C2DDRA 

LDA 

CI2PRA 

AND 
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ORA 

ZP 

STA 

C12PRA 

RTS 

HRSCRN 

.WORD  16384 

TEMP 

.BYTE 

0 

TEMPX 

.BYTE 

0 

BNKNUM 

.BYTE 

1 

BNKNM0 

.BYTE 

0 

;  Enable/disable  bitmap  mode. 
;  substitute  GRAPHM  for  SCROLY  on  the 
;  128 

#%00 100000    ;  fhp  bit  5 

;  reset  register  (again  use  GRAPHM  instead 
;  of  SCROLY  on  the  128) 


:  Select  a  16K  video  bank.  .A  comes  in 

;  containing  the  chosen  bank  number 

;  effectively  (3  —  bank  number) 

;  store  it  temporarily 

;  set  data  direction  register  for  output 


;  take  current  CI2PRA  value 
.  and  keep  bits  2-7 
;  OR  with  (3  -  bank  number) 
,-  reset  register 

;  locate  hi  res  screen 
temporary  storage  for  VMCSB  < 
temporary  storage  for  J< 
bank  1 

bank  0  or  original  bank 


See  also  BITMAP,  CLRHRF,  CLRHRS,  HRPOLR,  HRSETP,  PAINT. 
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Name 

Set  or  clear  a  point  on  the  hi-res  screen  based  on  polar 
coordinates 

Description 

Polar  coordinates  use  two  numbers,  an  angle  and  a  distance 
value,  to  describe  a  position  on  a  (usually  circular)  grid. 
HRPOLR  translates  these  two  numbers  into  a  point  on  the  hi- 
res screen  and  turns  the  point  on  or  off. 

Prototype 

f.  Before  beginning,  create  two  lookup  tables — one  for  64  sine 
values,  the  other  for  64  cosines  (details  below). 

2.  Start  by  looking  up  the  sine  (or  cosine),  based  on  the  quad- 
rant (0-3).  Although  this  is  a  number  in  the  range  0-255,  it 
is  treated  as  if  it  had  a  leading  decimal  point. 

3.  Multiply  by  LENGTH  to  find  the  x  coordinate. 

4.  Add  or  subtract  from  the  origin  XORG  and  save  the 
number. 

5.  Repeat  the  steps  above,  substituting  cosine  (or  sine)  to  find 
the  y  coordinate. 

6.  Plot  the  resulting  point  on  the  hi  res  screen. 

Explanation 

To  locate  a  point  on  a  one-dimensional  line,  you  need  a  single 
number  representing  the  distance  from  the  origin.  On  a  two- 
dimensional  flat  plane,  such  as  the  hi-res  screen,  you  need  two 
numbers.  The  most  common  way  to  describe  a  point  is  to  use 
the  orthogonal  Cartesian  coordinate  system  (named  for  the 
French  mathematician  and  philosopher  Rene  Descartes),  which 
has  two  axes  and  x  and  y  coordinates.  A  second,  equally  valid, 
method  for  plotting  a  point  is  to  use  polar  coordinates,  where 
the  two  numbers  are  an  angle  and  a  distance  value.  In  the  fig- 
ure, the  same  point  can  be  described  in  either  Cartesian  or  po- 
lar terms. 
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Describing  a  Point 


Angles  are  customarily  measured  in  degrees  (360  per  cir- 
cle) or  radians  (2k  per  circle).  Both  systems  are  rather  arbitrary, 
and  neither  is  especially  well-suited  to  machine  language.  So  a 
third  method  has  been  employed  in  the  example  routine,  one 
that  uses  256  "slices"  per  circle.  Call  these  MLDegrees.  Note 
that  a  right  angle,  which  is  90  degrees  or  0.5  n  radians,  is  64 
MLDegrees.  The  advantage  of  this  system  is  that  an  angle  can 
be  described  by  single  byte.  Also,  by  examining  the  two  high- 
est bits  of  the  angle  value,  you  can  tell  which  quadrant  the  an- 
gle inhabits. 

The  HRSETP  subroutine,  which  calculates  and  turns  on  a 
pixel,  is  described  elsewhere  in  this  book.  The  MUL16  sub- 
routine is  basically  the  same  as  the  MULSHF  routine. 

Before  calling  this  routine,  you  have  to  create  two  lookup 
tables  for  the  sine  and  cosine  tables.  Use  the  following  short 

10  FOR  J=0  TO  63:  RAD=J*(7t/128):  C=INT(COS 

(RAD)*256):  S=INT(SIN(RAD)'256) 
20  POKE  52992 +J,C:  POKE  53056+J,S:  NEXT:  END 

This  creates  the  cosine  value  table  at  52992-53055  and 
the  sine  value  table  at  53056-53119.  You  can  also  include 
these  values  as  a  series  of  .BYTE  statements,  or  they  can  be 
loaded  from  a  disk  file. 

The  two  example  routines  draw  a  circle  and  a  spiral.  The 
circle  routine  keeps  the  length  constant  while  stepping 
through  the  angles  from  0  through  255  slices.  The  spiral  pro- 
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gram  does  the  same  thing,  but  the  length  gradually  decreases 
as  the  program  runs. 

Note:  Before  using  this  routine  on  the  128,  enter  POKE 
216,255  or  add  the  appropriate  LDA  and  STA  to  the  beginning 
of  the  program.  Also,  in  the  BASIC  setup  routine,  substitute 
location  4864  for  52992  and  location  4928  for  53056.  These 
two  locations,  used  for  the  table  of  sines  and  cosines,  should 
be  changed  in  the  equates  as  well. 


cooo 
cooo 


Zl 

HRSCRN 

HRCOLR 

GETIN 

COSINE 

SINE 
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COOO  20    64  CI 

C003  20    12  CO 

C006  20    2D  CO 

C009  20    E4    FF  LOOPG 

C00C  F0  FB 

C00E  20    9F  CI 

C011  60 

C012  A9  00  CIRCLE 

C014  8D  CA  CO 

CO  17  A9  63 

C019  8D  CB  CO 

C01C  20    24  CO 

C01F  A9  32 

C021  8D  CB  CO 

C024  20    4A  CO  CIRLP 

C027  EE    CA  CO 

C02A  DO  F8 

C02C  60 

C02D  A9  00  SPIRAL 

C02F  8D  CA  CO 

C032  A9  64 

C034  8D  CB  CO 

C037  20    4A  CO 

C03A  EE   CA  CO 

C03D  AD  CA  CO 

C040  29  OF 

C042  DO  F3 

C044  CE  CB  CO 

C047  DO  EE 

C049  60 

C04A  AD  CA  CO  HRPOLR 

C04D  29  3F 

C04F  AA 

C050  BD  00  CF 

C053  2C   CA  CO 

C056  50  03 

C058  BD  40  CF 

C05B  8D  DD  CI  XXX 


$0400 
—  $FFE4 
52992 
53056 

ISR  HRSETUP 


JSR 
BEQ 
JSR 
RTS 


CIRCLE 

SPIRAL 

GETIN 

LOOPG 

HRCLEAR 


f 

LDA  #99 


STA 
JSR 


LENGTH 
CIRLP 
LDA  #50 
STA  LENGTH 
JSR  HRPOLR 
INC  ANGLE 
BNE  CIRLP 
RTS 

LDA  #0 
STA  ANGLE 
LDA  #100 
5TA  LENGTH 


INC  ANGLE 

LDA  ANGLE 

AND  #15 

BNE  5PLOOP 

DEC  LENGTH 

BNE  SPLOC-r 


ANGLE 


TAX 

LDA  COSINE,X 

BIT  ANGLE 

BVC  XXX 

s-?AA  r* 


;  pointer  10  the  particular  byte  to  be  changed 
i  screen  Is  at  8192  decimal 
;  color  memory  at  1024 

;  address  of  cosine  value  table 
;  address  of  sine  value  table 

;  set  up  and  clear  the  hi-res  screen  and  color 
;  memory 
;  plot  a  circle 
!  and  a  spiral 
;  wait 

;  turn  off  hi-res  screen  and  restore  to  normal 


;  start  at  angle  of  0 
;  length  of  99 

;  down  below 

i  second  circle,  radius  of  50 


)  angle  starts  at  0 
I  length  is  100 

;  plot  it 

:  add  1  to  the  angle 

;  every  16  slices,  the  leng 
:  not  equal,  loop  back 
;  length  minus  1 
;  and  loop  back  until  0 


;  find  the  angle 

:  »trip  off  bits  6  and  7 

;  look  up 

;  the  cosine  (0-255)  from  a  table 
.-  check  for  quad  1  and  3 
;  OK  if  0  or  2 
;  el»e,  load  the  s 
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C05E 
C061 
C064 
C067 
C06A 
C06C 
C06E 
C070 
C072 


C07C 
C07F 
C082 
C083 
C086 


AD  CB  CO 
8D  DE  CI 
20    AF  CI 
AD  CA  CO 
29  CO 
F0  11 
C9  CO 
FO  OD 
AD  CC  CO 
36 

ED  EO  CI 
8D  CE  CO 
4C  89  CO 
AD  CC  CO 
18 

6D  EO  CI 
8D  CE  CO 

AD  CA  CO 
29  3F 
AA 

BD  40  CF 
2C  CA  CO 
50  03 
BD  00  CF 
8D  DD  a 
AD  CB  CO 
8D  DE  CI 
20  AF  CI 
AD  CD  CO 
2C  CA  CO 
10  OA 
18 

6D  EO  CI 
8D  CF 
4C  BF 
38 

ED  EO 
8D  CF 


LDA  LENGTH 
STA  B2 

MUL16 


CO 


CHECKY 


YYY 


LDA 

AND 

TAX 

LDA 

BIT 

BVC 

LDA 

STA 

LDA 

STA 

JSR 

LDA 

BIT 

BPL 


ADC 

STA 

IMP 

SUBTRACT SEC 
SBC 


STA 


ANGLE 
#$3F 

SBVE,X 
ANGLE 
YYY 

COSlNE,X 
Bl 

LENGTH 
B2 

MUL16 
YORG 
ANGLE 

TM+1 
REALY 
FOR  WD 

TM+1 
REALY 


COBF  AE  CE  CO  FORWD 

C0C2  AC  CF  CO 

C0C6  20    DO  CO 

C0C9  60 


COCA  00 
COCB  00 
COCC  64 


COCF  00 
CODO 

CODO  20    3D  CI 

C0D3  20    DD  CO 

C0D6  20    27  CI 

C0D9  20    50  CI 

CODC  60 


ANGLE 


YORG 

REALX 

REALY 

HRSETF 


LDX  REALX 

LDY  REALY 
CLC 

JSR  HRSETP 
RTS 

.BYTE  0 

BYTE  0 

.BYTE  100 

.BYTE  100 

.BYTE  0 
0 


JSR  SVREGS 

JSR  HRCALC 

JSR  POINTI 

JSR  LDREGS 
RTS 


;  length  In  byte  2 
;  multiply  them 
;  check  quadrant 
;  bits  6  iind  7 
;  two  zeros 
;  or  two  ones 
;  mem  add  to  XORG 
;  else,  subtract 

;  the  high  byte 

;  and  save  It 

;  now  do  the  y  location 

;  quadrant  0  or  3 

;  add  the  high  byte 
;  and  store  it 

;  get  the  angle  again 
;  bits  0-5 

1 8<*  'he  sine 

;  check  the  quadrant 

;  else,  get  the  cosine 
;  store  it  for  multiplying 
;  the  length 
;also 

;  multiply  them 

;  get  y  origin 

;  test  the  angle 

;  128-255  mean  subtract 

;  add  the  high  byte 
;  and  store 
;  skip  t 

;  subtract  from  YORG 


;  get  the  point's  x 
;  and  y  positions 

;  and  turn  on  the  point 


:  the  center  of  the  plotting  area 
'>ry 


:  set  a  point  on  Ihe  hi-res  screen 
;  based  on  values  in  .X,  .Y.  a  ' 
;  save  the  registers 
;  calculate  the  location  (in  Zl)  and  the  bit 
;  pattern  (MASK) 

;  (subsitute  POINT0  for  turning  off  a  pixel) 
I  restore  the  r~ 


C0DD  08 


HRCALC  PHP 
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ROWLP 


LDA  »<HRSCRN 

STA  Zl 

LDA  #>HRSCRN 

STA  Zl  +  1 

TYA 

AND  #7 

ORA  Zl 

STA  Zl 


LSR 
LSR 
TAY 

BEQ  ROWEND 
LDA  #<320 
CLC 

ADC  Zl 
STA  Zl 
LDA  #>320 
ADC  Zl+1 


STA 
DEY 


28  ROWEND 
90  02 

E6  FC 

8A  T1MEX 

29  F8 
18 

65  FB 
85  FB 
90  02 
E6  FC 

A9   80  NOMORE 

8D  63  CI 

8A 

29  07 
FO  07 
AA 

4E    63    CI  XLOOP 
CA 

DO  FA 

60  CLOSEUP 


C127  AO  00  POINTI 

C129  AD  63  CI 

C12C  11  FB 

C12E  91  FB 


CI  31  AO  00 

C133  AD  63  CI 

C136  49  FF 

C138  31  FB 

C13A  91  FB 

C13C  60 


PLP 
BCC 
INC 
TXA 


Zl  +  1 
ROWLP 


TIMEX 
Zl  +  1 


;  Initialize  Zl 


i  handle  the  row 
;  mask  out  the  three  low  bits 
:  and  add  them  to  Zl 

:  get .Y  ag 
;  shift  ri  ■ 
;  three 
;  times 

;  now  .Y  is  a  counter  for  adding  320 
;  if  0.  skip  the  next  part 
i  low  byte  of  320 

:  add  to  Zl 
;  store  it 
i  high  byte 
;  add  to  Zl 

;  loop  back 

j  Zl  now  points  to  the  left  edge  of  the  hi-res 
;  screen  <1  of  200  rows). 

:  retrieve  the  carry  flag 
;  if  dear,  the  left  side  of  the  seam 
;  otherwise,  add  256  to  the  pointer 
:  now  do  .X,  the  column 


AND    *%11111000    ;  mask  off  0-7  (the  individual  bits) 


STA 
BCC 
INC 
LDA 
STA 
TXA 
AND 


;  i 

;  store  it 
;  if  carry  is  clear, 
j  skip  Ihis  INC 
i  now  set  up 


TAX 
LSR 
DEX 
BNE 
RTS 


Zl 
Zl 

NOMORE 
Zl  +  1 
#$80 
MASK 

;  return  .X  to  A 
*%000001 1 1     ;  bottom  three  bits  (0-7  value) 
;  u  zero,  snip  it 

j  otherwise,  set  up  .X  for  a  counter 
:  move  It  right 
I  count  down 


MASK 
XLOOP 


C13D  08 
CI3E  48 


SVRECS 


LDY 

#0 

LDA 

MASK 

ORA 

(Z1),Y 

STA 

(Zl).Y 

RTS 

LDY 

#0 

LDA 

MASK 

EOR 

#$FFy 

AND 

STA 

RTS 

PHP 

PHA 

;  Finished  Zl  points  t< 
;  holds  the  bitmask. 

;  this  sets  a  point  on  tl 
:  get  the  mask 
;  rum  on  a  pixel 
;  put  it  on  the  screen 
;  and  that's  all 


;  almost  the  same  as  POINTI.  but  It  clears  a 


t  the  bitmask 
;  flip  the  bits 
;  AND  instead  of  OR 
;  store  it 

I  finished 

;  first  save  .P 
;  then  A 


269 


HRPOLR 


C13F  08 

C140  8D  5F  CI 

C143  8E    60  CI 

C146  8C   61  O 

C149  68 

C14A  8D  62  CI 

C14D  68 

C14E  28 

C14F  60 

C150  AE  60   CI  LDRECS 

C153  AC  61  CI 

C156  AD  62  CI 

CI  59  48 

C1SA  AD  5F  CI 

C15D  28 


C15E  60 
C15F  00 


C163  00 


TEMPA 
TEMPX 
TEMPY 
TEMPP 
MASK 

HR5ETUP 


PHP 

SIA 

TTV<  DA 

J  Ulvirrt 

STX 

TEMPX 

cry 

IT  is  i .  I 

PLA 

_ 

IfcMPP 

PLA 

PLP 

LDX 

1  CIV11  A 

L   L'  . 

TEMPY 

LDA 

TEMPP 

PHA 

LDA 

TEMPA 

PLP 

RTS 

BYTE 

0 

BYTE 

0 

BYTE 

0 

BYTE 

0 

BYTE 

0 

:  then  .P  again 
: save  .A 
;.X 

;and.Y 

i  pull  .P  into  j\ 

;  store  it 

;  get  .A  again 

;  and  P 

!    (  x 

:  push  it 
;  get  .A  back 
1  and  restore  .P 
;  done 


C164  A9  3B 

C166  8D  11  DO 

C169  A9  18 

C16B  8D  18  DO 

C16E  A9  10 

CI  70  AO  00 

'  99  00    04  COLLP 


LDA 

STA 
LDA 
LDY 
STA 


CI  78 


F4 

CI7B    99    EE  06 
CI7E  C8 
C17F   CO  FA 
CI81    DO  EF 


#24 
53272 
#$10 
#0 

HRCOLR.Y 

3LR+250.Y 


!  and  a  24  into  ! 
;  white  and  Mac. 
;  index  into  color  memory 


C188 


CI 


A9  00 

8D  93  CI 

A9  20 

C18A   8D  94 

C18D   A2  20 

C18F    AO  00 
C191  98 

C192  99  FF  FF 
CI95  C8 

C196    DO  FA 

C198  EE  94  CI 
C19B  CA 

C19C   DO  F4 
C19E  60 


LDA 
STA 
LDA 
STA 
LDX 
LDY 
TYA 
STA 
INY 
BNE 
INC 
DEX 
BNE 
RTS 


FAKE+1 
#>HRSCRN 
FAKE +2 
#32 


;  fill  1000  bytes 
;  now  set  up  the  clear 


$FFFF,Y 


;  32  pages 

;  zero  for  cleared  bits 


C19F  A9  IB  HRCLEAR  LDA 

C1A1  8D  11  DO  STA 

CIA4  A9  15  LDA 

C1A6  8D  18  DO  STA 

C1A9  A9  93  LDA 

C1AB  20  D2  FF  JSR 

C1AE  60  RTS 

C1AF  MUL16 

C1AF  A9  00  LDA 

C1B1  8D  DF  CI  STA 


#27 

53265 

#21 

53272 

#147 

$FFD2 


#0 
TM 


;  rum  off  hi-res 
;  2 


;  multiplies  two  numbers 
;  zero  out 
;  low  byte 
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C1B4    8D  EO 

CI 

STA 

TM+1 

C1B7    A2  08 

LDX 

#8 

C1B9   AD  DD  CI 

MULSTR 

LDA 

Bl 

C1BC  2E  DE  CI 

ROL 

B2 

C1BF    90  OF 

BCC 

NOMULT 

C1C1  18 

CLC 

C1C2   AD  DF 

CI 

ADC 

TM 

C1C5  8D  DF 

a 

STA 

TM 

C1C8   A9  00 

LDA 

#0 

C1CA  6D  EO 

a 

ADC 

TM+1 

C1CD  8D  EO 

CI 

STA 

TM+1 

C1D0  CA 

NOMULT 

DEX 

C1D1    DO  01 

BNE 

MLMORE 

C1D3  60 

RTS 

C1D4  OE  DF 

Cl 

MLMORE 

ASL 

TM 

C1D7  2E  EO 

a 

ROL 

TM  +  1 

C1DA  4C  B9 

Cl 

IMP 

MULSTR 

C1DD  00 

.BYTE  0 

C1DE  00 

.BYTE  0 

C1DF  00  00 

TM 

.BYTE 

0.0 

:  and  high  byte  of  the  result 


;  add  Bl  to  TM 
;  store  it 
;  and  the 
;  high  byte 
i  in  TM 
;  count  down  ( 
;not<  _ 
;  the  main  return  of  MUL16 
;  move  it  left 
;  and  the  high  byte 
;  go  back 


?,  CLRHRF,  CLRHRS,  HRCOLF,  HRSETP,  PAINT. 
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Name 

Set  or  clear  a  point  on  the  hi-res  screen 
Description 

Enter  this  routine  with  the  x  coordinate  of  the  point  in  the  .X 
register  and  carry  flag  and  the  y  coordinate  (0-199)  in  the  .Y 
register.  The  corresponding  point  on  the  hi-res  screen  is  then 
turned  on.  Because  of  the  unusual  way  that  hi-res  memory  is 
laid  out,  most  of  the  routine  is  devoted  to  shuffling  numbers 
around,  calculating  the  appropriate  memory  location. 

Prototype 

1.  Save  the  register  values. 

2.  Calculate  the  memory  location  by  first  setting  a  zero-page 
location  to  point  to  the  start  of  hi-res  screen  memory. 

3.  Next,  add  in  the  lower  three  bits  of  .Y  (0-7). 

4.  Divide  .Y  by  8,  and  add  320  that  number  of  times. 

5.  Mask  off  the  lower  three  bits  of  .X  and  add  the  result. 

6.  Use  the  lower  three  bits  as  a  counter  to  rotate  the  bit  to  its 
proper  place  in  the  MASK  variable. 

7.  Set  the  point  by  putting  a  zero  in  .Y,  MASK  in  .A,  and  ORA 
indirectly  off  the  zero-page  pointer. 

8.  To  clear  the  point,  exdusive-OR  MASK  with  $FF  and  AND 
it  with  the  memory  location. 

9.  Restore  the  original  register  values. 

Explanation 

The  horizontal  width  of  the  hi-res  screen  is  320  pixels  (num- 
bered 0-319).  The  vertical  height  is  200  lines  (0-199).  The  to- 
tal of  64,000  points  fit  into  exactly  8000  bytes,  because  each 
byte  has  eight  bits  that  control  eight  screen  pixels.  Hi-res 
screen  memory  is  laid  out  in  a  manner  very  similar  to  the  text 
screen. 

This  up  and  down  zig-zagging  pattern  causes  a  few  diffi- 
culties. The  HRCALC  subroutine  at  $C02F-$C078  must  go 
through  some  contortions  to  figure  out  just  where  a  given 
point  is  located  in  memory.  Initially,  the  starting  location  of 
the  hi-res  screen  (8192,  in  the  example)  is  stored  in  the  zero- 
page  pointer  Zl  ($FB-$FC). 

The  y  position  is  handled  first.  It  has  two  components: 
bits  0-2  and  bits  3-7.  Bits  0-2  hold  a  value  between  0  and  7 
that  can  be  added  directly  to  the  Zl  pointer.  Bits  3-7  hold  val- 
ues divisible  by  8  (0,  8,  16,  24,  and  so  on).  Each  time  the 
value  in  y  increases  by  8,  the  screen  memory  increases  by  320 
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(see  figure).  Starting  at  $C040/  the  value  in  .Y  is  divided  by  8, 
and  a  loop  adds  320  to  Zl  as  many  times  as  is  needed. 


Hi-Res  Screen  Organization 


bat.  a 


bgtt  11 


bate  12 


batt  13 


tat*  1« 
ba'.  15 


x-posltlon 


<=i> 


>ttf  312 

bate  31J 

tiyts  314 

315 

bate  316 

but*  317 

»»    fay  "J 
y-position  '        — J 


192 

but*  76BB 

193 

byte  7681 

194 

byte  7682 

19S 

oatt  ."663 

196 

bate  2684 

197 

butf  76S5 

198 

bate  7686 

199 

bate  2687 

The  X  register  is  limited  to  holding  a  number  from  0 


the 

point  is  higher  than  255,  set  the  carry  flag  and  load  .X  with 
the  coordinate  of  the  point  minus  256.  If  it's  0-255,  carry 
should  be  clear.  The  carry  flag  setting  must  be  saved  at  the 
start  of  HRCALC,  where  the  processor  flags  are  pushed  on  the 
stack  with  PHP.  At  $C056,  PLP  restores  the  flags,  including 
carry.  If  carry  is  set,  the  high  byte  of  Zl  is  increased  by  one. 

Like  the  y  position,  the  x  position  must  be  divided  into 
two  parts — the  first  three  bits  and  the  last  five  bits.  Note  that 
in  the  top  row,  x  coordinates  0-7  fit  into  byte  0,  8-15  fit  into 
byte  8,  and  so  on.  If  the  bottom  three  bits  are  cleared,  the  re- 
sult can  be  added  to  Zl  to  pinpoint  the  memory  location  to  be 
changed. 

All  that  remains  is  to  take  the  number  %10000000  and 
rotate  it  to  the  right  to  get  the  single  1  bit  into  the  correct  po- 
sition. The  lower  three  bits  of  .X  are  used  in  a  loop  that  rotates 
MASK  to  the  right. 

When  HRCALC  is  finished  with  its  calculations,  the  mem- 
ory address  is  in  $FB-$FC,  and  the  mask  value  is  in  MASK. 
Now  either  POINT1  or  POfiMTO  can  be  called  to  turn  the  pixel 
on  or  off. 
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The  framing  routine  at  the  very  beginning  starts  .X  at  0 
and  .Y  at  150,  and  draws  a  diagonal  line  from  the  bottom  left 
corner  to  the  top  right.  HRSETUP  and  HRCLEAR  enter  and 
exit  hi-res  mode.  Note  that  no  ROM  routines  are  called,  except 
for  GETDM,  which  waits  for  a  key  to  be  pressed  before  exiting 
to  BASIC. 

Note:  Before  using  this  routine  on  the  128,  enter  POKE 


216,255  (or  add  the  line  LDA  #255:  STA  216  to  the  program). 


cooo  Zl 
C000  HRSCRN 


COOO  20    B6  CO 

C003  A2  00 

CO05  AO  96 

C007  18 

COOS  20    22    CO  MAIN 

C00B  E8 

C00C  DO  01 

C00E  38 

C00F  20    22   CO  NSET 

CQ12  E8 

C013  DO  01 

C015  38 

C016  88 

C019  20    E4   FF  GL 

C01C  FO  FB 

C01E  20    Fl  CO 

C021  60 


251 
$2000 


C022 


C022  20 
C025  20 


CO 
CO 


C028  20    79  CO 

C02B  20    A2  CO 

C02E  60 

C02F  08 

COM  A9  00 

C032  85  FB 

C034  A9  20 

C036  85  FC 

C038  98 

C039  29  07 

C03B  05  FB 

C03D  85  FB 

C03F  98 

C040  4A 

m  z 


HRCLEAR 


,-  pointer  to  the  particular  byte  to  be  chan 
;  screen  is  al  8192  decimal 
j  color  memory  at  1024 


: 

;  set  u 
.  memory 


HRCALC 


JSR  HRCALC 

JSR  POINT1 

JSR  LDREGS 
RTS 

PHP 

LDA  #<HRSCRN 

STA  Zl 

LDA  #>HRSCRN 

STA  Zl+1 

TYA 

AND  #7 

ORA  Zl 

STA  Zl 


;  turn  on  Ihe  point 
;  and  its  neighbor 
j  If  not  zero,  continue 
;  else,  sel  carry  for  th< 


j  handle  the  overflow 


normal 


I  on  the  hl-res  screen 

Y,  and  the  carry 

;  save  the  registers 

;  calculate  the  location  (In  Zl)  and  the  bit 
;  pattern  (MASK) 

;  (subaitute  POINT0  for  turning  off  a  pixel) 
;  restore  the  registers 


;  save  the  status  register 

j  initialize  Zl 

;  to  point  to 

;  the  hi-res  screen 


;  three  low  bits 


;  gel  .Y  again 
i  shift  right 
;  three 
;  times 
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C043 
C044 


C048 
C04D 
C04F 
C051 
C053 
C054 


AS 

FO  10 
A9  40 
18 

65  FB 
85  FB 
A9  01 


to 
85 
88 
DO  FO 


FC 
FC 


TAY 

BEQ  ROWEND 

ROWLP       LDA  #<320 
CLC 

ADC  Zl 

STA  23 

LDA  #>320 

ADC  Zl+1 

STA  21+1 
DEY 

BNE  ROWLP 


,-  now  .Y  is  a  counter  (or  adding  320 
;  if  zero,  skip  the  next  part 
;  low  byte  of  320 

;  add  to  Zl 
;  store  it 
;  high  byte 
i  add  to  Zl 


;  loop  back 


;  Zl  now  points  t 
;  res  screen  (1 1  " 


e  of  the  hi- 


ROWEND  PLP 

BCC  TTMEX 

INC  Zl+1 
T1MEX  TXA 


C056  28 

C057  90  02 

C059  E»  FC 

C05B  8A 

C05C  29  F8  AND 

C05E  18  CLC 

C05F  65  FB  ADC 

C061  85  FB  STA 

COM  90  02  BCC 

C065  E6  FC  INC 

C067  A9  80  NOMORE  LDA 

C069  8D  B5    CO  STA 

C06C  8A  TXA 

C06D  29  07  AND 

C06F  F0  07  BEQ 

C071  AA  TAX 

C072  4E  B5    CO   XLOOP  LSR 

C075  CA  DEX 

C076  DO  FA  BNE 

C078  60  CLOSEUP  RTS 


;  retrieve  the  carry  flag 
;  if  dear,  the  left  side  of  the  seam 
;  otherwise,  add  256  to  the  pointer 
;  now  do  .X,  the  column 

#%imi000     •  mask  off  0-7  (the  individual  bits) 


Zl 
Zl 

NOMORE 
Zl+1 
#$80 
MASK 

#%ooooom 

CLOSEUP 

MASK 

XLOOP 


C079  AO  00  POINT1       LDY  #0 

C07B  AD  B5  CO  LDA 

C07E  11    FB  ORA  (Z1),Y 

C080  91    FB  STA  (Z1),Y 

C082  60  RTS 


;  add  to  Zl 
;  store  it 
;  if  carry's  clear, 
;  skip  this  INC 
;  now  set  up  MASK 

;  return  .X  to  .A 
;  bottom  three  bits  (0-7  value) 
;  if  rero,  skip  it 

;  otherwise,  set  up  .X  for  a  counter 
;  move  it  right 
;  count  down 

;  Finished.  Zl  points  to  the  byte  and  MASK 
;  holds  the  b!-  ' 

on  the  screen 


;  turn  on  a  pixel 

;  put  it  on  the  screen 

;  and  thaf  I  all 


C083  AO  00 

C085  AD  B5  CO 

C088  49  FF 

C08A  31  FB 

C08C  91  FB 


POINT0       LDY  #0 

LDA  MASK 

EOR  #$FF 

AND  (Z1),Y 

STA  (Z1),Y 
RTS 


C08F  08 

C090  48 

C091  08 

C092  8D  Bl  CO 

C095  8E    B2  CO 

C098  8C    B3  CO 

C09B  68 

C09C  8D  B4  CO 

C09F  68 

C0A0  28 

C0A1  60 


SVREGS 


PUP 
PHA 
PHP 
STA 
STX 
STY 
PLA 
STA 

RTS 


TEMPP 


;  almost  the  same  as  POINT1,  but  it  clears 
;  a  pixel 

;  get  the  bit  mask 

;  flip  the  bits 

;  AND  instead  of  OR 

;  store  it 

;  finished 

:  first  save  .F 
; then  .A 
;  then  J  again 
; save  .A 

;  and  .Y 

;  pull  .P  into  -A 
;  store  it 
;  get  .A  again 
,-  and  -P 
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C0A2   AE  B2  CO  LDREGS 

CO  AS   AC  B3  CO 

C0A8   AD  B4  CO 
COAB  48 

ADB1  CO 


COBO 


C0B1  00 

C0B2  00 

C0B3  00 

C0B4  00 

C0B5  00 


MASK 
HRSETUP 


LDX  TEMPX 
LDY  TEMPY 
LDA  TEMPP 

THMPA 


.BYTE  0 

.BYTE  0 

.BYTE  0 

BYTE  0 

.BYTE  0 


C0B6  A9  3B 

C0B8  8D  11  DO 

COBB  A9  18 

COBD  8D  18  DO 

COCO  A9  10 

C0C2  AO  00 

C0C4  99  00    04  COLLP 

C0C7  99  FA  04 

COCA  99  F4  05 

COCD  99  EE  06 

CODO  C8 

C0D1  CO  FA 

C0D3  DO  EF 


C0D5  A9  00 

C0D7  8D  ES  CO 

CODA  A9  20 

CODC  8D  E6 

CODF  A2  20 
El 


CO 


FF  FF 

C8 

C0E8    DO  FA 
COEA  EE    E6  CO 
COED  CA 
COEE    DO  F4 


C0F1  A9  IB 

C0F3  8D  11  DO 

C0F6  A9  15 

C0F8  8D  18  DO 

COFB  A9  93 

COFD  20  D2  FF 

C100  60 


;  restore  .X 

;  and  .Y 

;  get  J? 

;  push  It 

;  get -A  back 

;  and  restore  .? 

;done 


LDA 
STA 
LDA 
STA 


STA 
STA 
STA 
STA 
INY 
CPY 


;  10  set  up  the  hi  res  screen  at  $2000 
;  put  a  59  into  53265 


;  and  a  24  into  53272 
i  white  and  black 
;  Index  into  color  memory 
HRCOLR.Y 
HRCOLR+250.Y 
HRCOLR+500/Y 
HRCOLR+750.Y 


LDA 
STA 
LDA 
STA 
LDX 
LDY 
TYA 
STA 
INY 
BNE 
INC 


#250 
COLLP 

#<HRSCRN 
FAKE+1 


;  fill  1000  bytes 


;  Now  set  up  tl 


#>HRSCRN  ;  high  byte 
FAKE +2 


$FFFF.Y 


;  32  pages 

;  zero  for  cleared  bits 


FAKE +2  j  increment  the  i 


;Tum  off  hi  res. 
;  27  into  53265 

j  21  into  53272 
i  clear  screen 


LDA  #27 

STA  53265 

LDA  #21 

STA  53272 

LDA  #147 

JSR  $FFD2 
RT5 


See  also  BITMAP,  CLRHRF,  CLRHRS,  HRCOLF,  HRPOLR,  PAINT. 
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Name 

Increment  a  two-byte  counter 

The  machine  language  INC  instruction  increments  a  value  in 
memory  by  one.  This  INC2  routine  extends  the  usefulness  of 
INC  to  cover  a  wider  range  of  values  (0-65535  instead  of 


Prototype 

1.  INCrement  the  low  byte  of  a  counter. 

2.  If  it  has  reached  zero,  increment  the  high  byte. 

3.  If  the  high  byte  has  reached  zero,  the  counter  has  gone  past 
the  limit  of  65535.  Set  the  carry  flag  to  indicate  an  error. 

Explanation 

The  example  program  waits  for  a  keypress  and  exits  if  the  Fl 
key  is  detected.  Otherwise,  it  prints  the  character  and  calls 
INC2  to  keep  track  of  how  many  keys  have  been  pressed. 

Within  the  INC2  subroutine,  the  low  byte  of  COUNTER 
is  increased  by  one.  If  it  reaches  zero,  the  high  byte  is  also  in- 
creased. Then  the  carry  flag  is  cleared,  and  the  subroutine 
ends.  Clearing  the  carry  flag  isn't  necessary,  but  it's  included 
to  signal  a  successful  two-byte  increment.  If  INC2  ever  counts 
beyond  the  top  limit  ($FFFF),  carry  is  set  to  indicate  an 
overflow. 

Back  in  the  main  routine,  the  program  ends  when  Fl  is 
pressed  or  if  the  user  presses  more  than  65,535  keys.  At  that 
point,  two  RETURNS  are  printed  followed  by  the  number  of 
keystrokes. 

Note  to  128  users:  Since  this  program  checks  for  the  Fl 
key,  which  is  predefined  to  print  GRAPHIC,  you  should  add 
the  line  KEY1,  CHR$(133)  to  insure  that  the  program  works 
properly  on  the  128.  Alternately,  you  could  call  the  Kernal 
routine  PFKEY  at  $FF65.  This  routine  redefines  a  given  func- 
tion key. 


C000  Fl  =133 

C000  GET1N         =  SFFE4 

C000  CHROUT     =  SFFD2 

C000  UNPRT       =         SBDCD  ;  UNPRT  =  J8F.32  on  the  128 — ROM 

;  routine  to  print  a  number 
CO00    A9  00  LDA     #0  ;  clear  the  counter 


8D  41  CO 
42  CO 


277 


INC2 


C008  20  E4    FT  MLOOP 

CO0B  FO  FB 

COOD  C9  85 

COOF  FO  08 

C011  20  D2  FF 

COW  20  28  CO 

C017  90  EF 


JSR 
BEQ 
CMP 


C019 

A9 

OD 

CLEANUP 

LDA 

C01B 

20 

D2 

FF 

JSR  i 

C01E 

20 

D2 

FF 

JSR  i 

C021 

AE  41 

CO 

C024 

42 

1 

LDA  i 

60 

CD 

RTS 

C02B 

EE 

41 

CO 

INC2 

INC  i 

C02E 

FO 

02 

BEQ 

COM 

18 

FINIS 

CLC 

C031 

60 

RTS 

C032 

EE 

42 

CO 

INCH! 

INC  i 

C035 

DO 

F9 

BNE 

C037 

A9 

FF 

LDA 

C039 

8D 

41 

CO 

STA  i 

C03C 

8D 

42 

CO 

STA  i 

C03F 

38 

SEC 

C040 

60 

RTS 

;  gel  a  keypress 
;  loop  until  it  happens 
;  is  it  the  Fl  key? 
;  yes,  finish  up 
;  else,  print  it 
;  and  the  counter  clicks 

;  carry  clear  means  less  than  65535  characters 
;  fall  through  to  CLEANUP  If  carry  set  after 
;INC2 

;  RETURN  character 
;  print  It 
;  print  it  again 
:  low  byte  of  counter  value 
+1  ;  high  byte 

;  print  the  number  of  keys  pressed 


COUNTER      ;  add  one  to  the  counter 
INCH!  ;  If  equal  to  zero,  increment  the  high  byte 


#13 

CHROUT 
CHROUT 


;  and  ret 

COUNTER  + 
FINIS  ;i 
#$FF 

COUNTER 
COUNTER + 

; 


dear  carry  (meaning  OK) 


limit 


C041    00   00         COUNTER  .BYTE  0.0 
See  also  ADDBYT,  ADDFP,  ADDINT. 
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Name 

Initialize  a  disk 

Description 

INITLZ  initializes  a  disk,  forcing  the  block  allocation  map 
(BAM)  to  be  read  into  the  disk  drive's  memory.  This  is  some- 
times useful  after  a  new  disk  has  been  inserted  or  after 
changes  have  been  made  to  the  files  on  the  disk. 

Prototype 

1.  Open  the  disk  command  channel,  channel  15. 

2.  As  part  of  the  filename,  send  the  initialize  command,  10. 

3.  Close  the  command  channel. 

Explanation 

Brand-new  blank  disks  must  be  formatted  before  they  can  be 
used.  On  some  computers,  this  process  is  called  initializing  a 
disk.  On  Commodore  computers,  however,  initializing  has 
quite  a  different  meaning. 

When  you  send  the  DOS  command  10,  the  disk  drive 
reads  the  current  block  allocation  map  into  memory,  so  it 
knows  which  sectors  are  already  taken.  This  process  should 
happen  automatically  when  the  disk  drive  senses  that  a  new 
disk  has  been  inserted.  But  it  doesn't  hurt  to  force  an 
initialization.  It  may  even  be  necessary  if  you  tamper  with  file 
information  (unscratching  a  file,  for  example). 

The  program  works  like  most  of  the  other  DOS  routines. 
It  opens  channel  15,  the  disk  command  channel,  with  the 
Kemal  SETUPS  routine.  Then,  in  the  process  of  setting  the 
name,  it  uses  the  two  characters  10.  When  the  file  is  opened 
(with  Kemal  SETNAM  and  OPEN),  the  command  is  automati- 
cally sent  to  the  drive.  Then  the  file  is  closed  and  channels  are 
cleared. 


Routine 

cooo 
cooo 
cooo 
cooo 


cooo 

C002 
C004 
C006 
COOT 
C00B 


A9  01 

A2  OS 

AO  OF 

20  BA  FF 

A9  03 

A2  IE 

C00D   AO  CO 

COOF    20  BD  FF 


SETLFS 

SETNAM 

OPEN 

CLOSE 

CLRCHN 

INITLZ 


LDA 

LDX 

LDY 

JSR 

LDA 

LDX 

LDY 


$FFBA 


#1 
#8 
#15 

SETLFS 
#BUFLEN 
#<BUFFER 
#>BUFFER 


;  logical  file  number 

;  device  number  for  disk  drive 

;  secondary  address  (or  command  channel 

;  prepare  to  open  file 

;  length  of  buffer 

;  .X  and  .Y  hold  Ihe 

;  address  of  the  buffer 

;  set  up  filename 
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C012 
C015 
C017  20 
C01A  20 
C01D  60 


20  CO 
A9  01 


FF 


C3  FF 
CC  FF 


C01E   49  30 
C020  OD 
C021 


;ope. 

;  and  Immediately 
;  cloae  the  command  channel 
;  clear  the  ■ 
;  all  done 

; data  area 


13    I  RETURN  character 

EN      =        •  -  BUFFER 

See  also  CONCAT,  COPYFL,  FORMAT,  RENAME,  SCRTCH, 
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Name 

Interrupt-driven  clock 
Description 

This  routine  updates  a  digital  clock  at  the  upper  right  corner 
of  the  screen  during  each  IRQ  interrupt.  This  clock  relies  on 
the  first  time-of-day  clock  (TOD  1)  to  maintain  accurate  time. 

A  feature  of  this  routine  is  that  it  allows  you  to  toggle  the 
clock  display  on  or  off  by  pressing  the  F7  key.  If  the  clock  dis- 
tracts you  or  becomes  annoying,  simply  press  F7  and  clear  the 
screen.  (On  the  128,  before  SYSing  to  the  routine,  you'll  need 
to  define  the  F7  key  to  a  null  string  by  entering  KEY  7,"".) 

To  disable  the  clock  altogether,  press  RUN/STOP- 
RESTORE  to  reset  the  IRQ  interrupt  vector. 

Prototype 

This  is  actually  a  two-part  routine.  Before  entering  the  first 
part  (INTCLK),  store  the  current  time  in  binary-coded  decimal 
format  as  TIMSET  at  the  end  of  the  program.  Be  sure  to  add 
$80  to  the  hours  byte  if  the  time  is  p.m.  (See  TOD2ST  for  de- 
tails on  setting  the  time-of-day  clocks.) 

In  INTCLK: 

1.  Using  TOD1ST,  set  TOD  1  clock  to  the  time  specified  in 
TIMSET. 

2.  Disable  IRQ  interrupts  with  SEI. 

3.  Redirect  the  IRQ  interrupt  vector  at  788-789  to  MAIN. 

4.  With  the  vector  changed,  reenable  IRQ  interrupts  and  RTS. 

In  MAIN: 

1.  Determine  whether  the  last  key  pressed  was  F7.  If  it  was, 
toggle  a  clock  display  flag  from  0  to  1,  or  vice  versa,  with 
EOR  #1. 

2.  If  the  clock  display  flag  contains  a  zero,  exit  the  routine 
through  the  normal  IRQ  interrupts  (in  step  7). 

3.  Otherwise,  store  the  current  cursor  color  (COLOR)  into  each 
color  RAM  position  for  the  clock  display.  Then  store  the 
current  screen  background  color  in  the  initial  color  position. 

4.  In  PLACLP,  read  and  store  to  the  clock  display  in  reverse 
video  the  digits  for  the  hour,  minute,  and  second.  Precede 
each  digit  pair  with  a  reverse  colon.  (The  first  colon  is  not 
seen  because  its  color  is  the  screen  background  color.) 

5.  Print  a  reverse  decimal  and  the  tenths  of  seconds. 
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6.  If  the  hours  byte  is  negative,  print  a  P  for  p.m.;  otherwise, 
print  an  A. 

7.  Exit  by  executing  the  normal  IRQ  interrupts. 
Explanation 

The  actual  readout  for  the  clock  is  stored  to  the  screen  during 
the  routine  MAIN.  Within  this  routine,  the  Y  register  is  used 
to  index  the  screen  position  in  the  clock  display,  while  .X 
points  to  the  relative  TOD  clock  bytes— either  hours,  minutes, 
seconds,  or  tenths  of  seconds. 

First,  MAIN  fills  the  underlying  color  RAM  for  the  display 
with  the  current  cursor  color  (as  stored  in  COLOR).  This  takes 
place  in  COLOOP.  Because  the  clock  is  displayed  in  the  cur- 
rent text  color,  the  readout  will  be  visible  regardless  of  the 
screen  background  color  (assuming,  of  course,  that  the  text 
color  differs  from  the  screen  background  color). 

After  COLOOP,  the  clock  itself  is  stored  to  the  screen. 
Each  digit  pair  within  the  clock — representing  hours,  minutes, 
and  seconds — is  separated  by  a  reverse  colon  for  better 
readability.  A  reverse  decimal  point  is  located  between  the  sec- 
onds place  and  tenths-of-seconds  place  at  $C05B. 

Notice  also  that  a  colon  is  placed  just  before  the  clock  dis- 
play. This  colon  doesn't  actually  appear  on  the  screen  since  its 
color  byte  is  taken  from  the  screen  background  color  register. 
Nevertheless,  it  prevents  the  clock  display  from  being  ac- 
cepted as  a  BASIC  line  if  the  user  should  accidentally  hit  RE- 
TURN over  this  line. 

Bytes  from  the  TOD  clock  are  in  binary-coded  decimal 
format.  The  high  nybble  of  each  byte  represents  the  ten's 
place,  while  the  low  nybble  is  the  one's  place.  By  alternately 
masking  low  and  high  nybbles  and  converting  the  result  to 
screen  codes  in  PLACLP,  you  can  store  each  byte  from  the 
TOD  clock  reading  in  screen  memory  as  a  two-digit  number. 
Since  bit  7  is  the  a.m./p.m.  flag  in  the  hours  byte,  it  must  be 
masked  in  order  to  read  the  hours  digits  correctly. 

The  exception  to  this  arrangement  within  the  TOD  clock 
is  the  tenths-of-seconds  place.  Since  no  more  than  a  single 
decimal  digit  need  be  stored  in  the  tenths  byte,  the  high 
nybble  is  unused.  As  a  result,  we  needn't  break  this  byte  into 
separate  nybbles.  We  simply  store  it  after  converting  it  to  a 
screen  code. 

The  last  thing  to  be  done  in  the  routine,  before  exiting  to 
the  normal  IRQ  interrupt  handler,  is  to  display  the  A  or  P  for 
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ajn.  or  p.m.  The  code  for  this  begins  at  $C068. 

Note:  INTCLK  currently  uses  TOD1  (the  clock  in  CIA  #1) 
to  keep  time.  If,  for  some  reason,  this  clock  is  unavailable,  you 
can  just  as  easily  use  TOD2  by  substituting  TODTN2  for 
TODTN1  in  the  program. 


cooo 

cooo 
cooo 

cooo 
cooo 
cooo 
cooo 
cooo 


COOO  20  7F  CO  INTCLK 
C003  78 


56584 
788 


197 


C004 
C006 
COM 
COOB 
COOE  58 
COOF  60 


AO  10 

8D  14 

A9  CO 

8D  15 


03 


03 


C010    A5  C5 


MAIN 


53281 
646 


JSR  TOD1ST 


IDA  #<MAIN 

STA  1RQVEC 

LDA  #>MAIN 

STA  IRQVEC+1 
CU 
RTS 

LDA  LSTX 


C012  C9   03  CMP  #3 

COM  DO  08  BNE  NOTTOG 

C016  AD  92  CO  TOGGLE     LDA  CLKFLG 

C019  49    01  EOR  #1 

C01B  8D  91  CO                  STA  CLKFLG 

C01E  AD  92  CO   NOTTOG    LDA  CLKFLG 

C021  FO  4F  BEQ  EXIT 


C023 

C025 

C028 

C02B 

C02C 

C02E 

C031 

COM 

C036 

C038 

C039 

C03C 

C03D 

COW 

C041 

C043 

cm 


AO  OB 
AD  86  02 

99  1A  D8  COLOOP 
88 

DO  FA 
AD  21  DO 
8D   1A  D8 
A2  03 
AO  FF 
C8 

20    79  CO 
C8 

BD  08  DC 
48 

29  70 
4A 
4A 


PLACLP 


#11 

COLOR 
COLCLK.Y 

COLOOP 

BGCOLO 

COLCLK 

#3 

#255 

COLON 

TODTN1.X 

#%0111OOO0 


;  vector  to  IRQ  interrupt  routine 
;  IRQ.NOR  -  64101  on  128— normal 
i  interrupt  service  routine 
:  LSTX  =  213  on  the  128— last  1 
!  screen  address  tor  the  clock 
;  color  RAM  for  clock 

"or  screen 


;  COLOR  m  241  on  the  128— text  foreground 


;  Set  up  an  interrupt  -driven  clock  display. 
;  Replace  TODTN1  with  TODTN2  to  use 
;  TOD  clock  2. 

i  set  TOD  dock  1  and  start  it  by  writing  to 
e  IRQ  interrupts  to  change  the  IRQ 


low  byte  of  Interrupt  wedge 


;and 


|  reenable  IRQ  Interrupts 
;  exit  setup  routine 

;  check  for  F7 
;  U  it  F7? 

;  don't  toggle  the  clock  if  not  F7 
;  toggle  clock  on/off 

;  reset  flag 

;  necessary  for  NOTTOG 

;  if  flag  is  zero,  don't  show  the  clock 

jj  instead,  execute  normal  IRQs 

;  make  clock  color  the  same  as  text  color 

;  get  cursor  color 

;  store  il  to  each  color  RAM  position 
;  next  lower  position 
;  do  12  positions 

}  get  background  color  for  first  colon 
;  so  first  colon  is  not  seen 
;  as  an  index  for  hrsv  nuns.,  sees.,  tenths 
j  so  Y  starts  with  zero  in  PLACLP 
;  for  next  position  in  the  clock 
;  POKE  in  colon  at  beginning  of  clock 
;  for  next  position 
;  start  with  hrs. 
;  store  il  ti 
;  mask  oat  1 
;  shift  high  ny 


and  bit  7 
into  low  nybble 


INTCLK 


C04S  4A 

C046  4A 

C047  09  BO 

C049  99  1A  04 

C04C  CB 

C04D  68 

C04E  29  OF 

C050  09  BO 

C052  99  1A  04 

C055  CA 

C056  DO  EO 

C0S8  C8 

C059  A9  AE 

C05B  99  1A  04 

C05E  C8 

C05F  AD  08  DC 

C062  09  BO 

C064  99  1A  04 

C067  C8 

C068  AD  OB  DC 

C06B  30  08 

C06D  A9  81 

C06F  99  1A  04  PRAMPM 

CQ72  4C  31    EA  EXIT 

C075  A9  90  PMFLAG 

C077  DO  F6 


C079    A9   BA  COLON 
C07B    99    1A  04 
C07E  60 


LSR 
LSR 

ORA  #176 


STA 

INY 

PLA 

AND 

ORA 

STA 

DEX 

BNE 

INY 

LDA 

STA 

INY 

LDA 

ORA 

STA 

INY 

LDA 

BMI 

LDA 

STA 

JMP 

LDA 

BNE 


SCRCLK.Y 


#»F 
#176 

SCRCLK.Y 

PLACLP 

#174 

SCRCLK,Y 

TODTN1 
#176 

SCRCLKVY 

TODTN1+3 

PMFLAG 

#129 

SCRCLK.Y 

tRQNOR 

#144 

PRAMPM 


;  convert  lo  numeric  range  (+48),  reverse 
i  (+128) 

;  position  the  result  on  the  screen 
:  for  next  position 

;  retrieve  byte  to  handle  low  nybble 

;  mask  out  high  nybble 

;  convert  to  numeric  range,  reverse 

;  and  store  result  to  screen 

;  for  next  place — mint,  and  sees. 

;  do  three  bytes— his.,  mins.,  sees. 

;  to  position  decimal 

;  screen  code  for  a  reverse  decimal 

;  POKE  it 

;  to  position  tenths  place 

;  get  the  tenths  byte  and  restart  the  clock 

;  convert  to  numeric  range  and  reverse 

;  display  the  tenths 

;  to  position  a.m. /p.m. 

)  read  hours 

;  bit  7  is  set  indicating  p.m.  time 

;  screen  code  for  reverse  A— a.m. 

;  store  it  to  screen 

;  exit  always 

;  screen  code  for  P 

;  print  P  and  exit  to  normal  interrupts 

i  at  current  screen 


LDA  *166 
STA  SCRCLK,Y 


AO  00 
A2  03 
B9  8E 
9D  08 
C8 
CA 

:08B  10  F6 
C08D  60 


TOD1ST 


CO 
DC 


SETLOP 


LDY 
LDX 
LDA 


DEX 
BPL 
RTS 


#0 
#3 

TIMSET.Y 
TODTN1.X 


SETLOP 


C08E    82    30    13    TIMSET  .BYTE 


C092  01 


CLKFLC       .BYTE  1 


I  Set  TOD  clock  1  (or  2). 

;  Replace  TODTN1  with  TODTN2  to  set  TOD 
;  clock  2. 

!  as  an  index  for  the  time  setting 

;  as  an  index  for  hrs.,  mins.,  sees.,  tenths 

j  read  in  the  time  to  set 

;  store  to  clock — hrs.  first 

;  for  next  TTMSET  byte 

:  for  next  dock  byte  (mins..  sees.,  tenths) 

;  set  all  lour  bytes  of  clock 


;  hrs.,  mins..  sees.,  tenths  for  clock 
;  (02.30.13.0  p.m.) 

;  For  a.m.,  subtract  $80  from  hrs.  place. 
I  clock  display  flag— display  it  (1)  or  don't 


See  also  ALARM2,  TOD1DL,  TOD1RD,  TOD2PR,  TOD2ST. 
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Name 

Produce  a  delay  using  an  IRQ  interrupt  counter 
Description 

INTDEL  uses  the  IRQ  interrupt  as  an  event  timer. 

Unless  they're  disabled,  interrupt  requests  (IRQs)  occur  at 
regular  intervals — once  every  1/60  second  to  be  exact — 
regardless  of  what's  happening  in  the  main  program.  This  is 
the  basis  of  this  routine. 

INTDEL  updates  a  counter  during  each  IRQ  interrupt, 
thus  freeing  your  main  program  to  do  other  things.  In  other 
words,  you  no  longer  have  to  halt  the  current  action  to  update 
a  timer.  Instead,  you  can  wait  until  the  ongoing  activity  is 
complete  before  checking  the  state  of  the  timer. 

For  instance,  if  you're  writing  a  joystick-controlled,  timed, 
arcade-style  game  in  which  a  player  must  defend  his  ground 
base  from  aerial  invaders  in  the  form  of  sprites.  And  these 
sprites,  as  is  often  the  case,  are  interrupt-driven,  meaning 
they're  constantly  moving  regardless  of  what's  happening  in 
the  rest  of  your  program. 

Now  suppose  the  player  needed  to  aim  his  artillery  at  an 
incoming  attacker,  but  your  program  was  off  somewhere  up- 
dating the  timer.  It  could  easily  be  curtains  for  the  unfortunate 
player.  But  with  this  routine,  you  could  allow  the  player  to 
ward  off  the  attacker  before  checking  the  timer. 

Another  practical  application  of  an  interrupt  timer  such  as 
this  one  is  in  generating  interrupt-driven  music.  Here,  the  inter- 
rupt timer  typically  determines  the  duration  of  a  specific  note. 

Prototype 

In  INTDEL: 

1.  Disable  IRQ  interrupts  with  SEI. 

2.  Redirect  the  IRQ  interrupt  vector  at  788  to  DWEDGE. 

3.  Initialize  the  counter  flag  to  a  value  of  one,  indicating  the 
countdown  is  ongoing. 

4.  Set  DELCTR  to  the  delay  time  specified  by  DELAY.  In  the 
process,  increment  the  high  byte  of  DELCTR  by  one. 

5.  With  the  vector  having  been  changed  in  step  2,  reenable 
and  1 


e  if  a  delay  countdown  is  in 
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2.  If  it  isn't  (CTRFLG  =  0),  exit  the  routine  through  the  nor- 
mal IRQ  interrupt  handler  (in  step  7). 

3.  Otherwise,  decrement  the  low  byte  of  the  delay  counter  and 
exit  through  the  normal  IRQ  interrupt  handler,  provided  the 
low  byte  hasn't  reached  zero. 

4.  If  the  low  byte  has  reached  zero  in  step  3,  then  decrement 
the  high  byte  of  DELCTR  as  well. 

5.  If  the  resulting  high  byte  has  yet  to  reach  zero,  then  exit 
through  step  7. 

6.  Otherwise,  store  a  value  of  zero  to  CTRFLG,  indicating  the 
countdown  is  com-' 

7.  Exit  by  executing  the  nc 

Explanation 

The  program  below  initially  sets  the  two-byte  interrupt  timer 
(DELCTR)  in  INTDEL  to  330  interrupts,  or  five  and  a  half  sec- 
onds, and  the  timer  flag  (CTRFLG)  to  1.  Then,  within  INLOOP, 
it  prints  a  series  of  ten  spade  characters  on  the  screen  before 
checking  the  timer  flag.  If  CTRFLG  is  1,  meaning  the  IRQ  timer 
is  still  counting  down,  the  program  prints  another  ten  spades. 

When  the  timer  finally  reaches  zero,  CTRFLG  itself  be- 
comes zero  in  $C041.  This  halts  the  main  program,  but  not 
before  the  last  ten  spades  have  printed. 

Note:  As  always,  when  redirecting  the  IRQ  vector  to  your 
own  routine,  be  sure  you  first  disable  the  IRQ  interrupts. 


;  ASCII  value  tor  spade  character 

;  vector  to  IRQ  interrupt  routine 

;  IRQNOR  =  64101  on  the  128— normal  IRQ 

;  interrupt  service  routine 

;  delay  for  330  IRQ  interrupts  (5  5  sees.) 

; 

;  Carry  out  an  activity  (INLOOP)  until  the 

;  interrupt  delay  finishes. 

;  setup  the  Interrupt  delay 

;  get  the  spade  character 

;  initialize  Index  for  1NLOOP 

;  print  it 

I  repeat  INLOOP  ten  time* 
;  is  countdown  complete? 
:  if  not,  then  continue  MNLOOP 
;  we're  finished 


Routine 

COOO 

ZP 

251 

COOO 

CHROUT  = 

65490 

COOO 

SPADE 

97 

COOO 

IRQVEC 

788 

COOO 

IRQNOR  = 

59953 

COOO 

DELAY 

330 

COOO  20  13  CO  MAIN  JSR 

C003  A9  61  MNLOOP  LDA 

C005  AO  OA  LDY 

C007  20  D2  FF    INLOOP  JSR 

C00A  88 

C00B  DO  FA 

C00D  AD  47  CO 

C010  DO  Fl  ...... 

C012  60  RTS 


INTDEL 

#SPADE 
#10 

CHROUT 


;  Insert  IRQ  interrupt  wedge  for  delay  timer. 
;  Initialize  fl 


INTDEL 


C013 

78 

INTDEL 

SEI 

C014 

A9 

50 

LDA 

#<D  WEDGE 

C016 

8D 

14  03 

STA 

IRQVEC 

C019 

A9 

CO 

LUA 

nu/cnrc 
ff>UWhUOt 

C01B 

8D 

15 

03 

STA 

IRQVEC+1 

C01E 

A9 

01 

LDA 

#i 
»i 

C020 

8D 

47 

CO 

STA 

CTRFLG 

C023 

A9 

4A 

LDA 

#<DELAY 

C025 
C02A 

8D 

48 

CO 

STA 

DELCTR 

A2  01 
E8 

LDX 

oik 

#>DELAY 

C028 

8E 

49 

CO 

STX 

DELCTR +  1 

C02E 

58 

CLI 

C02F 

60 

RTS 

COM 

AD  47 

CO 

DWEDGE 

LDA 

CTRFLG 

C033 

FO 

OF 

BEQ 

EXIT 

C035 

CE 

48 

CO 

DEC 

DELCTR 

C038 

DO 

OA 

BNE 

EXIT 

C03A 

CE 

49 

CO 

DEC 

DELCTR +1 

C03D 

DO 

05 

BNE 

EXIT 

C03F 

AO 

00 

LDY 

#0 

C041 

8C 

47 

CO 

STY 

CTRFLG 

C044 

4C 

31 

EA 

EXIT 

JMP 

IRQNOR 

C047 

00 

CTRFLG 

BYTE 

0 

C048 

06 

00 

DELCTR 

.WOR 

DO 

;  disable  IRQ  interrupts  to  change  IRQ 
;  vector 

;  Then  store  the  address  of  our  routine  Into 
;  IRQ  vector. 
;  low  byte  first 

;  then  high  byte 

;  initialize  CTRFLG  to  1 

;  initialize  DELCTR,  low  byle  first 


;  then  high  byte 
;  so  high  byte  goes 


from  one  lo  zero  on  last 


;  We've  reset  the  vector.  Now  reenable  IRQ 
;  interrupts  and 
;  exit  setup. 

;  check  to  see  if  countdown  is  ongoing 

;  if  not,  exit  through  the  normal  IRQ 

;  interrupt  routines 

;  decrement  low  byte  of  delay  counter 

;  if  low  byte  hasn't  turned  over  yet,  exit 

;  the  low  byte  has  reached  zero,  so  decrease 

;  counter  high  byte 

;  if  high  byte  is  not  zero,  exit 

;  DELCTR  has  reached  zero  (both  low  and 

;  high  bytes). 

;  to  prevent  further  countdown 
service  the  standard  IRQ  routines 

flag  is  one  while  countdown  continues,  zero 
when  done 

;  storage  for  [wo-byte  interrupt  delay  counter 


See  also  BYT1DL,  BYT2DL,  JIFDEL,  KEYDEL,  TOD1DL. 
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Name 

Interrupt-driven  music 
Description 

With  INTMUS,  you  can  enhance  any  programs — especially 
games— by  adding  background  music  that  runs  automatically. 

Prototype 

Before  entering  this  routine,  set  up  a  table  of  note  values 
which  index  frequencies  from  FREQTB  (NOTES),  a  table 
containing  the  relative  durations  for  each  note  in  NOTES 
(NDURTB),  and  a  table  of  the  two-byte  frequencies  needed  for 
the  tune  (FREQTB). 

In  the  initialization  routine  (INTMUS): 

1.  Disable  IRQ  interrupts  before  changing  the  IRQ  interrupt 
vector. 

2.  Redirect  the  IRQ  interrupt  vector  to  the  music-playing  rou- 
tine (MAIN). 

3.  Set  a  note  counter  (NOTENM)  to  zero. 

4.  Clear  the  SID  chip  with  SIDCLR  and  set  the  appropriate 
parameters  for  the  chip  (volume  and  attack/decay). 

5.  Initialize  a  duration  counter  (DURATE)  for  the  first  pass 
through  MAIN. 

6.  Reenable  IRQ  interrupts  and  RTS. 

Then,  in  MAIN: 

1.  Decrement  the  duration  counter. 

2.  If  it  decrements  to  zero,  get  a  note  to  play.  Otherwise,  allow 
the  note  that's  currently  playing  to  continue  by  exiting 
through  the  normal  IRQ  interrupt  handler. 

3.  Assuming  the  duration  counter  reaches  zero,  get  the  note 
number  and  index  the  next  note's  duration  using  it. 

4.  Adjust  the  time  each  note  plays  by  multiplying  its  duration 
by  some  factor  (here,  8). 

5.  Store  the  result  in  the  duration  counter. 

6.  Get  a  note  from  the  NOTES  table  and  use  it  to  index  the 
corresponding  two-byte  frequency  value  in  FREQTB.  Store 
the  frequency  taken  from  FREQTB  into  the  frequency  reg- 
isters for  voice  1. 

7.  Ungate,  and  then  gate,  the  waveform  (here,  a  sawtooth 
waveform). 


INTMUS 


8,  Increment  the  note  counter  and  determine  if  all  notes  have 
played.  If  not,  continue  playing  the  tune.  Otherwise, 
reinitialize  the  note  counter  to  start  the  tune  over. 

Explanation 

The  principle  behind  interrupt-driven  music  is  that  you  let  the 
IRQ  interrupt  generated  every  1/60  second  determine  when 
and  how  long  each  note  is  played. 

After  redirecting  the  IRQ  vector  to  a  music-playing  rou- 
tine (MAIN),  the  SID  chip  is  set  up  and  several  counters  are 
initialized.  One  of  these  counts  how  many  notes  have  been 
played  (NOTENM)  while  the  other  keeps  up  with  how  long 
the' current  note  has  played  (DURATE). 

Once  IRQ  interrupts  are  reenabled,  MAIN  is  accessed  dur- 
ing each  IRQ  interrupt.  The  first  time  this  happens,  a  note 
based  on  a  reference  value  (in  NOTES)  is  selected  from  a  table 
of  frequencies  (FREQTB)  and  stored  in  the  frequency  register 
for  voice  1 .  At  the  same  time,  a  duration  time  for  the  note  is 
taken  from  another  table  (NDURTB)  and  stored  in  the  dura- 
tion counter  (DURATE).  Before  exiting,  the  pointer  to  the  next 
note  (NOTENM)  is  incremented  and  the  current  note  starts 
playing. 

Each  time  the  IRQ  returns  to  MAIN  thereafter,  the  dura- 
tion counter  decrements.  When  it  reaches  zero,  the  next  note 
from  NOTES  gets  stored  into  the  frequency  register,  DURATE 
is  reset  for  this  note's  duration,  and  the  cycle  repeats  itself. 
When  all  notes  have  played,  NOTENM  becomes  zero,  and  the 
tune  starts  over  again. 

In  setting  up  the  note  (NOTES)  and  frequency  (FREQTB) 
tables,  the  same  method  used  in  MELODY  is  used  here.  Each 
number  in  NOTES  references  a  two-byte  frequency  value  in 
FREQTB.  Again,  the  frequencies  listed  in  FREQTB  are  taken 
from  the  table  of  notes  in  the  programmer's  reference  guide 
for  either  the  64  or  128.  Expand  FREQTB  to  include  whatever 
notes  your  song  calls  for.  If  you  like,  you  can  even  have 
NOTETB  generate  a  complete  frequency  table  for  you. 

After  you've  worked  out  the  relative  time  spent  playing 
each  note  with  the  values  in  NDURTB,  you'll  need  to  adjust 
the  overall  tempo  of  the  song.  The  three  ASLs  at  $C02F,  for 
the  current  song,  increase  the  tempo  by  a  factor  of  eight.  For 
each  tune  you  play,  you  may  need  to  add  or  take  away  one  or 
more  of  these  (ASLs)  before  the  song  sounds  right. 


289 


INTMUS 


Routine 


cooo 
cooo 
cooo 
cooo 
cooo 
cooo 


IRQVEC 

IRQNOR 

FRELOl 

FREHI1 

VCREG1 

ATDCYl 

S1GVOL 


cooo 

78 

INTMUS 

SEI 

C001 

A9  24 

LDA 

C003 

8D  14  03 

STA 

C0O6 

A9  CO 

LDA 

C0O8 

8D  13  03 

STA 

COOB 

A9  00 

LDA 

COOD 

8D  Al  CO 

STA 

C010 

20    A2  CO 

JSR 

C013 

A9  OF 

C015 

8D   18  U4 

S?A 

C018 

A9  1A 

LDA 

C01A 

8D  05  D4 

STA 

COID 

A9  01 

LDA 

COIF 

8D  AO  CO 

STA 

C022 

58 

CLI 

C023 

60 

RTS 

C024 

CE  AO  CO 

MAIN 

DEC 

C027 

DO  36 

BNE 

C029 

AE  Al  CO 
BD  7B  CO 

LDX 

C02C 

C02F 

OA 

C030  OA 

C031  OA 

C032  8D  AO  CO 

C035  BD  62  CO 

C038  OA 

C039  AA 

C03A  BD  94  CO 

C03D  8D  00  D4 

C040  BD  95  CO 

C043  8D  01  D4 

C046  A9  20 

C048  8D  04  D4 

C04B  A9  21 

C04D  8D  04  D4 

C050  EE  Al  CO 

C053  AD  Al  CO 

C056  C9  19 

C058  90  05 

C05A  A9  00 

C05C  8D  Al  CO 

C05F  4C  31    EA  EXIT 

C062  02  02    04  NOTES 

C06E  03  02  02 


ASL 
STA 
LDA 
ASL 

TAX 

STA 


STA 

LDA 

STA 

LDA 

STA 

INC 

LDA 

CMP 

BCC 

LDA 

STA 

JMP 


788 

59953 

54272 

54273 

54276 


#>MAIN 

IRQVEC+1 

#0 

NOTENM 
SIDCLR 


#$1A 

ATDCYl 

#1 

DURATE 


DURATE 
EXIT 

NOTENM 
NDURTB.X 


DURATE 


FREQTB.X 
FRELOl 
FREQTB+l.X 
FREHU 
*%00100000 
VCREG1 
#%00100001 
VCREG1 
NOTENM 


,-  vector  lo  IRQ  interrupt  routine 
i  IRQNOR  -  64101  on  the  128 
;  starting  address  for  the  SID  chip 
;  voice  1  high  frequency 
;  voice  1  control  register 


;  music. 

I  disable  IRQ  interrupts  to  change  the 
;  vector 

j  store  the  low  byte  of  the  IRQ  wedge 
I  and  the  high  byte 


;  set  pointer  to  first  note  in  table 

;  clear  the  SID  chip 

;  set  the  volume  to  maximum 


I  set  attack/decay 


;  initialize  duration  counter  for  first  pass 
;  with  vector  changed,  rentable  IRQ 
;  interrupts 


!  Main  actually  plays  the  music. 
;  see  if  current  note  I 
;  if  not,  allow  it  to  finish 
:  index  to  NOTES 

;  get  the  note's  duration  from  a  table 

i  multiply  by  8  so  each  note  lasts  eight  times 


;  and  store  It  into  the  counter 

;  gel  index  for  FREQTB 

.  double  it  since  FREQTB  contains  two-byte 

i  addresses 

;  to  index  FREQTB 

i  get  low  byte  of  note's  frequency 

;  store  it  in  voice  I 

j  get  high  bvte  of  note's  frequency 

i  store  it  in  voice  1 

;  ungate  sawtooth  waveform 


m 

EXIT 
*0 

NOTENM 
IRQNOR 


continue 


;  if  yes,  start  again  with  first  note 

:  exit  through  normal  IRQ  interrupt  handler 


.BYTE  2.2,4.4,5,5,4,5.5.4.3.2 

;  table  of  note  indexes 
-BYTE  3,2.2.4,2.1,0.0,0.0,1,1.2 
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C07B 

C07B    02  06 


C08B 
C094 


COAO  00 
COM  00 


NMNOTE 
NDURTB 


*  -  NOTES 


D URATE 
NOTENM 


.BYTE  0 
.BYTE  0 


C0A2  A9  00  SIDCLR 

C0A4  AO  18 

C0A6  99  00  D4  SIDLOP 
C0A9  B8 

C0AA  10  FA 


LDA 
LDY 
STA 
DEY 
BPL 


#0 
#24 

FRELOl.Y 


SIDLOP 


number  of  notes 
,1.2,1,1.4.2 

;  table  of  note  durations 
12 

1,6812.7647,8583 
;  tabale  of  two-byte  frequency  values 
i  duration  counter 
;  note  number  counter 

J  Clear  the  SID  chip. 
;  fill  with  zeros 
;  as  the  offset  from  FRELOl 
;  store  zero  in  each  SID  chip  address 
;  for  next  lower  address 
i  fill  25  bvtes 
;  we're  d 


See  also  BEEPER, 
SIDVOL,  SIRENS. 
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IRQINT 


Name 

Set  up  an  IRQ  interrupt  routine 
Description 

IRQINT  redirects  the  IRQ  interrupt  vector  to  your  own 
routine 

Prototype 

1.  SEI  to  disable  the  IRQ  interrupts. 

2.  Store  the  address  of  your  custom  IRQ  routine  into  the  IRQ 
interrupt  vector. 

3.  Reenable  the  IRQ  interrupts  with  a  CLI  and  RTS. 

Explanation 

The  program  below  demonstrates  how  this  routine  might  be 
used.  In  it,  IRQINT  changes  the  IRQ  vector  to  point  to  the 
routine  WEDGE.  This  routine,  in  turn,  checks  the  shift  key 
flag,  halting  the  current  program  if  a  shift  key  is  being  pressed. 
The  shift  keys  include  SHIFT,  CTRL,  and  the  Commodore  key 
on  the  64  and  128;  and  also  CAPS  LOCK  and  ALT  on  the  128. 

Since  WEDGE  is  accessed  during  each  IRQ  interrupt  (ev- 
ery 1/60  second),  you  can  halt  almost  anything  run  from 
BASIC — games,  commands  such  as  LIST,  and  so  on. 

Notice  we  rely  on  the  Kernal  routine  SCNKEY  rather  than 
GETTN  within  our  interrupt  routine.  Unlike  GETTN,  SCNKEY 
updates  even  while  we're  in  the  interrupt  routine. 

Note:  It's  important  to  disable  IRQ  interrupts,  as  we've 
done  here,  before  changing  the  IRQ  vector.  If  you  skip  this 
step  and  an  IRQ  interrupt  occurs  while  the  vector  is  being 
changed,  your  program  could  easily  be  sent  to  some  meaning- 
less address. 

On  the  128,  your  custom  IRQ  routine  must  be  accessible 
from  bank  15  since  memory  is  configured  for  this  bank  prior 
to  jumping  through  the  IRQ  vector. 


IRQVEC       «         788  ;  vector  to  IRQ  Interrupt  vector 

IRQNOR      -        59953  •  IRQNOR  -  64101  on  the  128— normal  IRQ 

;  interrupt  handler 

C000  SCNKEY      =       65439  ;  Kernal  routine  to  get  a  keypress 

C0O0  SHFLAG     =       653  ;  SHFLAG  =  21 1  on  the  128 — shift  key  (lag 

;  IRQ  Interrupt  routine  to  pause  on  shift  key. 
C000    78  IRQINT       SEI  ;  disable  the  IRQ  Interrupts  before 

;  changing  the  vector 

C001    A9  0D  LDA     #<WEDGE      ;  point  the  IRQ  vector  to  our  routine,  low 


IRQINT 


C003  8D  14  03 

C006  A9  CO 

COOS  8D  15  03 

COOB  58 

COOC  60 


STA  IRQVEC 

I. DA  #>  WEDGE 

STA  IRQVEC +1 
CL1 

RTS 


I       «hen  high  byte 

;  reenable  IRQ  interrupts  after  changing 
;  the  vector 


LDA 
BEQ 


SHFLAC 
FINIS 


JSR  SCNKEY 


COOD  AD  8D  02  WEDGE 

C010  FO  06 

C012  20    9F  FF 

C015  4C  OD  CO 

C018  4C  31  EA  FINIS 


See  also  NMIINT,  RAS64,  RAS128. 


:  Halt  the  program  with  SHIFT  kevpress. 

;  check  the  SHIFT  flag 

;  if  5HTFT  not  pressed,  then  exit  through 

;  normal  IRQ  routine 

:  update  SHIFT  Hag 

;  and  check  if  it's  still  pressed 

:  exit  through  the  normal  IRQ  interrupt 

:  handler 


293 


JIFDEL 


Name 

Jiffy  clock  delay 

Description 

One-  and  two-byte  delay  routines,  causing  pauses  of  less  than 
a  millisecond  to  a  few  seconds,  have  been  provided  elsewhere 
in  this  book  (BYT1DL,  BYT2DL).  There  will  be  times,  though, 
when  you'll  need  a  routine  to  produce  an  extended  delay— on 
the  order  of  several  seconds  to  several  minutes.  JIFDEL, 
which  relies  on  the  jiffy  clock  to  time  this  delay,  is  just  such  a 
routine. 

Prototype 

1.  Enter  this  routine  with  the  delay  length  (defined  in  jiffies  as 
DELAYJ)  in  .A  (low  byte)  and  .X  (high  byte).  The  current 
jiffy  clock  reading  (the  low  and  middle  bytes)  are  in  zero 
page  (in  ZP). 

2.  Add  the  delay  value  to  the  jiffy  clock  reading  in  ZP. 

3.  Compare  the  resulting  value  to  the  current  jiffy  clock  read- 
ing and  return  from  the  routine  when  they  agree. 

Explanation 

JIFDEL  is  a  straightforward  and  practical  routine.  First  add  the 
number  of  jiffies  (1/60  second  intervals)  that  you've  specified 
in  DELAYJ  to  the  current  jiffy  clock  reading  and  then  wait  un- 
til the  clock  reads  this  total. 

As  it's  written,  the  routine  only  uses  the  lower  two  bytes 
of  the  three-byte  clock.  With  these  two  bytes  alone,  a  delay 
anywhere  from  1/60  second  (one  jiffy)  to  1092  seconds 
(65,535  jiffies  or  18.2  minutes)  can  be  carried  out.  If  you  need 
a  program  delay  that  extends  for  an  even  longer  time  than 
18.2  minutes,  add  the  high  byte  of  the  jiffy  clock  as  well. 

In  the  example  program  below,  JIFDEL  causes  a  delay  of 
600  jiffies — ten  seconds — before  incrementing  the  border  color 
of  the  screen.  Notice  that  most  of  the  code  for  this  program  is 
setup  required  by  JIFDEL.  The  lower  two  bytes  of  the  current 
jiffy  clock  reading  are  stored  into  zero  page.  Before  this  can  be 
done,  IRQ  interrupts  must  be  disabled  so  the  clock  won't  ad- 
vance while  it's  being  read.  The  last  requirement  is  that  the 
specified  delay  (DELAYJ)  be  passed  to  the  routine  in  the  accu- 
mulator (low  byte)  and  the  X  register  (high  byte). 
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JIFDEL 


Routine 


cooo 


COOO  78 
COOl    A5  A2 


A6  Al 
86  FC 
58 


COOA  A9  58 

COOC  A2  02 

CODE    20  15  CO 

C011  EE  20  DO 
COW  60 


CHROUT 
ZP 

TIME 


C015  18 

C016  65  FB 

C018  8S  FB 

C01A  8A 

C01B  65  FC 

C01D  C5  Al 

COIF  DO  FC 

C021  A5  FB 

C023  C5  A2 

C025  DO  FC 

C027  60 


16 
53280 
600 


SE1 

LDA  TIME+2 

STA  ZP 

LDX  TIME+1 

STX  ZP+1 
CLI 


LDA 
LDX 


RTS 


#<DELAYJ 
#>DELAYJ 
flFDEL 
EXTCOL 


JIFDEL  CLC 

ADC  ZP 

STA  ZP 
TXA 

ADC  ZP+1 

MIDBYT     CMP  TIME+1 

BNE  MIDBYT 

LDA  ZP 

LOWBYT    CMP  TIME+2 

BNE  LOWBYT 
RTS 


I  border  color  register 
;  600  jiffies  (ten  seconds) 

;  Cause  the  border  color  to  change  after  a 
;  specified  delay. 

;  disable  interrupts  so  dock,  doesn't  advance 

;  while  being  read 

J  store  jiffy  low  byte  in  zero  page 


;  store  middle  byte  also 

;  we've  got  the  current  | 
;  interrupts 
;  store  lc  ' 


j  carry  out  delay  in  J>  < 
;  change  the  border  colt 


;  JIFDEL  sets  the  jiffy  clock  with  the  delay  in 

,-  A  (low)  and  .X  (middle). 

;  add  delay  to  current  jiffy  clock  reading  in 

;  zero  page 

;  low  byte  first 

;  now  middle  byte 

;  Determine  whether  DELAY)  has  elapsed. 

;  check  middle  byte  first 

I  wait  for  middle  byte  to  agree 

;  now  low  byte 

;  wall  for  low  byte  to  agree 

;  previous  time  Is  equal  lo  time  plus  delay 


See  also  BYT1DL,  BYT2DL,  INTDEL,  KEYDEL,  TOD1DL,  JLFFRD, 
JIFPRT,  JIFSET. 
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JIFFRD 


Name 

Read  the  jiffy  dock 

Description 

JIFFRD  does  more  than  just  read  the  three-byte  jiffy  clock. 
This  routine  is  integrated  into  a  program  in  which  a  pair  of 
timers  are  updated  based  on  the  current  jiffy  clock  reading. 

Prototype 

L  Disable  IRQ  interrupts  to  prevent  the  clock  from  advancing 
while  it's  being  read. 

2.  In  a  loop,  read  three  bytes  from  the  jiffy  clock,  storing  them 
to  a  memory  buffer.  (Here,  we  actually  add  them  to  the  cur- 
rent timer  value  for  player  1  or  2.) 

3.  Reenable  IRQ  interrupts  to  restart  the  jiffy  clock. 

Explanation 

It's  a  relatively  simple  matter  to  read  the  three-byte  jiffy  clock 
at  location  160.  You  first  disable  IRQ  interrupts  to  stop  the 
clock,  read  the  three  bytes  into  a  memory  buffer,  and  reenable 
IRQ  interrupts  to  restart  the  clock. 

This  routine  offers  additional  features.  It  is  part  of  a 
simulation  in  which  two  3-byte  jiffy  timers  are  maintained — 
one  for  each  of  two  players.  Let's  say  you've  brought  your 
computer  to  a  hockey  game  and  you  want  to  keep  track  of 
time  of  possession.  When  one  team  has  the  puck,  press  the  0 
key.  When  the  other  team  gets  it,  press  the  1  key.  The  jiffy 
clock  is  reset  to  zero  at  the  beginning  of  each  event. 

When  a  change  of  possession  occurs  (when  the  other  key 
is  pressed),  the  current  jiffy  clock  reading  is  added  to  the 
appropriate  timer,  and  the  program  begins  timing  the  other 
team's  turn.  This  continues — teams  alternating  turns — until 
the  space  bar,  which  exits  the  program,  is  pressed. 

At  the  start  of  the  program,  both  timers  are  initialized  to 
zero  in  INITLP.  The  clock  then  begins  at  START  after  0  or  1  is 
pressed.  Pressing  one  of  these  keys  causes  a  branch  to 
INITTM  where  the  jiffy  clock  is  reset.  The  value  of  the  ASCII 
keypress  is  then  used  in  SETUPZ  to  load  the  address  of  the 
current  team's  timer  from  TABTIM  into  zero  page. 


Once  the  current  team's  timer  address  is  in  zero  page,  we 
jump  to  MAIN  LP  where  the  third  key — the  space  bar — be- 
comes an  acceptable  entry.  The  0  and  1  keys,  at  this  point, 
cause  a  switch  to  occur.  The  timer  for  the  previous  team  is  up- 
dated in  JIFFRD. 
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JIFFRD 


Within  JIFFRD,  we  momentarily  stop  the  jiffy  clock  with 
an  SEI,  add  the  current  reading  to  the  last  team's  timer,  reset 
the  clock,  and  start  it  again  with  a  CLI.  From  here,  provided 
the  space  bar  isn't  pressed,  we  branch  to  SETUPZ — where  the 
current  team's  timer  address  is  stored  in  zero  page — and  again 
jump  to  MAINLP.  Notice  that  the  structure  of  the  program  al- 
lows a  team  to  repeat  without  corrupting  the  timers. 

Note:  In  adding  the  jiffy  clock  to  the  timer  in  $C02F,  the 
zero-page  address  for  the  jiffy  clock  must  be  expressed  as  a 
two-byte  address  (as  $OOA0).  That's  because  the  opcode  form 
ADC  zero-page  address,*  doesn't  exist  in  6502/8502  machine 
language. 


Routine 


GETTN 
ZP 


65508 
251 


cooo 

AO  05 

LDY 

#5 

C002 

A9  00 

LDA 

#0 

C004 

99    5A  CO  INTTLP 

STA 

FLAYRl.Y 

C007 

88 

DEY 

COOS 

10  FA 

BPL 

1N1TLP 

C00A 

20    E4    FF  START 

JSR 

GET1N 

COOD 

C9  30 

CMP 

#48 

COOF 

F0  27 

BEQ 

1NTTTM 

C011 

C9  31 
F0  23 

CMP 

#49 

C013 

BEQ 

INITTM 

C015 

DO  F3 

BNE 

START 

CO  17 

20    E4    FF  MAINLP 

ISR 

GETIN 

COLA 

C9  30 

CMP 

#48 

C01C 

F0  OA 

BEQ 

IIFFRD 

C01E 

C9  31 

CMP 

#49 

C02O 

F0  06 

IIFFRD 

C022 

C9  20 

#32 

F0  02 

si 

|1FFRD 

DO  EF 

MAINLP 

;  Add  to  each  player's  timer  when  j. 
;  switch  occurs.  Quit  on  space  bar 

.  •....!    


;  do  all  six  bytes 

;  set  the  jiffy  clock  to  zero  with  the  First  valid 
;  keypress 

,  does  player  1  start  the  jiffy  clock  first? 

;  initialize  jiffv  dock  and  put  PLAYR1  in  ZP 

;  or  does  player  2  start  it  first? 

;  initialize  jiffy  clock  and  put  PLAYR2  in  ZP 

:  it's  neither,  so  get  another  keypress 

;  main  GETTN  loop 
;  is  it  player  l's  turn? 
;  add  in  fifty  clock  to  PLAYR2 
;  is  It  player  2's  turn? 
;  add  in  jiffy  dock  to  PLAYR1 
|  is  it  SPACE? 
;  add  in  the  last  pla 
;  if  not  0.  1.  orspai 


C028  78 

C029  48 

C02A  18 

C02B  AO  02 

C02D  Bl    FB  RDLOOP 

C02F  79    AO  00 

C032  91  FB 

C034  88 


PI1A 

CLC 
LDY 


#2 


LDA  (ZP),Y 
ADC  ^A»'Y 

DEY 


!  JlFtKD  reads  the  jiffy  dock,  adds  the 

;  current  value  to  PL  AYR!  or 

;  PLAYR2,  depending  on  which  one  just 

;  finished,  and  restarts  the  dock. 

;  stop  the  dock 

;  save  the  player  number  as  ASCII  48  or  49 

;  for  subsequent  addition 

j  add  all  three  bytes  of  the  jiffv  dock  to 

;  timer  for  PLAYR1  or  PLAYR2' 

;  get  player's  previous  timer  value 

;  add  current  (iffy  dock  reading  to  it 

;  and  store  It  back  to  PLAYR1  or  PLAYR2 

;  for  next  higher  byte  In  the  jiffy  dock 
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C035  10  F6 

C037  68 

C038  48 

C039  A9  00 

C03B  85  AO 

C03D  8S  Al 

C03F  85  A2 

C041  68 

C042  58 


C045  DO  01 
C047  60 


BPL  RDLOOP 
PLA 


INITTM  PHA 


LDA  #0 

STA  TIME 

STA  TIME+1 

STA  TIME+2 
PLA 
CLI 


CMP  #32 

BNE  SETUP2 
RTS 


;  do  all  three  bytes 

;  to  properly  maintain  the  stack  with  an 
;  even  number  of  PHA/PLA  instructions 
)  save  the  player's  number  as  ASCII  48  or 
;49 

;  reset  timer 
;doi 


;  restore  player  number  as  ASCII  48  or  49 
'  begtanta"^  JIFF  miMer8  when  SEI  ■* 

;  quit  on  space  (we've  added  in  the  last  time 
i  to  PLAYR1  or  PLAYR2) 

ce,  set  up  ZP  for  next  player 


C048  29  01 

C04A  OA 

C04B  A8 

C04C  B9  60  CO 

C04F  85  FB 

C05I  C8 

C052  89  60  CO 

C055  85  FC 

C0S7  4C  17  CO 

C05A  00  00    00  PLAYR1 

C05D  00  00    00  PLAYR2 

C060  5A  CO  5D  TABTIM 


SETUPZ      AMD  #1 


ASL 


TAY 

_  _  . 


STA 
1NY 
LDA 

STA 
IMP 

.BYTE 
BYTE 


TABTIM.Y 
ZP 

TABTIM.Y 

ZP+1 
MAIN  LP 


0.0.0 
0,0,0 


j  Point  ZP  to  the  next  player's  timer. 

;  to  convert  the  ASCII  response  of  48/49  to 

;0/l 

;  double  the  number  since  we  re  dealing  with 
;  two-byte  addresses  (.WORDS) 
.  index  by  ,Y 

playrT byte  address  of  PLAYR1  or 

;  store  in  zero  page 
;  for  next  byte 

;  load  high-byte  address  of  PLAYR1  or 

; PLAYR2 

;  and  store  also 

;  and  wait  for  another  key 

; 

;  three-byte  timer  for  player  1 


WORD  PLAYR 1  .PL  AYR2 

;  address  pointers  to  each  player's  timer 
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Name 

Print  the  jiffy  dock  reading 
Description 

This  routine  allows  you  to  use  the  three-byte  jiffy  clock  as  a 
timepiece.  JIFPRT  displays  the  current  jiffy  clock  reading  on 
the  screen  in  an  hours/minu tes/seconds/ jiffies  format. 

Prototype 

1.  Initialize  a  place  counter  (CLKCTR)  to  zero  for  the  ASCII 
clock  frame  (CLOCK). 

2.  Store  the  address  of  this  clock  frame  into  zero  page  (as  ZT). 

3.  Disable  IRQ  interrupts  to  prevent  the  jiffy  clock  from 
advancing  while  it's  being  read. 

4.  Read  the  current  three-byte  jiffy  clock  reading  and  store  it 
in  zero  page  (ZP).  Reenable  IRQ  interrupts. 

5.  Load  .X  with  an  index  to  the  subtrahends  table  (TB3SUB)  so 
that  it  initially  points  to  the  low  byte  of  the  largest  sub- 
trahend (the  low  byte  $80  of  2160000/$20F580). 

6.  Perform  a  conversion  of  the  jiffy  clock  reading  to  an 
hours/minutes/seconds/hundredths-of -seconds  format  by 
repeated  subtraction.  Store  the  ASCII  equivalent  of  each 
digit  into  the  clock  frame. 

7.  After  each  digit  has  been  converted  to  ASCII,  a  check  of 
CLKCTR  tells  us  whether  the  next  digit's  place  in  the  clock 
frame  is  even  or  odd.  On  even-digit  places,  the  zero-page 
pointer  to  the  clock  frame  is  incremented  by  one,  which 
places  us  beyond  the  colons  or  the  decimal  in  the  frame. 

8.  When  the  ASCII  clock  has  been  completed,  print  it  and  re- 
turn from  the  routine. 

Explanation 

In  the  following  program,  a  formatted  jiffy  clock  is  continually 
printed  at  the  home  position  with  JIFPRT  until  a  key  is 
pressed. 

The  three-byte  jiffy  clock  at  160-162  is  a  24-hour  cascade 
timer,  updated  by  the  operating  system.  Unlike  most  other 
pointers  and  values  in  memory,  the  high  byte  of  the  jiffy  clock 
(160)  is  actually  lowest  in  memory. 

The  jiffy  clock  increments  every  1/60  second,  a  unit  of 
time  called  a  jiffy.  The  low  byte  at  location  162  counts  256 
jiffies  (4.27  seconds)  before  the  middle  byte,  location  161,  in- 
crements. When  the  middle  byte  reaches  256  (after  18.2  min- 
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utes),  the  high  byte  at  location  160  counts  forward  by  one. 

In  JIFPRT,  after  storing  the  current  jiffy  clock  reading  in 
zero  page  (ZP),  it's  converted  to  an  hours/minutes/seconds/ 


hundredths-of-seconds  format  and  stored  as  ASCII  into  CLOCK. 
This  conversion  is  done  by  using  a  subtraction  method  much 
like  the  two-byte  conversion  routine  discussed  in  CNUMOT, 
only  in  this  case  it's  done  for  a  three-byte  number.  In  very 
general  terms,  the  current  three-byte  jiffy  clock  reading  is  di- 
vided by  the  eight  three-byte  numbers  in  TB3SUB.  Each  di- 
vision, following  conversion  to  ASCII  at  $C05D,  yields  another 
digit  within  CLOCK.  We  begin  with  the  highest,  or  tens-of- 
hours  place,  and  work  down  to  the  lowest,  or  sixtieths-of- 
seconds  place. 

Notice  that,  before  running  the  program,  CLOCK  already 
contains  the  colons  and  the  decimal  used  in  the  screen  display. 
This  setup  is  referred  to  as  a  clock  frame.  By  prepositioning  the 
colons  and  decimal  point,  we  avoid  having  to  write  code  to 
print  them  ourselves  within  JIFPRT.  At  the  same  time,  how- 
ever, we  have  to  insure  that  we  don't  overwrite  them  when 
we  store  the  ASCII  digits  to  CLOCK.  And  this  is  where  the 
CLOCK  position  counter,  or  CLKCTR,  comes  into  play. 

After  storing  each  ASCII  digit  to  CLOCK,  we  check  to  see 
whether  the  next  position  in  clock,  as  maintained  in  CLKCTR, 
is  even  or  odd  (see  $C05F-$C071).  If  CLKCTR  tells  us  that  the 
next  position  is  even  (the  carry  flag  is  clear  after  the  LSR  in 
$C069),  we  increment  by  one  the  zero-page  pointer  to  the 
clock  frame  (in  ZT)  so  that  we  skip  over  the  colon  or  decimal 
which  follows. 

Once  the  clock  frame  has  been  constructed,  it's  a  simple 
matter  to  print  its  ASCII  contents  in  PRTCLK. 


cooo 
cooo 


CHROUT  = 

GETIN  = 
ZP 

ZT  - 


COOO 


COOO   A9  93  CLRCHR 

C002    20  D2  FF 

COOS    A9  13  JIFLOP 

C007    20  D2  FF 

CO0A   20  13  CO 

20  E4  FF 


IDA 
JSR 
LDA 
ISR 


65490 
65508 
251 
155 

160 


•147 

CHROUT 

#19 

CHROUT 


,  normally  Used  in 


clock 


;  Print  the  current  jiffy  dock  reading.  I 
:  key  to  stop. 


;  HOME  the  cursor 

.-  read  and  print  the  jiffy  clock 


JIFPRT 


C010  FO  F3 
C012  60 


C013    A9  00 
C015    8D  A9  CO 


C018  A9  9D 

C01A  85  9B 

C01C  A2  CO 

C01E  86  9C 


BEQ  I1FLOP 

LDA  #0 

STA  CUCCTR 


LDA  #<CLOCK 

STA  ZT 

LUX  #>CLOCK 

STX  ZT+1 


JIFFRD  SE1 


C021  AO  02 

C023  B9  AO  00  LOOP 

C026  99  FB  00 

C02A  10  F7 


LDY  #2 

LDA  TIME.Y 

STA  ZP.Y 
DEY 

BPL  LOOP 
CLI 


s,  do  it  all  again 


the  jiffy  clock, 
counter  within  our 


h  and  low  bytes  of  our 
to  zero  page. 

I  then  high  byte 

,'  prevent  the  jiffy  clock  from  advancing 

I  while  If  s  being  read 

j  as  a  index  for  LOOP 

;  store  current  jiffy  clock  reading  in  zero 


>  reenable  IRQ 


C02D  A2  IS 

C02F  AO  TF 

C031  C8  SUBTLP 

C032  AS  FD 

COM  48 

C035  38 

C036  FD  85  CO 

C039  85  FD 

C03B  A5  FC 

C03D  48 

C03E  ED  86  CO 

C041  85  FC 

CM3  A5  FB 

C045  48 

C046  FD  87  CO 

C049  85  FB 

C04B  90  06 

C04D  68 

C04E  68 

C04F  68 

C0SO  4C   31  CO 


C053  68  DONE 
C054    85  FB 

C057    85  FC 


LDX 

LDY 
INY 

LDA 
PHA 

SEC 
SBC 


#21 
#255 

ZP+2 
TB3SUB.X 


;  Now  convert  clock  reading  in  ZP  to  ASCII 

;  and  store  It  In  the  ASCII  clock. 

;  index  to  TB3SUB  table;  initially  points  to 

;  low  byte  of  2160000 

;  initialize  counter  for  each  digit's  place 

;  begin  subtraction  loop,  counter  starts  with 

;  zero 

;  save  the  low  byte  of  the  current  jiffy 


e  of  subtrahend  from  low 


;  subtract  low  b 
;  byte  of  clock  value 
;  store  result  in  aero  page 
;  do  the  same  with  middle  byte 
;  save  the  middle  byte  of  the  current  jiffy 
;  clock  reading 

SBC     TB3SUB+LX  ;  subtract  subtrahend's  middle  byte  from 
;  clock's  middle  byte 
;  and  store  the  result 
;  and  once  again  with  the  high  byte 
;  save  the  high  byte  of  the  current  jiffy 
;  clock  reading 

SBC     TB3SUB+2,X  ;  subtract  high  byte  of  subtrahend  from 
;  clock's  high  byte 
;  and  store  the  result 
;  subtraction  gave  number  less  than  0  so 
j  we're  done 
j  restore  the  stack 


STA 
LDA 
PHA 


STA 
LDA 
PHA 


STA 
BCC 


ZP+2 
ZP+1 


ZP+1 
ZP 


ZP 

DONE 


PLA 
PI.  A 
PLA 
IMP 


PLA 
STA 
PLA 
STA 
PLA 


SUBTLP 


ZP 


;  and  continue  subtraction 

;  Restore  high,  middle,  and  low  bytes  to 

;  values  before  we  dropped  below  zero. 

;  pull  high  byte  of  clock  reading 

!  and  store  it 

;  pull  middle  byte  of  clock  reading 

;  and  store  it  also 

i  pull  low  byte  of  clock  reading 
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C05A  85  FD 

C05C  96 

C05D  09  30 

COSF  AC  A9  CO 

C062  EE   A9  CO 

C06S  91  9B 

C067  C8 

C068  98 

C069  4A 

C06A  BO  06 

C06C  Eh  9B 

C06E  DO  02 

C070  E6  9C 

C072  CA  DECRIT 


CA 
CA 

10  B8 


C077  AO  00 

C079  B9  9D  CO  PRTCLK 

C07C  FO  06 

C07E  20  D2  FF 

C081  C8 

C082  DO  F5 

C084  60  exit 


STA  ZP+2 
TYA 

ORA  #48 

LDY  CLKCTR 

INC  CLKCTR 

STA  (ZT),Y 

INY 

TYA 

LSR 

BCS  DECRIT 


inc  rr 

BNE  DECRIT 

INC  ZT+1 
DEX 


i  and  store  il  also 
;  put  digit's  place  counter  into  .A 
;  Convert  digit's  place  counter  to  ASCII. 
;  effectively  add  48  to  get  an  ASCII  digit 
;  get  the  current  clock  place  counter 
;  update  it  for  the  next  place 


;  determine  whether  the  next  place  is  even 
;  or  odd 

;  shift  the  number  right  and  check  the 
;  carry  flag 

;  branch  occurs  with  odd  numbers 

;  If  even,  increment  the  clock  frame  pointer 

;  beyond  the  colon  or  decimal. 

;  increment  low  byte  pointer 

;  and  the  high  byte  if  the  low  byte  wraps 
;  decrement  J£  three  times  since  three-byte 
;  entries  in  subtrahend  table 


BPL     1NITCT  ;  handle  the  next  digit's  place 

;  Now  print  the  clock  frame. 
;  as  an  index  for  PRTCLK 
;  get  each  character  from  clock 
;  if  zero  byte,  we're  done 
;  print  each  character  from  clock 

\  bra^c?  alwys 


LDY  #0 

LDA  CLOCK,  Y 

BEQ  EXIT 

JSR  CHROUT 
INY 

BNE  PRTCLK 
RTS 


C085  01    00    00  TB3SUB 

C091  10    0E  00 

C09D  20    20   3A  CLOCK 

C0A8  00 

C0A9  00  CLKCTR 


;  A  table  of  three-byte 
.BYTE  $1,$0.$0,SA.$0,$0,$3C,$0,$0,$58,$2,$0 
.BYTE  $10,$E,$0,$AO.$8C,$0,$CO,$4B,$3,$80,$F5,$20 
.ASC    "  : : .  "  ;  clock  frame 

BYTE  0  J  terminator  bvte 

BYTE  0  ;  position  counter 


See  also  JIFDEL,  JLFFRD,  JIFSET. 
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Set  the  jiffy  dock 
Description 

Since  time  is  never  expressed  in  binary  format  in  everyday 
usage,  the  jiffy  clock — a  three-byte,  24-hour  cascade  timer — is 
awkward  for  those  of  us  who  are  accustomed  to  an  hours/ 
minutes/seconds  decimal  format.  JIFSET  allows  you  to  set 
this  clock  to  a  particular  time  that  is  defined  in  this  more  con- 
ventional, decimal  form. 

Prototype 

1.  Before  entering  this  routine,  define  the  time  for  the  jiffy 
clock  in  an  hours/minutes/seconds/hundredths-of-seconds 
format  (in  TTMSET). 

2.  Initialize  a  digit's  place  counter  (CLRCTR)  to  7  for  a  7-0 
count  (the  jiffy  clock  reads  to  eight  digits). 

3.  Disable  IRQ  interrupts  to  prevent  the  jiffy  clock  from 
advancing  while  it's  being  set. 

4.  Clear  the  jiffy  clock  by  storing  a  zero  to  its  three  bytes. 

5.  Initialize  the  X  register  to  zero  so  that  it  initially  points  to 
the  low  byte  of  the  smallest  addend  (the  low  byte  of 
$000001)  in  a  table  of  addends  (TB3ADD). 

6.  In  RDSET,  perform  a  three-byte  conversion  of  the  intended 
time  (TIMSET)  to  the  format  used  by  the  jiffy  clock,  set  the 
clock,  then  reenable  interrupts  and  return  to  the  calling 


Explanation 

JIFSET  sets  the  jiffy  clock  time  to  the  value  in  TIMSET.  In  the 
example,  time  is  set  to  18:02:45.00.  (The  equivalent  BASIC 
statement  would  be  TT$  =  "180245".) 

The  approach  taken  in  converting  TIMSET  to  a  jiffy-clock 
format  is  the  opposite  of  that  used  in  JIFPRT,  which  converts 
the  clock  reading  to  an  hours/minutes/seconds/hundred ths- 
of-seconds  format. 

Instead  of  using  a  subtraction  method  to  do  this  conver- 
sion, we  use  addition  here.  Roughly  speaking,  each  digit 
within  TIMSET — beginning  with  the  most  significant  digit,  or 
the  tenths-of-hours'  place — is  multiplied  by  the  corresponding 
three-byte  number  in  TB3ADD.  This  process  continues  until 
all  digits  have  been  accounted  for.  Accomplish  each  so-called 

the  current  digit  in  a  counter 
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(CLKCTR)  and  then  repeatedly  adding  the  respective  three- 
byte  addend  until  the  counter  decrements  to  zero. 

The  interim  result  of  each  three-byte  addition  can  be 
stored  into  the  three  memory  locations  used  by  the  jiffy  clock. 
This  is  possible  since  we  have  earlier  disabled  the  IRQ  inter- 
rupts which  would  ordinarily  update  the  jiffy  clock. 

Routine 


cooo 
cooo 


ZP 
TIME 


COOO  A9  07  JIFSET 

C002  8D  5C  CO 

COOS  78  JIFFRD 

C006  A2  00 

COOS  86  AO 

C00A  86  Al 

C00C  86  A2 

C00E  AO  00 

C010  B9    54    CO  RDSET 

C013  FO  1A 

C015  AB 

C016  18  ADDLOP 

C017  A5  A2 

CM  9  7t>  3C  CO 

C01C  8S  A2 

C01E  A5  Al 

C020  7D  3D  CO 

COM  85  Al 

C025  A5  AO 

C027  7D  3E  CO 

C02A  85  AO 

C02C  88 

COJD  DO  E7 


LDA 

STA 


251 


#7 

CLKCTR 


;  three-byre  jiffy  dock 

m  'he  jiffy  clock  to  TIMSET. 
~  ?  counter 


LDX  #0 


STX 

STX 

STX 

LDY 

LDA 

BEQ 

TAY 

CLC 

LDA 

ADC 

STA 

LDA 

ADC 

STA 

LDA 

ADC 


TIME 
TIME+1 
2 


TCMSET.Y 
NEXTPL 


TIME+2 

TB3ADD,X 

TIME+2 

TIME+1 

TB3ADD+1,X 

TIME+1 

TIME 

TB3ADD+2,X 
TIME 


;  prevent  I 
i  while  it's  being  set 
;  dear  jiffy  clock  to  zero  and  initialize  .X 
;  for  ADDLOP 


;  as  an  index  in  TIMSET 

;  gel  a  byte  from  TIMSET 

;  if  zero,  skip  ADDLOP 

;  use  .Y  as  an  addition  counter 

;  for  addition 

;  get  the  clock  low  byte 

;  add  low  byte  of  three-byte  table  entry 

!  "lore  it  in  the  clock 

!  do  the  same  for  clock  middle  byte 

;  do  the  same  lor  clock 


BNE  ADDLOP 


C02F  E8 

C03O  E8 

C031  E8 

C032  CE  5C  CO 

C035  AC  5C  CO 

C038  10  D6 

C03A  58 

C03B  60 


NEXTPL 


EXIT 


INX 
INX 
INX 
DEC 
LDY 

CLI 

RTS 


;  decrement  addition  counter 

;  repeat  ADDLOP  until  respective  TIMSET 

digit  is  zero 
;  for  next  three-byte  entry  In  TB3ADD 


CLKCTR 
CLKCTR 
RDSET 


i  for  next  digit  In  TIMSET 


;  have  all  i 
;  we've  set  the  j: 

;i 

;  we're  . 


.  so  reenable  IRQ 


C03C  01    00   00  TB3ADD 
C048    10    0E  00 
C034    01    08    00  TIMSET 


C05C  00 


;  three-byte  table  of  ad 
.BYTE  $l.$0.$0.$A,$0.$0,$3C,$0,$O.S58.$2,tO 


.BYTE  $10.! 


0,$8C,$O.SCO,$4B,$3,$80.$F5.$20 

y  clock  setting 

counter  within  TIMSET 
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routine  reads  both  joysticks  and  returns  a  total  of  four 
values:  the  position  of  each  stick  (up,  down,  left,  or  right)  and 
the  state  of  the  fire  button  for  each  joystick.  The  example  rou- 
tine contains  a  complete  two-player  game. 

Prototype 

1.  Load  .Y  with  1,  as  an  index. 

2.  Load  .A  indexed  by  .Y  from  CIAPRA,  the  joystick  register. 

3.  Exclusive-OR  with  %00010000  and  then  AND  with 
%00010000,  to  isolate  the  bit  that  echoes  the  fire  button. 

4.  Store  this  value  in  FIRE2,  indexed  by  .Y. 
CIAPRA,Y  again. 

time,  EOR  with  %00001111  and  then  AND  with 
%00001111. 

7.  Store  the  result  in  JOY2,Y. 

8.  Decrement  .Y  and  branch  back  to  step  2  while  it's  positive. 
Explanation 

There  are  two  registers  on  the  64  and  128  that  tell  you  the  sta- 
tus  of  the  joystick  ports,  locations  56320  and  56321  ($DC00- 
$DC01).  These  registers  are  called  CIAPRA  and 
data  port  A  and  port  B.  Unfortunately,  th 
here  are  doubly  backwards. 

The  first  way  they're  backwards  is  the  labeling  _ 
stick  port  and  the  registers.  Register  B  ($DC01)  is  joystick  port 
1.  Register  A  ($DC00)  is  port  2.  To  read  the  first  joysfi-'- 
check  the  second  register  and  vice  versa. 


Joystick  Renister 
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You  might  think  that  if  the  joystick  is  pushed  to  the  left, 
bit  2  would  be  on  and  you'd  see  a  value  of  $04  in  the  register. 
What  really  happens  is  that  a  %1  means  the  switch  is  off  and 
%0  means  it's  on.  So  %xxxllll0  means  the  joystick  is  being 
pushed  forward. 

The  JOY2SE  subroutine  allows  for  the  first  problem  by 
putting  the  JOY2  byte  before  JOY1,  and  FIRE2  before  F1RE1  in 
memory  (see  locations  $C0F7-$C0FA  below).  It  solves  the  sec- 
ond problem  by  EORing  the  value  with  15  or  16,  then  ANDing 
with  15  or  16.  The  result  is  a  16  in  FIRE2  or  FIRE1  if  the  fire 
button  is  down  and  a  0  if  it's  not.  The  value  in  JOY2  or  JOY1 
is  1,  2,  4,  8,  or  some  combination  of  the  numbers  for  diagonals 
(up  and  right  would  be  1  plus  8,  for  example). 

The  example  program  is  a  classic  computer  game.  There 
are  two  players,  each  of  whom  has  a  joystick  for  moving.  If  a 
player  doesn't  touch  the  joystick,  that  player's  character 
continues  moving  in  the  same  direction.  If  the  joystick  is 
moved,  the  character  changes  direction  (north,  south,  east,  or 


Each  player  leaves  behind  a  trail,  which  marks  the  spaces 
the  character  (the  worm)  has  previously  traveled  over.  You  can 
move  into  new  territory,  but  if  you  hit  a  trail  (or  the  edge  of 
the  screen),  your  worm  dies,  and  points  are  awarded  to  your 
opponent. 

The  game  as  it  appears  is  complete.  But  it  could  be  im- 
proved. For  example,  after  a  crash,  you  could  add  the  EXPLOD 
routine  for  a  sound  effect.  The  hearts  and  exclamation  points 
that  make  up  the  worms  could  be  improved  with  custom  char- 
acters (see  CHRDEF  for  an  example  of  redefined  characters). 
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Note  to  128  users:  Pressing  the  fire  button  on  the  128 
makes  the  computer  act  as  if  the  F8  key  was  pressed.  Thus, 
you  may  find  that  when  the  game  ends,  you're  in  the  ML 
monitor.  To  prevent  this,  enter  the  line  KEY8,""  before  you 
play  the  game  (normally,  F8  is  predefined  to  print  MONITOR). 

Routine 


cooo 

ZP 

$FB 

cooo 
cooo 

NDX 

= 

SA2 
198 

cooo 

CHCOLR 

= 

646 

cooo 

BGCOLR 

53281 

cooo 

CHROUT 

$FFD2 

cooo 

UNPRT 

SBDCD 

cooo 

WM1 

1040 

WM2 

-  - 

2000 

C1APRA 

56320 

cooo 

20 

FB 

CO 

J5R 

PREP 

C003 

20 

16 

CI 

ROUND 

JSR 

START 

C006 

20 

B3 

CI 

JSR 

PUTTT 

C009 

20 

DD 

CO 

FLAG 

JSR 

JOY2SE 

cooc 

AD 

FA 

CO 

LDA 

F1RE1 

COQF 

OD 

F9 

CO 

ORA 

FTRE2 

CO  12 

FO 

F5 

BEQ 

FLAG 

C014 

60  CO 

MAINLP 

JSR 

SETDIR 

CI 

ISR 

g/rrr 

LDA 

C01C 

69 

OA 

ADC 

JflO 

C01E 

C5 

A2 

DLAY 

CMP 

JTF 

C020 

DO 

FC 

Bt-iE 

DLAY 

C022 

EE 

Bl 

CI 

INC 

POINTS 

C025 

DO 

03 

BNE 

LY 

C027 

EE 

B2 

CI 

INC 

POINTS +  1 

C02A 

CO 

00 

LY 

CPY 

«0 

C02C 

FO 

E6 

BEQ 

MAINLP 

;  low  byte  of  jiffy  dock 
;  index  (o  I 
;  the  128) 
:  use  24!  on  Ihe  128 


B  on 


;  setup  for  the  beginning  of  a  round 
;  POKE  a  character  to  the  screen 
;  read  the  Joysticks 
;  wail  for  the  fire  button 
:  either  one  can  start  the  game 
j  keep  looping  until  fire 
;  set  the  direction 
:  put  tl 


;  delay  is  jiffy  clock  +  10 
i  compare  it 


;  add  one  to  the  current  round's  points 
(.  If  necessary 


;  INC  the  h 
i  does  .Y  he. 
;  yes,  keep  going  because  neither  player  hit  a 
.wall 

;  end  of  a  round 


C02E 

CO  02 

CPY 

« 

;  did  both  players  crash? 

C030 

F0  Dl 

BEQ 

ROUND 

;  yes — no  points,  no  penalty 

C032 

AD  D9 

CI 

LDA 

LOSER 

:  either  0  or  2  lor  the  loser 

C035 

49  02 

EOR 

#2 

C037 

A8 

TAY 

;  fllpj^and  2,  now  it's  the  wirmei 

C038 
C039 

18 

CLC 

;  get  ready  to  add  points 

AD  Bl 

CI 

LDA 

POINTS 

;  low  byte  of  points 

C03C 

79  0D 

CI 

ADC 

P1SCOR.Y 

;  add  to  the  score 

C03F 

99  OD 

CI 

STA 

P1SCOR/Y 

;  and  store  It 

C042 

AD  B2 

CI 

LDA 

POINTS + 1 

;  high  byte 

C045 

79  OE 

CI 

ADC 

P1SCOR  +  1.Y 

;  add  It 

C048 

99  0E 

CI 

STA 

P1SCOR+1.Y 

.  store  it 

C04B 

AD  D9 

CI 

LDA 

lOSER 

:  0  or  2  again 

C04E 

4A 

LSR 

;  make  it  0  or  1 

AA 

TAX 

DE  11 

Cl 

DEC 

P1WORM.X 

;  one  less  worm  for  the  loser  (PI  or  P2) 

C053 

F0  03 

BEQ 

QUIT 

:  if  it's  zero,  quit 

C055 

4C  03 

CO 

JMP 

ROUND 

;  else,  do  another  round 

C058    20    16    CI  QUIT 

JSR 

5TART 

;  print  the  final  score 
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-DA  *0 
m  NDX 


COW  AO  01 

C064  B9    AF  CI  CHKD 

C067  C9   01  CHK1 

C069  DO  10 

C06B  BD  AB  CI 

C06E  38 

C06F  E9  28 

C071  9D  AB  CI 

C074  BO  34 

C076  DE  AC  CI 

C079  10  2F 

C07B  C9  02  CHK2 

C07D  DO  10 

C07F  BD  AB  CI 

C082  18 

C083  69  28 

C085  9D  AB  CI 

C088  90  20 

C08A  FE    AC  CI 

C08D  10  IB 

C08F  C9  03  CHK3 

C091  DO  OA 

C093  FE    AB  CI 

C096  DO  12 

C098  FE    AC  CI 

C09B  10  OD 

C09D  BD  AB  CI  WEST 

COAO  E9  01 

C0A2  9D  AB  CI 

COAS  BO  03 

C0A7  DE  AC  CI 


COAA  CA 
COAB  CA 
COAC  88 
COAD  10  B5 


TRYNEX 


LDY 
LDX 
LDA 

CMF 

BNE 

LDA 


STA 
BCS 
DEC 
BIT- 
CM? 
BNE 
LDA 
CLC 
ADC 
STA 
BCC 
INC 
BPL 

CMP 

BNE 

INC 

BNE 

INC 

BPL 

LDA 

SBC 

STA 

BCS 

DEC 


#1 
#2 

P1DIR.Y 
#1 

CHK2 


=40 

P1POS.X 

TRYNEX 

P1POS+1.X 

TRYNEX 

#2 

CHK3 
P1POS.X 


#40 


WEST 

P1POS.X 

TRYNEX 

P1POS+1.X 

TRYNEX 

P1POSA 

#1 

P1POS.X 
TRYNEX 
P1POS+1.X 


j  clear  out 

;  the  keyboard  buffer 
;  and  quit 

:  SETDIR  does  two  things — continue  the 
;  current  path  and  set  a  new  one. 
:  index  to  P1D1R/P2DIR 


;west) 
;  north 

;  no,  check  south 
:  yes,  il  is  north 

;  so  move  up  (-40  In  screen  memory) 


.-  store 

;  if  carry  dear,  DEC  the  high  byte 

:  check  for  south 
;  not  south 


;  add  40 


branch  always 

east,  perhaps 
definitely  west 
add  one  to ' 


is  always  set  if  we  get  this  far 


;.X 


C0B2    AE  F8  CO 

C0B5    F0  08 

C0B7   BD  CD  CO 

C0BA  F0  03 

C0BC   8D  AF  CI 

C0BF    AE  F7    CO  SKIPIT 

C0C2   F0  08 

C0C4  BD  CD  CO 

C0C7  F0  03 

C0C9   8D  80  CI 
COCC  60  SKIP2 

C0CD  00  01    02  NSEW 

C0D6  00  00  00 

C0DD  AO  01  JOY2SE 

C0DF  B9  00    DC  JOYLP 


J5R 

LDX  IOY1 

BEQ  SKIPIT 

LDA  NSEW.X 

beq  SKrprr 

STA  P1DIR 

LDX  JOY2 


;  check  the  joystick 

;  Ihis  will  be  a  number  0-15 


;  direction  for  PI 
;  look  at  player  2 

;  find  north,  south,  east,  west  again 


STA 
RTS 

.BYTE  0,1.2,0,4,0,0,0,3 

BYTE  0,0,0,0,0,0,0 

LDY  #1 

LDA  CIAPRA.Y 


;  index  for  checking  0  and  1 
;  joyarldc  A  (number  2)  or  B  (number  1) 
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2  49  10 

C0E4  29  10 

C0E6  99  F9  CO 

C0E9  B9  00  DC 

COEC  49  OF 

COEE  29  OF 

COFO  99  F7  CO 


C0F4  10  E9 
C0F6  60 


AND  #16 

STA  FIRE2.Y 

LDA  CIAPRA.Y 

EOR  #15 

AND  #15 

STA  JOY2.Y 
DEY 
BPL 
RTS 


:  flip  bit  4 

;  and  Isolate  It 

',  store  in  the  table 

;  check  the  joystick  again 

;  flip  bits  0-3 

;  and  mask  oft  the  high  nybble 
;  store  the  result 
;  count  down 
i  until  .Y  is  -1 


C0F7  00 
C0F8  00 

o-H  oo 


A2  05 

C0FD  BD  07    CI  PLOOP 

C100  9D  0D  CI 

C103  CA 

C104  10  F7 

C106  60 

CI  07  00  00    00  PTAB 


C10D 

C10D  00 

CI  OF  00 

cm  05 

CU2  05 

CI 13  53 

C114  00 
21 


00 

00 


PSE 

P1SCOR 

P2SCOR 

P1WORM 

P2WORM 

P1CH 


CI  16  A2  07  START 

CUB  BD  A3  CI  RLOOP 

CUB  9D  AB  CI 

C11E  CA 

CUF  10  F7 


C121 
C123 
CI  26 
C129 
C12B 
C12E 
C130 

C133 
C135 
C138 
C13A 
C13D 
CUF 
C141 
C144 
C146 
C148 
C14B 
C14E 
C150 
CI  53 
C155 
C158 


A9  01 

8D  86  02 

8D  21  DO 

A9  93 

20  D2  FF 

A9  0C 

8D  21  DO 

A9  04 

8D  86  02 

A9  0D 

20  D2  FF 

A9  DB 

A2  29 


20 
A2 
A9  9D 


9C  CI 
15 


20 
20 
A9 
20 


D2  FF 
D2  FF 


U 

D2  FF 
A9  DB 
20    D2  FF 
20    D2  FF 


.BYTE  0 

BYTE  0 

H  I 

LDX  *P5E 

LDA  PTAB.X 

STA  P1SCOR.X 
DEX 

BPI.  PLOOP 
RTS 

.BYTE  0,0.0.0,5,5 


'-PTAB-1 


.BYTE  0,0 

.BYTE  0,0 

BYTE  5 

.BYTE  5 


BYTE  0 
BYTE  33 

LDX  *RS1Z 
LDA  RTAB.X 


STA 
DEX 
BPL 


STA 

LDA 

JSR 

LDA 

STA 

LDA 
STA 


P1POS.X 
RLOOP 


CHROUT 
#12 

BCCOLR 


LDA 

LDX 

JSR 

LDX 

LDA 

1SR 

)SR 

LDA 

)SR 

LDA 

JSR 

JSR 


CHROUT 
#219 
#41 
PRLP 
#21 
#157 
CHROUT 
CHROUT 
#17 

CHROUT 
#219 
CHROUT 
CHROUT 


;  copy  the  table  PTAB 

;  get  the  number 

;  store  it 

;  count  down 

;  to  -1  before 


;  two  2-byte  scores,  ■ 
;  the  size  of  the  table 
i  which  is  copied  to  •' 


bles  below 


;  number  of  worms  left 


;  screen  c 
;  this  byte  is  deliberately  left  blank 
;  screen  code  lor  exclamation  point 

:  copy  the  table  RTAB 

r  get  a  number 

;  copy  it 

;  count  down 

j  until  X  is  -1 

j  color  code  for  white 


J  color 
;  clear  screen  character 
;  print  it 
;  medium  grav 

;  background 'color  (do  this  to  aUow  for 
j  version  2  64s) 
;  purple 

!  <RETURN> 

;  picket-fence  character 

;  print  it  .X  number  of  times 
;  repeat  the  next  loop  21  times 
;  cursor  left 
;  backup  twice 

:  cursor  down 

;  picket  (ence  again 
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C15B  CA 

CISC   DO  E8 

C15E   A2  27 

20  9C  CI 


C163 
C165 


C16B 
C16E 
C171 
C173 
C176 
CI  79 
C17C 


A9  06 
8D  86  02 
AE  OF  CI 
AD  10  CI 
20  CD  BD 
A9  13 
20  D2  FF 
AE  OD  CI 
AD  OE  a 
20    CD  BD 


LDA  #b 

STA  CHCOLR 

LDA  P2SCOR  +  1 

JSR  UNPRT 

LDA  #19 

JSR  CHROUT 

LDX  P1SCOR 

LDA  P1SCOR  +  1 

JSR  LINPRT 


C17F    AD  13 

CI 

LDA 

P1CH 

a 

LDX 

PI  WORM 

C 1 85     FO  06 

BEQ 

STA 

OOPS1 

C187    9D  10 

04 

POK1 

WM1.X 

C18A  CA 

DEX 

C18B    DO  FA 

BNE 

POK1 

C18D  AD  15 

CI 

OOPS1 

LDA 

P2CH 

(~1Q0      AF  1? 

CI 

LDX 

P2WORM 

C193    FO  06 

BEQ 

OOPS2 

C195     9D  DO 

07 

POK2 

STA 

WM2,X 

C198  CA 

DEX 

0199    nfl  FA 

BNE 

POK2 

C I QR  Af) 
.  1    1 1  ou 

OOPS2 

RTS 

C19C  20  D2 

FF  PRLP 

JSR 

CHROUT 

C19F  CA 

DEX 

C1A0   DO  FA 

BNE 

PRLP 

C1A2  60 

RTS 

CIA3   9A  05 

D6 

RTAB 

.WORD  1434.1494 

C1A7  03  04 

.BYTE 

3.4 

C1A9  00  00 

.BYTE  0.0 

CIAB 

RSIZ 
P1POS 

•RTAB- 1 

C1AB  00  00 

WORDO 

CI  AD  00  00 

P2POS 

-WORD0 

C1AF  00 

.BYTE  0 

CI B0  00 
C1B1    00  00 

.BYTE  0 

C1B3    A2  03 

purrr 

.BYTE  0,0 
LDX  #3 

C1B5    BD  AB 

CI 

KELP 

LDA 

P1POS.X 

C1B8    95  FB 

STA 

ZP.X 

C1BA  CA 

DEX 

C1BB    10  F8 

BPL 

KELP 

C1BD  AO  00 

LDY 

#0 

C1BE    A2  02 

LDX 

#2 

C1C1    Al  FB 

LOOK 

LDA 

(ZP.X) 

C1C3  C9  20 

CMP 

*32 

C1C5    FO  08 

BEQ 

WHEW 

C1C7  C8 

TNY 

C1C8   A9  56 

LDA 

•86 

OCA  8E    D9  CI 

STX 

LOSER 

C1CD  DO  03 

BNE 

STOR1T 

i  the  T  shape 


;  blue 

:  character  color  blue 


;  low  byte 
!  high  byte 


I  up  by  poking  the  number  of 
ining  worms  to  the  screen. 
:  the  character 
;  number  of  worms  left 


:  the  character  for  P2 

;  how  many  worms  are  left? 


j  count  down 


:  this  routine  prints  the  character  in  .A 

,  counts  down 

;  and  repeats  .X  time* 

;  starting  positions 
;  directions 
;  initial  points 

j  position  of  player  1 
;  and  player  2 
;  direction  of  PI 
;  and  P2 

.-  points  for  a  round 

i 

:  first  gel  the  addresses  of  the  characters 

:  put  the  positions  into  ZP 

.-  two  pointers 

:  and  loop 

:  down  to  zero 

# 

:  .Y  is  going  to  indicate  a  winner  if  a  collision 
.  .1.  


;  offset  for  the  characters 
;  check  the  current  location 
;  if  it's  a  space 
;  we're  safe 

:  else,  there's  a  problem 
;  X-like  character 
;  .X  holds  the  loser 
;  branch  always 
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C1CF  BD  13  CI 

C1D2  81  FB 

C1D4  GA 

C1D5  CA 

C1D6  10  E9 

C1D8  60 

C1D9  00 


LOSER 


LDA  P1CH.X 
STA  <ZP,X) 
DEX 
DEX 

BPL  LOOK 
RTS 

.BYTE  0 


;  go  back  one  more  time 
j  this  will  hold  a  0  or  a  2 


See  also  FIREBT,  JOY2TO,  JOYSTK. 
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Name 


Read  the  two  joysticks  together  as  one  stick 


Description 

With  this  routine  in  your  programs,  the  user  needn't  worry 
about  which  joystick  to  use.  JOY2TO  combines  the  responses 
from  both  joysticks,  handling  the  result  as  if  it  were  coming 
from  one  stick. 

The  routine  returns  directional  information  on  a  character 
that's  moved  around  the  screen  by  POKEing.  At  the  same 
time,  it  returns  the  status  of  the  joystick  fire  buttons. 

Prototype 

1.  AND  the  contents  of  the  two  joystick  data  registers 
together. 

2.  After  performing  an  LSR,  check  the  carry  flag. 

3.  If  carry  is  clear,  decrement  the  row  position  for  the  charac- 
ter, provided  you  haven't  reached  the  upper  limit  of  the 
screen,  and  return  to  the  main  program.  If  the  upper  limit 
has  been  reached,  simply  exit  the  routine. 

4.  If  carry  was  set  in  step  2,  it  indicates  that  neither  joystick 
was  moved  in  an  upward  direction.  Repeat  step  2  to  check 
for  downward,  left,  and  right  movement. 

5.  Check  the  fire  buttons  for  both  joysticks.  If  the  fire-button 
bit  (bit  4)  is  set,  exit  the  routine. 

6.  Otherwise,  store  a  zero  to  a  fire-button  flag  (FIREFL)  and 
RTS  to  the  main  program. 

Explanation 

Using  JOY2TO,  the  program  below  draws  with  either  joystick 
1  or  2.  By  moving  the  joysticks  in  one  of  four  directions,  the 
ball  character  (SCCODE)  "moves"  across  screen  memory. 
Pressing  a  fire  button  clears  the  screen  while  the  E  key  exits 
the  program. 

After  initializing  the  row  and  column  position  of  the  ball, 
the  corresponding  screen  memory  location  is  calculated  from 
$C017-$C04A.  This  series  of  instructions  determines  the 
screen  position  (SP)  using  the  expression  SP  =  (ROW  *  40  + 
COLUMN)  +  1024. 

In  order  to  multiply  by  numbers  that  aren't  a  power  of  2 
in  machine  language,  such  as  40,  you  have  to  break  the  mul- 
tiplier down.  In  this  case,  first  multiply  the  row  by  4,  then  add 
the  row  once  to  this  result:  This  is  the  same  as  multiplying  the 
number  by  5.  Then  multiply  this  by  8  (or  2T3). 
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To  multiply  by  5,  a  single  byte  will  suffice  for  the  result. 
The  screen  row  is  never  more  than  24,  so  only  a  single  byte  is 
needed  up  to  this  point  (5  *  24  =  120).  But  when  you  mul- 
tiply this  number  by  8,  since  the  result  can  exceed  255,  two 
bytes  are  needed. 

Once  the  screen  location  for  the  ball  has  been  calculated 
and  stored  in  zero  page  (ZP),  the  corresponding  color  memory 
location  is  determined  and  placed  in  ZP  +  3. 

Following  this  is  a  delay  of  two  jiffies.  If  this  weren't  in- 
cluded, joystick  movement  would  be  too  rapid.  If  you  add 
other  routines  to  this  code,  a  delay  of  one  jiffy  may  be  more 
suitable.  But  if  you  can't  produce  the  effect  you  want,  you  may 
have  to  switch  to  a  delay  routine  with  more  flexibility  like 
BYT2DL. 

Notice  that  within  JOYTO2,  we  check  the  fire  button  at 
the  end  of  the  routine  (in  FIRE).  In  this  case,  we  report  its  cur- 
rent status  to  the  main  program  with  the  flag  (FIREFL).  \ 
FIREFL  is  zero,  a  fire  button  is  1 

Routine 


COM 

cooo 
cooo 


cooo 
cooo 
cooo 


cooo 
cooo 


SCREEN 

1024 

ZP 

251 

SCCODE 

81 

33 

3 
0 

LEFUM 

£ 

BOTLIM 

RIGLIM 

39 

XSTPOS 

19 

YSTPOS 

11 

CHROUT 

65490 

CIAPRA 

56320 
162 

LSTX 

198 
197 

COOO  A9  93 

C002  20  D2  FF 

C005  A9  13 

C007  8D  C3  CO 

COOA  A9  0B 

C00C  8D  C4  CO 

C00F  A9  01 

C011  8D  C5  CO 

CO  14  AD  C4   CO  MOVE 

C017  85  FB 

CO  19  OA 

C01A  OA 

C0IB  65  FB 


*147 

CHROUT 

#XSTPOS 

XPOS 

*YSTPOS 

YPOS 

#1 

FIREFL 
YPOS 

ZP 


;  starting  screen  location 

;  screen  code  for  ball  character 

;  color  cyan 

;  top  row  of  screen 

;  first  column  on  left 

;  bottom  row  ol  screen 

;  last  column  on  right 

;  column  20  starting  position 

;  row  12  starting  position 

;  data-port  register  A 

:  low  byte  of  jiffy  clock 

;  MDX  =  208  on  the  128— number  of 

;  characters  in  keyboard  buffer 

;  LSTX  =  213  on  the  128— matrix  coordinate 

>•  for  last  key  pressed 

;  Draw  with  joystick  1  or  2.  Clear  screen  with 
;  fire  button.  Quit  on  E  key. 
:  clear  the  screen 

i  initialize  starring  position,  column 
.-  and  row 


ADC  ZP 


:  gel  row  number 

;  And  multiply  it  by  40. 

:  mult/T'  'em^°™rily 

;  add  to  row  (carry  cleared  here  by  lasl  ASL) 
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JOY2TO 


C01D  85  FB 

COIF  A9  OQ 
85  FC 


STA  ZP 


LDA 


FC 
FB 

C029  26  FC 
C02B  06  FB 
C02D  26  FC 
C02F  A5  FB 
C031  6D  C3  CO 
C034  85  FB 
C036    A9  00 

C03C  18 
C03D  A9  00 


C043  85  FD 

C045  A9  04 

C047  65  FC 

C049  85  FC 

C04B  49  DC 

C04D  85  FE 

C04F  AO  00 


C05! 
C053 
C055 
C057 
C059 


A9 
91 


03 
FD 


A9  51 

91  FB 

A9  02 

65  A2 

C05D  C5  A2 

C05F    DO  FC 

20  74 

AD  C5 

FO  97 

A9  00 

85  C6 

C06D  A5  C5 

C9  OE 

DO  Al 
60 


DELAY 


C061 
C064 
C067 
C069 


CO 
CO 


C06F 
C071 
C073 


BUFCI.R 


MATGET 


exit 


C074  AD  01    DC  JOY2TO 

C077  2D  00  DC 

C07A  4A  UP 

C07B  BO  OD 

C07D  AD  C4  CO 

C080  C9  00 

C082  FO  3E 

C084  CE  C4  CO 

C087  4C   C2  CO 

C08A  4A  DOWN 

C08B  BO  OD 

C08D  AD  C4  CO 

C090  C9  18 

C092  FO  2E 

C094  EE   C4  CO 


CLC 
LDA 
ADC 
STA 
STA 


STA 

LDY 

LDA 

STA 

LDA 

STA 

LDA 

ADC 

CMP 

BNE 

JSR 

LDA 

BEQ 

LDA 

STA 

LDA 

CMP 

BNE 

RTS 


LDA 

AND 

LSR 

BCS 

LDA 

CMP 

BEQ 

DEC 

JMP 

LSR 

BCS 

LDA 

CMP 

BEQ 

INC 


#<SCREEN 

ZP 

ZP 

ZP+2 


LDA  #>SCREEN 

ADC  ZP+1 

STA  ZP+1 

EOR  *$DC 


ZP+3 
#0 

#COLVAL 

(ZF+2),Y 

#SCCODE 

(ZP),Y 

#2 

HFFLO 
JIFFLO 
DELAY 
JOY2TO 
FIREFL 
CLRCHR 
#0 


C1APRA+1 
CIAPRA 

DOWN 

YPOS 

#TOPLlM 

EXITJS 

YPOS 

EXITJS 

LEFT 

YPOS 

#BOTLIM 

EXITJS 

YPOS 


;  store  result 
;  Multiply  ZP  hy  8  (two-byte  i 
:  dear  high  byte  of  ZP 

f  double  ZP,  low  byte  firs! 

i  then  high  byte 

:  double  ZP  two  more  times 


:  now  add  column  number 

:  (carry  cleared  by  last  ROL  ZP+1) 


;  and  store  high  byte 

;  Add  in  start  of  the  screen. 

;  for  addition 

;  get  low  byte  of  screen  offset 

;  add  in  current  position,  low  byte 

;  store  low-byte  result  for  screen  position 

;  It's  also  the  low-byte  result  for  color  RAM 


;  get  high  byte  of  screen  offset 
;  add  in  high  byte  of  position 
;  and  store  high-byte  result 
;  effectively  i 


:  store  high- 
;  as  an  i  ' 
;  get  the  character  color 
;  store  color  for  ball  in  color  RAM 
;  get  the  screen  code 
;  store  the  ball  to  the  screen 
j  for  delay  of  two  jiffies 
;  add  two  to  low  byte  of  ji 
;  wait  for  two  jiffies 

j  check  both  joysticks 
;  check  fire  buttons 
;  if  either  fire  button  i 
;  clear  keyboard  buffer 


i  get  last  key  pressed 

;  is  it  E  for  exit? 

;  if  not  E,  then  go  10  MOVE 

;  if  E  pressed,  then  exit  the  pi 

:  Total  joystick  conditions, 

;  read  joystick  1 

;  AND  in  joystick  2  reading 

;  check  up  move 

;  not  up 

;  handle  up,  get  row 

J  compare  to  the  top 

;  lop  limit  reached 

;  move  up  1 

;  and  leave 

;  check  down  move 

;  not  down 

:  handle  down,  get  row 
;  compare  to  screen  bottom 
,-  bottom  limit  reached 
;  move  down  t 


JOY2TO 


C097    4C  C2  CO 
C09A   4A  LEFT 

C09B    BO  QD 
C09D   AO  C3  CO 

COAO   C9  00 

CDA2  FO  IE 

C0A4   CE  C3  CO 

C0A7  4C  C2  CO 
COAA  4A 

COAB  BO  OD 
COAD  AD  C3  CO 

COBO    C9  27 

C0B2    FO  OE 

C0B4  EE  C3  CO 

C0B7    4C  C2 
COBA  4A 

COBB   BO  05 

COBD  A9  00 

COBF  8D  CS  CO 
C0C2  60  EXITJS 


FIRE 


C0C3  00 


XP05 


JMP 

EXITJS 

LSR 

BCS 

RIGHT 

LDA 

XPOS 

CMP 

#LEFLIM 

BEQ 

EXITJS 

DEC 

XPOS 

JMP 

EXITJS 

LSR 

BCS 

FIRE 

LDA 

XPOS 

CMP 

#RIGLIM 

INC 

EXITJS 

XPOS 

JMP 

EXITJS 

LSR 

BCS 

EXITJS 

IDA 

#0 

STA 
RTS 

FIREFL 

.BYTE  0 

n\.~n:  r. 

.BYTE 

« 
1 

;  and  leave 

;  check  left  move 

;  not  left 

;  handle  left,  get  column 

;  compare  to  left  limit 

;  left  limit  reached 

;  move  left  1 

;  and  leave 

;  check  right  move 

;  not  right 

;  handle  right,  get  column 

;  compare  to  right  limit 

I  right  limit  reached 

,-  move  right  1 

;  and  leave 

;  check  fire  buttons 


;  we're  finished 

:  ^ 

;  current 
;  current  row 
;  n 

;  pushed  if  zero 


See  also  FLREBT,  JOY2SE,  JOYSTK. 
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You  can  add  this  routine  to  a  program  whenever  you  need  to 
move  a  character  about  the  screen  with  one  of  the  joysticks. 
Before  calling  JOYSTK,  define  the  border  limits  for  the 
character  in  the  equates  and  load  the  accumulator  with  the 
joystick  number  (1  or  2). 


Prototype 

%  Read  the  contents  of  the  appropriate  joystick  data  register 
into  the  accumulator. 

2.  After  performing  an  LSR,  check  the  carry  flag. 

3.  If  carry  is  dear,  decrement  the  row  position  for  the  charac- 
ter, provided  that  you  haven't  reached  the  upper  limit  of 
the  screen,  and  return  to  the  main  program.  If  the  upper 
limit  has  been  reached,  simply  exit  the  routine. 

4.  If  carry  is  set  in  step  2,  it  indicates  that  the  joystick  is  not 
moved  in  an  upward  direction.  Repeat  step  2  to  check  for 
downward,  then  left,  and  then  right  movement. 

5.  Finally,  check  the  fire  button  bit.  If  it  is  set,  exit  the  routine. 

6.  Otherwise,  store  a  zero  to  a  fire  button  flag  (FIREFL)  and 
RTS  to  the  main  program. 

Explanation 

The  example  program  is  almost  identical  to  the  program  found 
under  JOY2TO.  Likewise,  the  two  joystick  routines  themselves 
are  quite  similar. 

The  JOY2TO  program  POKEs  the  character  moved 
around  the  screen  along  with  its  color  byte.  This  one  prints  it 
with  CHROUT  after  it  has  been  positioned  with  PLOTCR. 
TXTCOL  is  used  to  color  it.  In  the  example  program,  the 
character  moved  by  joystick  2  is  the  checked  block- 
Since  printing  to  the  last  screen  position  causes  the  screen 
to  scroll,  we  limit  the  row  position  here  to  the  first  24  rows 
(0-23). 

The  status  of  the  fire  button  is  returned  to  the  calling  pro- 
gram by  using  the  flag  FIREFL.  FIREFL  is  zero  when  the  fire 
'      ;   '  Jown;  otherwise,  it's  one. 
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JOYSTK 


Note:  In  using  PLOT,  remember  that  the  row  position 
loads  into  .X  and  the  column  into  .Y.  Also,  be  sure  to  clear  the 
before  you  JSR  to  PLOT. 


Routine 

cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 


cooo 


CHAR         =  166 
COLVAL       -  4 
TOPLIM       =  0 


BOTL1M 

RIGUM 

XSTPOS 

YSTPOS 

CHROUT 

PLOT 


= 


39 
19 
11 

65490 
65520 
56320 


cooo 

LSTX 

197 

cooo 

COLOR 

— 

646 

cooo 

A9  93 

CLRC  HR 

LDA 

#147 

C0O2 

20  D2 

FF 

JSR 

CHROUT 

C005 

A9  13 

LDA 

*Xb  1  FOb 

C0O7 

8D  94 

CO 

STA 

XPOS 

COOA 
COOC 

A9  OB 

LDA 

CYSTPOS 

8D  95  CO 

YPOS 

COOF 

con 

A9  01 
8D  96 

#1 

CO 

STA 

FIREFL 

C014 

A9  04 

LDA 

•COLVAL 

C016 

8D  86 

02 

TXTCOL 

STA 

COLOR 

C019 

AC  94 

CO 

MOVE 

LDY 

XPOS 

C01C 

AE  95 

CO 

LDX 

YPOS 

COIF 

18 

PLOTCR 

CLC 

C020 

20  FO 

FF 

ISR 

PLOT 

C023 

A9  A6 

LDA 

"CHAR 

C025 

20    D2  FF 

JSR 

CHROUT 

C028 

A9  02 

LDA 

#2 

C02A 

65  A2 

ADC 

JIFFLO 

C02C 

CS  A2 

DELAY 

CMP 

JTFFLO 

C02E 

DO  FC 

BNE 

DELAY 

C030 

A9  02 

LDA 

C032 

20  45 

CO 

JSR 

JOYSTK 

C035 
C038 

AD  96 

CO 

LDA 

CLRCHR 

FO  C6 

BEQ 

C03A   A9  00 

BUFCLR 

LDA 

#0 

C03C 

85  C6 

STA 

NDX 

C03E 

A5  C5 

MATGET 

LDA 

LSTX 

C040 

C9  OE 

CMP 

#14 

C042 
C044 

DO  D5 

BNE 

MOVE 

60 

EXIT 

RTS 

C045 

29  01 

JOYSTK 

tax' 

#1 

C047 

AA 

C1APRA,X 

C048 

BD  00 

DC 

LDA 

;  checkered  block  character 

;  color  purple 

;  top  row  of  screen 

:  one  row  up  from  bottom  of  screen 
;  last  column  on  right 
:  column  20  (starting  position) 
;row  :- 


|  low  byte  of  jiffy  clock 
;  NDX  =  208  on  the  128 — number  of 
;  characters  in  keyboard  buffer 
;  LSTX  =  213  on  the  128 — matrix  coordinate 
;  for  last  key  pressed 

;  COLOR  -  241  on  the  128— current  text 


i  Draw  with  joystick  2.  Clear  screen  when 
j  fire  burton  pressed-  Quit  on  E  key. 
;  clear  the  screen 

;  initialize  starting  position,  column, 
;  and  row 

.  also  clear  fire  burton  flag 


;  column  position 
;  row  position 

:  position  the  cursor  at  (.Y..X) 
.-  position  cursor 
;  get  the  character  to  print 
;  and  print  it 
;  for  delay  of  two  jiffies 
;  add  2  to  low  byte  of  jiffy  clock 
;  wait  for  two  jiffies 

;  joystick  number 
;  read  joystick  2 
;  check  fire  button 
;  if  fire  button  pressed,  c 
;  clear  the  keyboard  buffer  (if  joystick  1  is 
:  used) 

;  get  last  key  pressed 
;  is  it  E  for  exit? 
;  if  not  E, 
;  if  E  pressed. 


number  in  -A. 


;  Enter  with  the  jo; 
;  determine  j 
;  put  offset  In  .X 
;  read  joystick  1  (.X  -  1)  or  2  (.X  -  0) 


JOYSTK 


C04B 

C04C 

C04E 

C051 

C053 

C05S 

C058 

C05B 

C05C 

C05E 

C06T 

C063 

C065 

C068 

C06B 

C06C 

C06E 

C07I 

C073 

C07S 

C078 

C07B 

C07C 

C07E 


C088 
C08B 
C06C 
C08E 


4A 

BO  OD 

AD  95 

C9  00 

FO  3E 

CE  95 

4C  93 
4A 

BO  OD 

AD  95 

C9  17 

FO  2E 

EE  95 

4C  93 
4A 

BO  OD 

AD  94 

C9  00 

FO  IE 

CE  94 

4C  93 
4A 

BO  OD 

AD  94 

C9  27 

FO  OE 

EE  94 

4C  93 
4A 

BO  05 

A9  00 

8D  % 
60 


UP 


GO 


CO 
CO 


DOWN 


CO 


C094  00 
C095  00 

am  oi 


CO 
CO 


LEFT 


CO 


CO 
CO 


RIGHT 


CO 


FIRE 


CO 


XPOS 

ypos 


LDA  YPOS 

cmp  rropiiM 

BEQ  EXITJS 

DEC  YPOS 

JMP  EXITJS 
LSR 


LDA 

CMP 

BEQ 

INC 

JMP 

LSR 

BCS 

LDA 

CMP 

BEQ 

DEC 

JMP 

LSR 

BCS 

LDA 

CMP 


#BOTLIM 

Exrrjs 

YPOS 


RIGHT 

XPOS 

#LEFLIM 

Exrrjs 


FIRE 
XPOS 
#RIGLIM 
EXITJS 


;  check  up  move 
;  not  up 

;  handle  up,  get  row 
;  compare  to  the  top 
;  top  limit  reached 
;  move  up  one 
;  and  leave 
;  check  down  move 
;  not  down 

;  handle  down,  get  row 

J  compare  to  screen  bottom 

;  bottom  limit  reached 

;  move  down  one 

;  and  leave 

;  check  left  move 

;  not  left 

;  handle  left,  get  column 

;  compare  to  left  limit 

;  left  limit  reached 

;  move  left  one 

;  and  leave 

;  check  right  move 

;  not  right 

;  handle  right,  get  column 

i  compare  to  right  limit 

;  right  limit  reached 

i  move  right  one 

;  and  leave 

;  check  fire  button 

;  not  up,  down.  left,  right,  or  fire 

;  fire  button  pressed,  so  set  flag 

;  we're  finished 

;  current  column  position 
;  current  row 

.•fire  button  not  pushed  if  equal  to  1, 

;  if  0 


See  also  FIREBT,  JOY2TO,  JOY2SE. 
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Name 

Wait  for  a  1 

Description 

KEYDEL  causes  a  program  to  j 


until  a  key  is 


Prototype 

1.  Clear  the  keyboard  buffer  by  storing  a  zero  in  I 

2.  Repeatedly  JSR  GETIN  until  the  accumulator  contains  a 
nonzero  value,  indicating  a  key  has  been  pressed. 

3.  When  this  happens,  return  to  the  main  program. 

Explanation 

This  routine  is  quite  simple.  KEYDEL  clears  the  keyboard 
buffer  and  then,  using  the  Kernal  routine  GETIN,  fetches  a 


In  the  example  program,  we  clear  the  screen,  print  a  mes- 
sage, and  then  call  KEYDEL.  Pressing  a  key  allows  the  pro- 
gram to  continue.  At  this  point,  the  screen  is  cleared  again. 

Note:  If  you  need  to  know  the  actual  key  that  was  pressed 
while  in  KEYDEL,  the  accumulator  will  contain  its  ASCII 
value  upon  returning  from  the  routine. 


Routine 


I  on  the  128— number  of 


cooo 
cooo 


GETIN 

PLOT 

CHROUT 


COOO    20  28  CO 

C003    A2  17 

C005    AO  07 
18 

20  F0  FF 


JSR 
LDX 


C007 
C008 


PLOTCR  CLC 


C00B  AO  00  LDY 

C00D  B9  2D  CO   PRTLOP  LDA 

C010  F0  06  BEQ 

C012  20  D2  FF  JSR 

C015  C8  INY 

C016  DO  F5  BNE 

C018  20  IE  CO  PRTEND  JSR 

C01B  4C  28  CO  IMP 


65508 
65520 
65490 


CLRCHR 

#23 
«7 

PLOT 
#0 

MSGSTR.Y 

PRTEND 

CHROUT 

PRTLOP 
KEYDEL 
CLRCHR 


in 


;  Print  a  message  and  wail  for  a  response. 
;  Then  clear  the  screen. 
;  dear  the  screen 

;  ,w?ilrfolurth  row 

I  eighth  column 

:  to  position  cursor  at  (7.23) 

;  position  cursor 

j  as  an  index  in  PRTLOP 

;  get  a  character  from  the  message  string 

;  quit  printing  on  zero  byte 

;  and  print  it 

:  for  next  character 

;  and  continue  printing 

;  wait  for  a  keypress 

;  dear  the  screen  and  RT5 

;  Clear  the  keyboard  buffer  and  wait  for  a 
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KEYDEL 


C01E  A9  00         KEYDEL     LDA    #0  ,  dear  the  keyboard  buffer  (see  BUFCLR) 

C020  85    C6  STA  NDX 

C022  20    E4  FF    KEVLOP      JSR  GETIN 

C025  F0    FB  BEQ  KEYIOP 

C027  60  RTS 

C028  A9  93  CLRCHR     LDA     #147  ;  dear  the  screen 

C02A  4C   D2  FF  JMP      CHROUT         ;  and  RTS 

C02D  50   52  45    MSGSTR     .ASC    'TRESS  ANY  KEY  TO  CONTINUE" 

C046  00  BYTE  0  :  terminator  byte 

See  also  BYT1DL,  BYT2DL,  LNTDEL,  JIFDEL,  TOD1DL. 
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LOADAB 


Name 

Load  a  program  (ML  or  BASIC)  to  the  location  from  which  it 
Description 

LOADAB  performs  an  absolute  load  of  an  ML  or  BASIC  pro- 
gram from  disk.  Thus,  a  program  will  be  loaded  into  memory 
at  the  same  address  from  which  you  saved  it.  If  you  wish  to 
relocate  the  program  as  you  load  it,  use  LOADBS  or  LOADRL. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  Set  up  the  parameters  as  1,8,1  for  an  absolute  load  of  the 
file  (SETLFS,  SETNAM). 

3.  On  the  128,  call  SETBNK  to  specify  the  bank  where  the 
program  is  to  be  loaded  and  the  bank  containing  its 
filename. 

4.  Load  .A  with  zero  to  specify  a  load. 

5.  JSR  to  the  Kernal  LOAD  routine. 

6.  If  the  program  being  loaded  is  in  BASIC,  store  .X  and  .Y  in 
the  end-of-BASIC  text  pointer  (VARTAB  on  the  64,  TEXTTP 
on  the  128). 

Explanation 

This  routine,  as  written,  relies  on  the  file  header  information 
on  the  disk  to  load  the  program  named  PROGRAM.  A 
secondary  address  of  1  causes  the  load  to  be  absolute — that  is, 
to  the  address  specified  in  the  program  file  itself. 

Before  calling  the  Kernal  LOAD  routine,  place  a  zero  in 
the  accumulator.  This  tells  the  Kernal  LOAD  routine  to  load 
rather  than  to  verify  the  program.  Upon  returning  from  LOAD, 
.X  and  .Y  contain  the  low  and  high  bytes,  respectively,  of  the 
ending  address  of  the  file.  For  a  64  BASIC  program,  these 
should  be  placed  in  VARTAB,  the  rwo-bvte  end-of-BASIC  text 
pointer  at  45  (the  equivalent  pointer  on  the  128  is  TEXTTP  at 
4624). 

To  use  this  routine  to  load  your  own  BASIC  programs, 
substitute  for  PROGRAM  the  name  of  the  program  you  want 
to  load.  If  you  need  to  use  the  routine  to  load  an  ML  program 
where  it  was  saved,  substitute  the  ML  program  name  for  PRO- 
GRAM. And  since  the  program  is  not  in  BASIC,  you  can  re- 
move the  STX  VARTAB  (STX  TEXTTP  on  the  128)  and  STY 
VARTAB +  1  (STY  TEXTTP  +  1  on  the  128)  instructions  follow- 
ing the  JSR  LOAD. 
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Note:  LOADAB  as  presented  lacks  disk  error  checking. 
You  can  easily  add  this  feature  if  you  like  by  incorporating  the 
subroutine  DERRCK  into  the  code.  Place  DERRCK  just 
before  FTLENM  as  noted  in  the  source  listing.  Jump  to 
DERRCK  immediately  after  the  JSR  LOAD  instruction. 
Furthermore,  be  sure  to  open  the  error  channel  (15)  at  the 
beginning  of  the  program  (also  noted  in  the  source  listing). 

On  the  128,  you  must  define  and  include  BNKNUM  and 
BNKFNM  at  the  end  of  the  program. 


cooo 
cooo 
cooo 


SETLFS  = 

SETNAM  - 

LOAD  = 

VARTAB  * 


65466 
65469 
65493 
45 


COOO 


cooo 


COOO  A9  01 

C002  A2  08 

C004  AO  01 

C006  20  BA  FF 


C00B  A2  1C 

C00D  AO  CO 

COOF  20  BD  FF 

C012  A9  00 

C014  20  D5  FF 


C017    86  2D 


LDA  #1 
LDX  #8 
LDY  #1 


LDA  #FNLENG 

LDX  #<1LENM 

LDY  #>ILENM 

JSR  SETNAM 

LDA  #0 

JSR  LOAD 


STX  VARTAB 


;  end-of-BASIC  pointer — substitute 

:  TEXTTP  -  4624  for  the  128 

;  SETBNK  =  65384;  Rental  bank  number  for 

;  data  and  filename  (128  only) 

;  MMUREG  =  65280;  MMU  configuration 

;  register  (128  only) 

,-  Load  BASIC  (or  ML)  program  into  memory 
;  where  it  was  saved. 

;  Open  channel  1 5  here  if  you  include  error 


;  LDA  #0;  set  bank  15  (128  only) 
;  STA  MMUREG;  (128  only) 
j  logical  file  1 

;  device  number  for  disk  drive 

S  secondary  address  of  1  causes  absolute 

;  load 

;  set  for  absolute  load 

;  Include  the  following  three  Instructions 

;  for  the  128  only. 

;  LDA  BNKNUM;  bank  for  program 

;  LDX  BNKFNM;  bank  containing  filename 

;  JSR  SETBNK 

;  length  of  filename 

;  address  of  filename 

;  set  up  filename 
;  flag  for  load 
;  load  the  file 

;  JSR  DERRCK;  insert  for  disk  error 


I  in  next  two 
j  instructions  to  TEXTTP. 
;  store  end-of-BASIC  program  address  into 
;  pointer 
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C019    84    2E  STY     VARTAB+      ;  (these  two  Instructions  can  be  deleted  for 

;  ML  program  loads) 

C01B    60  RTS 

; 

;  Insert  DERRCK  I 
;  checking 

C01C  30  3A  50  F1LENM  ASC  "0:PROGRAM";  insert  your  filename  here  (<=16  characters) 
C025  FNLENG      =         •-FILENM         :  length  of  filename 

;  Include  the  next  two  variables  for  the 

;  1™ 


JM  BYTE  0;  bank  number  to  load 

Into 

,  .BYTE  0;  bank  number  where 

;  filename  is  located 


See  also  LOADBS,  LOADRL. 


LOADBS 


Load  a  BASIC  program  into  the  current  BASIC  text  area 
Description 

LOADBS  performs  a  relative  load  of  a  BASIC  program  from 
disk.  During  this  process,  the  load  address  in  the  file  header 
on  the  disk  is  ignored.  Instead,  the  program  loads  into  the 
area  of  memory  currently  set  aside  for  BASIC  text. 

If  you  want  to  relocate  BASIC  prior  to  loading  the  pro- 
gram, or  if  you  need  to  load  an  ML  program  in  this  way,  see 
LOADRL. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  Set  up  the  parameters  as  1,8,0  for  a  relative  load  of  the  file 
(SETLFS,  SETNAM). 

3.  On  the  128,  call  SETBNK  to  specify  the  bank  in  which  to 
load  the  program  and  the  bank  containing  the  program 
filename. 

4.  Store  zero  in  A  to  specify  a  load. 

5.  Load  .X  and  .Y  with  the  starting  address  of  BASIC  from 
TXTTAB  . 

6.  JSR  to  LOAD. 

7.  Store  .X  and  .Y  into  the  end-of-BASIC  text  pointer. 

8.  Relink  the  tokenized  BASIC  program  text. 

Explanation 

This  routine,  as  written,  loads  the  BASIC  program  named 
"BASIC  PROGRAM"  into  the  BASIC  text  area.  A  secondary 
address  of  zero  insures  that  the  address  in  the  file  header  will 
be  overlooked  when  the  program  is  positioned  in  memory. 

Before  JSRing  to  LOAD,  the  accumulator  should  be  set  to 
zero  to  load  rather  than  to  verify  the  file.  The  X  and  Y  reg- 
isters must  contain  the  load  address  of  the  program.  Since 
we're  loading  the  program  in  the  BASIC  workspace,  we  can 
take  this  address  from  the  two-byte  pointer  for  the  start-of- 
BASIC  text  area,  TXTTAB. 

Upon  returning  from  the  Kernal  LOAD,  .X  and  .Y  contain 
the  ending  address  of  the  program  (plus  1).  Complete  the  rou- 
tine by  storing  these  in  the  end-of-BASIC  text  pointer, 
VARTAB  (TEXTTP  for  the  128),  and  relinking  all  program  lines 
with  the  BASIC  ROM  routine  LINKPG. 

Note:  LOADBS  currently  lacks  disk  error  checking.  You 
can  add  this  feature  if  you  like  by  incorporating  the  subroutine 
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DERRCK  into  the  code.  Place  DERRCK  just  before  FILENM 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  the  JSR  LOAD  instruction.  Be  sure  to  open  the  error 
channel  (15)  at  the  beginning  of  the  program  (also  noted  in 
the  source  listing). 

On  the  128,  you  must  define  and  include  BNKNUM  and 
BNKFNM  at  the  end  of  the  program. 

Routine 


cooo 
cooo 
cooo 
cooo 

cooo 

cooo 
cooo 

cooo 


SETLFS 


VARTAB 
UNKPG  - 


65466 
65469 
65493 
43 

45 

41291 


f  TXTTAB  =  45  for  the  1 28 — start-of-BASIC 
;  pointer 

;  end-of-BASIC  pointer — substitute 

;  TEXTTP  -  4624  on  the  128 

;  UNKPC  =  20303  for  the  128 

:  SETBNK  -  65384;  Kernal  bank  number  for 

;  data  and  filename  (128  only) 

.  MMUREG  =  65280;  MMU  configuration 

I  register  (128  only) 

;  Load  BASIC  program  into  normal  BASIC 
;  memorv. 


;  Open  channel  15  here  if 
i  error 


COOO 


COOO  A9  01 

C002  A2  08 

C004  AO  00 

C006  20  BA  FF 


C01B  86  2D 
C01D  84  2E 


LDA  #1 
LDX  #8 
LDY  #0 


C009 

A9  OF 

LDA 

#FNLENG 

COOB 

A2  23 
AO  CO 

LDX 

#<ILENM 

C00D 

LDY 

#>ILENM 

C00F 

20    BD  FF 

JSR 

SETNAM 

C012 

A9  00 

LDA 

#0 

C014 

A6  2B 

LDX 

TXTTAB 

C016 

A4  2C 

LDY 

TXTTAB+ 

C018 

20    D5  FF 

JSR 

LOAD 

STX  VARTAB 
STY     VARTAB + 


include  disk 


j  LDA  #0;  set  bank  15  (128  only) 
;  STA  MMUREG;  (128  only) 
;  logical  file  1 

;  device  number  for  disk  drive 

y  address  of  zero  causes  relative 


■  J 

.'  Include  the  following  three  instructions 
;  for  the  128  only. 

;  LDA  BNKNUM;  bank  for  program 

;  LDX  BNKFNM;  bank  containing  filename 

;  JSR  SETBNK 

;  length  of  filename 

;  address  of  filename 

;  set  up  filename 
;  flag  for  load 

;  low  byte  of  start-of-BASIC  address 
;  high  byte  of  start-of-BASIC  address 
;  load  program  at  the  start  of  BASIC 

;  JSR  DERRCK;  insert  for  disk  error 
;  checking 

; 

;  For  the  128,  change  VARTAB  In  next  two 
;  Instructions  to  TEXTTP. 
;  store  end-of-BASIC  program  address  into 
;  pointer 
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am 


COIF  20 
C022  60 


33  AS 


RTS 


J(  line*  of  tokenized  BASIC  program 


;  Insert  DERRCK  here  if  you  are  Including 
;  error  checking. 


3A  42    FTLENM       .ASC     "0:BASIC  PROGRAM" 

.-  substitute  your  filename  here  (<=  16 


C032 


FNLENG 


;  length  of  filename 
;  Include  the  next  two  variables  for  the 
;  128  only. 

;  BNKNUM  .BYTE  0;  bank  number  to  which 
;  program  is  to  be  loaded 
:  BNKFNM  .BYTE  0;  bank  number  where 
;  filename  is  located 


LOADAB,  LOADRL. 
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Name 

Load  a  BASIC  or  ML  program  at  a  designated  memory  address 
Description 

LOADRL  is  quite  versatile.  With  it,  you  can  load  a  BASIC  or 
ML  program  from  disk  to  any  memory  location  specified.  Dur- 
ing this  process,  known  as  a  relative  load,  the  computer  takes 
the  load  address  from  the  X  and  Y  registers  rather  than  from 


Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  Set  up  the  parameters  as  1,8,0  for  a  relocating  load  of  th 
file  (SETLFS,  SETNAM). 

3.  On  the  128,  call  SETBNK  to  specify  the  bank  where  the 
program  is  to  be  loaded  and  the  bank  containing  its 


4.  Store  zero  in  .A  to  specify  a  load. 

5.  Store  zero  at  the  start-of-BASIC  address  (skip  this  step  for 
ML  loads). 

6.  Load  .X  and  .Y  with  the  load  address  (LOADAD). 

7.  Store  this  address  in  the  start-of-BASIC  pointer,  TXTTAB 
(skip  this  step  for  ML  loads). 

8.  JSR  to  the  Kernal  LOAD  routine. 

9.  Store  the  contents  of  .X  and  .Y  in  the  end-of-BASIC  text 
pointer  (skip  this  step  for  ML  loads). 


load  your  own  BASIC  program,  just  substitute  its  filename  for 
"BASIC  PROGRAM"  and  specify  its  load  address  as  LOADAD 
in  the  equates.  With  the  few  additional  changes  given  below, 
this  same  routine  will  just  as  easily  perform  an  ML  program 
load. 

For  all  loads,  whether  BASIC  or  ML,  a  zero  must  be 
placed  in  the  accumulator  prior  to  JSRing  to  LOAD.  This  in- 
structs the  Kernal  LOAD  routine  to  load,  rather  than  to  verify, 
the  program  specified.  If  we're  doing  a  BASIC  program  load, 
as  in  the  example  below,  a  zero  must  be  placed  in  the  byte 


preceding  the  load  address  (or  START,  calculated  in  the 
equates).  Since  .A  already  contains  a  zero,  we  simply  store  this 
to  START. 

Furthermore,  with  a  BASIC  load,  the  start-of-BASIC  text 
pointer  (TXTTAB)  must  be  set.  Since  the  X  and  Y  registers 
contain  the  load  address  (LOADAD)  for  the  program  prior  to 
JSR  LOAD,  we  can  store  these  to  TXTTAB  at  this  time.  This 
step  is  unnecessary  with  ML  loads. 

After  executing  the  Kernal  LOAD  routine,  you're  finished 
if  it's  an  ML  program  you're  loading.  But  if  you're  doing  a 
BASIC  load  (as  in  the  example  routine),  you  must  store  .X  and 
.Y — which  contain  the  ending  address  of  the  program  (plus 
1)— into  VARTAB  (the  two-byte,  end-of-BASIC  text  pointer) 
and  relink  all  program  lines  with  LINKPR.  If  you're  working 
on  a  128,  change  VARTAB  to  TEXTTP. 

Note:  LOADRL  currently  lacks  disk  error  checking.  You 
can  easily  add  this  if  you  like  by  incorporating  the  subroutine 
DERRCK  into  the  code.  Place  DERRCK  just  before  FTLENM 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  the  JSR  LOAD  instruction.  Be  sure  to  open  the  error 
channel  (15)  at  the  beginning  of  the  program,  as  noted  in  the 
listing. 

On  the  128,  you  must  define  and  include  BNKNUM  and 
BNKFNM  at  the  end  of  the  program. 


Routine 

cooo 
cooo 
cooo 
cooo 

cooo 
cooo 

cooo 


SETLFS 
SETNAM 
LOAD 
LOADAD 

START 
TXTTAB 


LINKPG 


COOO 


65466 
65469 
65493 
1638S 

LOADAD 
43 


j  memory  location  where  we  want  to  put  the 
:  program 

-1     :  byte  just  prior  to  the  6tart-of-BASlC  text 

;  TXTTAB  -  45  on  the  128— start-of-BASIC 
)  pointer 

45  :  end-of-BASIC  pointer— substitute 

;  TEXTTP  =  4624  for  the  128 

42291  ;  LINKPG  =  20303  on  the  128 

;  SETBNK  =  65384;  Kema!  bank  number  for 
;  data  and  filename  (128  only) 
i  MMUREG  =  65280.  MMU  conf 
;  register  (128  only) 


;  Load  the  program  "BASIC  PROGRAM"  at 
i  16385. 


COOO 


- 


;  LDA  #0;  set  bank  IS  (128  only) 
;  STA  MMUREG;  (128  only) 
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COOO  A9  01 
C002  A2  08 
COM    AO  00 


;  logical  file  1 


COM 

20 

BA  FF 

JSR 

C009 

A9 

OF 

LDA 

COOB 

A2 

2A 

IDX 

COOD 

AO 

CO 

IDY 

COOF 

20 

BD  FF 

JSR 

C012 

A9 

00 

LDA 

COM 

8D 

00  40 

STA 

VI 

COW 

86 

2B 

STX 

C01B 

AO 

40 

LDY 

C01D 

84 

2C 

STY 

COIF 

20 

D5  FF 

ISR 

C022 

86 

2D 

STX 

C024 

2E 

STY 

C026 

20 

33  AS 

JSR 

C029 

60 

RTS 

C02A 

30 

3A  42  FILENM 

.ASC 

j  relocating  load 

;  set  for  relocating  load 

;  Include  the  following  three  instructions 

;  on  the  328  only. 

;  LDA  BNKNUM;  bank  for  program 
;  LDX  BNKFNM;  bank  containing  filename 
I  


;  set  up  filename 
;  flag  for  load 

;  store  a  zero  at  the  start  of  BASIC  (delete 

;  if  loading  ML) 

;  set  the  load  address 

;  set  slart-of-BASIC  pointer  (delete  if 

;  loading  ML) 

;  (also  delete  if  loading  ML) 
;  load  the  file  at  LOAD  AD 

';  JSR  DERF.CK:  Insert  for  disk  error 


FNLENG 


SETLFS 


#FNLENG 

#<FILENM 

#>F1LENM 

SETNAM 

#0 

DAD 


#>LOADAD 

TXTTAB+1 

LOAD 


;  For  the  128,  change  VARTAB  in  the  next 
;  two  instructions  to  TEXTTP. 
;  store  end-of-BASIC  program  address  into 
;  pointer 

;  (delete  for  ML  loads) 
;  relink  lines  of  tokenized  BASIC  program 
;  text  (delete  if  loading  ML) 

; 

;  Insert  DERRCK  here  If  you're  including 
;  error  checking. 

'O-.BASIC  PROGRAM" 

;  substitute  your  filename  here  (<=16 

;  characters) 
•-FILENM         ;  length  of  filename 

;  Include  the  next  two  variables  on  the  128 

;  BNKNUM  .BYTE  0;  bank  number  to  which 
;  program  is  to  be  loaded 
;  B 


I  .BYTE  0;  bank  number  where 
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Name 

Get  a  character  using  the  keyboard  matrix 
Description 

At  times  you  may  want  to  get  a  keypress  while  ignoring  the 
position  of  the  shift  keys  (SHIFT,  CTRL,  and  Commodore 
keys).  For  instance,  suppose  you  wish  to  receive  a  yes/no 
(Y/N)  response  at  some  point  in  your  program.  If  the  user 
happens  to  have  SHIFT  LOCK  down  while  responding,  the  in- 
put will  be  a  graphics  character.  With  MATGET  this  won't 
happen. 

Prototype 

1.  Get  the  keyboard  matrix  value  of  the  last  kev  pressed  from 
the  register  at  197  (213  on  the  128). 

2.  Compare  the  value  with  the  keycode  for  no  key  pressed  (64 


on  the  64;  88  on  the  128). 
3.  If  no  key  has  been  pressed,  get  another  value  from  the 


planation 

This  routine  relies  on  memory  location  197  (213  on  the  128)  to 
provide  a  keycode  for  the  last  key  pressed.  This  location  takes 
its  values  from  the  I/O  register  at  56321  during  every  normal 
interrupt. 

The  keycodes  for  each  key  on  the  64  and  128  are  given  in 
the  table.  The  first  64  (0-63)  keycodes  are  identical  on  the  two 
machines.  Additional  keycodes  have  been  assigned  to  the  extra 
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Key  codes  for  the  64  and  128 


0  =  INST/ DEL 

1  =  RETURN 

2  =  CRSR  right/left 

3  =  f7 

4  =  a 

5  =  f  3 

6  =  f5 

7  =  CRSR  down /up 

8  =  3 

9  =  W 

10  =  A 

11  =  4 

12  =  Z 

13  =  S 

14  =  E 

15  =  Not  used 

16  =  5 

17  =  R 

18  =  D 

19  -  6 

20  =  C 

21  =  F 

22  =  T 

23  =  X 

24  =  7 

25  =  Y 

26  =  G 

27  =  8 

28  =  B 

29  =  H 

30  =  U 

31  -  V 

32  =  9 

Additional  128  Keycodes 

65  =  8  (keypad) 

66  =  5  (keypad) 

67  =  TAB 

68  =  2  (keypad) 

69  =  4  (keypad) 

70  =  7  (keypad) 

71  =  1  (keypad) 

72  -  "ESC 

73  =  +  (keypad) 

74  =  —  (keypad) 

75  =  LINE  FEED 

76  =  ENTER  ( 


33  =  I 

34  =  J 

35  =  0 

36  =  M 

37  =  K 

38  =  O 

39  =  N 

40  =  + 

41  =  P 

42  =  L 

43  =  - 

44  =  . 

45  =  : 

46  =  @ 


49  -  * 

50  =  ; 

51  =  CLR/HOME 

52  =  Not  used 

53  =  = 

54  =  t 

55  =  / 
56=  1 

57  =  - 

58  =  Not  used 

59  =  2 

60  -  Space 

61  =  Not  used 

62  =  Q 

63  =  RUN/STOP 

64  =  No  kev  pressed  (64) 

HELP'(128) 

77  =  6  (keypad) 

78  =  9  (keypad) 

79  =  3  (keypad) 

80  =  Not  used 

81  =  0  (keypad) 

82  =  . (keypad) 

83  =  t  (top) 

84  =  I  (top) 

85  =  -  (top) 

86  =  -  (top) 

87  =  NO  SCROLL 

88  =  No 
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In  the  example  below,  when  an  E  has  been  pressed,  we 
print  it.  This  is  to  show  that  the  E  key  has  been  pressed, 
with  or  without  any  shift  keys  (SHIFT,  CTRL,  and  Com- 
modore keys)  being  held  down. 

Note:  LSTX  is  updated  during  normal  IRQ  interrupts.  If 
you  write  your  own  interrupt  routine  or  perform  an  SEI  to 
turn  off  interrupts,  this  routine  will  not  work  correcdy  (if  at 
all).  In  such  circumstances,  you  should  call  the  Kernal  routine 
SCNKEY  (65439)  to  update  LSTX  before  using  this  routine. 


Routine 

cooo 
cooo 
cooo 


LSTX 

NOKEY 

CHROUT 


MATGET 
WATT 


— 

LDA 
CMP 
BEQ 
CMP 
BNE 
LDA 


197 
64 

65490 


• 

LSTX 

#NOKEY 

WAIT 

#14 

WAIT 

#69 

CHROUT 


.-  LSTX  =  213  on  the  128 
!  NOKEY  -  88  on  the  128 


;  Accept  only  E  as  input  regardless  of  the 
;  positions  of  the  shift  keys. 

;  get  the  last  keypress 

;  compare  to  keycode  for  no  key  pressed 

;  if  no  keypress,  then  wait 

;  keycode  for  E 

;  no  E,  so  get  another  keypress 

;  character  code  for  E  (E  key  was  pressed) 

;  print  il 


f!»S«Ml 


%  CHRGTS, 
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MBU64  (64  only) 


Name 

Move  BASIC  text  area  above  an  ML  program 


The  4K  block  of  memory  at  49152  on  the  64  is  the  most  popu- 
lar area  for  storing  machine  language  programs.  If  your  pro- 
gram calls  for  more  than  one  ML  routine,  you  may  be  forced 
to  position  one  of  the  routines  elsewhere  in  memory. 

Two  alternative  regions  for  locating  ML  routines  are  at  the 
top  or  bottom  of  the  BASIC  text  area.  Assuming  you  choose 
one  of  these  options,  you  often  must  protect  your  ML  code 
from  being  overwritten  by  a  coresident  BASIC  program.  This 
particular  routine  shows  how  to  position  your  ML  programs 
below  BASIC. 

Prototype 

1.  Move  the  address  of  the  end  of  the  BASIC  text  area  (in 
VARTAB)  up  by  one  page  beyond  the  end  of  this  program 
(MBU64  plus  your  ML  program).  Also,  change  the  pointer 
to  the  start  of  BASIC  array  space  (ARYTAB)  and  the  pointer 
to  the  top  of  string  space  (STREND)  so  they  contain  this 
address. 

2.  Store  a  zero  to  the  low  byte  of  TXTTAB  to  make  the  BASIC 
program  start  on  an  even-page  boundary. 

3.  Store  three  zeros  sequentially  beginning  at  the  address 
pointed  to  by  TXTTAB. 

4.  Increment  TXTTAB  by  1. 

5.  Set  the  variable  pointers  (VARTAB,  ARYTAB,  and  STREND) 
address  two  bytes  beyond  the  start  of  BASIC 


to  point  to  an  a 

text  space  (in  TXTTAB)  and  return. 
Explanation 

To  use  MBU64,  place  your  ML  program  at  the  end  of  this  rou- 
tine and  then  assemble  both.  The  code  at  MLB  AS  ($801-$80C) 
provides  you  with  a  one-line  BASIC  program  which  SYSes  to 
the  start  of  MBU64  at  2061.  This  line  reads: 

10  SYS2061 

When  you  run  this  BASIC  program  and  the  SYS  executes, 
MBU64  moves  the  pointer  to  the  start  of  BASIC  program 
space  (TXTTAB)  above  the  end  of  your  ML  program  (any- 
where from  1  to  255  bytes  above). 

At  the  same  time,  several  other  BASIC  pointers  are  al- 
tered, reflecting  the  fact  that  the  BASIC  program  has  been 
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NEWed.  Among  these  are  the  end-of-BASIC  pointer  (VARTAB), 
the  pointer  to  the  start  of  BASIC  array  space  (ARYTAB),  and 
the  start  of  free  RAM  (STREND). 
in  moving  BASIC  up,  remember  that  the  location 
g  the  BASIC  program  text  must  contain  a  zero.  For  in- 
stance, suppose  your  BASIC  program  called  for  a  hi-res  screen 
at  8192.  Since  this  screen  occupies  8K  of  memory,  youH  prob- 
ably want  to  locate  your  BASIC  program  at  16384  or  above. 

If  you  choose  to  place  it  at  16384,  a  zero  must  be  stored 
in  this  first  location  to  mark  the  beginning  of  the  BASIC  pro- 
gram. TXTTAB,  the  start-of-BASIC  pointer,  in  this  instance, 
would  point  to  16385. 

A  BASIC  program  always  ends  with  three  zeros.  The  first 
one  designates  the  end  of  the  last  program  line,  while  the  next 
two  are  the  line  link  bytes.  You  can  merge  two  BASIC  pro- 
grams by  removing  these  last  two  zeros  and  storing  a  second 
BASIC  program  at  this  point  in  memory.  If  you  attempt  this, 
remember  to  relink  the  program  lines  for  the  two  programs 
(by  JSRing  to  LINKPRG  at  42291)  and  adjust  VARTAB, 
ARYTAB,  and  STREND  to  the  end  of  the  second 


TXTTAB 


43 
45 
47 
49 


;  pointer  to  start  of  BASIC  program 
;  pointer  lo  end  of  BASIC  program 
;  pointer  to  start  of  BASIC  array  si 
;  pointer  to  end  of  string  stora°-  = 
;  free  RAM 


0801  OB  08 

0803  OA  00 

0805  9E 

0806  32  30  36 
\  00  00  00 


080D  A6  2E 

080F  E8 

0810  86  2C 

0812  86  2E 

0814  86  30 

0816  86  32 

0818  A9  00 

081A  85  2B 


MLBAS 


-BYTE  11.8 

.BYTE  10,0 

.BYTE  158 

.ASC  "2061" 

.BYTE  0.0,0 


LDX  VARTAB +1 
INX 

SIX  TXTTAB +1 

SIX  VARTAB +1 

STX  ARYTAB +1 

STX  STREND +1 

LDA  #0 

STA  TXTTAB 


;  Move  the  start  of  BASIC  above  your  ML 
:  program.  Progran 
;  line  link  to  2059 
;  line  number 
;  token  for  SYS 
;  SYS  address 
;  end  of  current 
;  text  (0.0) 

;  Move  BASIC  up. 

;  load  the  high  byte  for  the  end  of  BASIC 
;te*t 

;  add  one  to  move  BASIC  up  by  one  page 

;  beyond  this  program 

;  and  reset  all  pointers  to  this  address 


;  Set  low  byte  of  TXTTAB  so  It  points  to 
;  $XX00  (start  of  BASIC 
;  is  now  1-255  bytes  beyond  the  end  of  this 
;  program). 
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0820  88 


0821 
0823 


10  FB 
A2  01 


0825  B6  2B 

0827  E8 

0828  E8 

0829  86  2D 
082B  86  2F 
082D  86  31 
082F  60 


LDY  #2 

STA  (TXTTABl.Y 

DEY 

BPL  ZERLOP 

LDX  #1 

STX  TXTTAB 

INX 

INX 

STX  VARTAB 

STX  ARYTAB 

STX  STREND 
RTS 


;  as  an 

;  pal  three  zero*  in  memory  pointed  to  bv 
; TXTTAB 

;  do  three  zeros 

;  TXTTAB  Increases  by  one  to  $XX01 

;  so  address  pointed  to  by  TXTTAB,  and  on 

;  either  side  are  zeros 

;  increment  .X  twice  since  variables  start 

;  two  bytes  beyond  start  of  BASIC 

;  and  reset  low  byte  of  all  variable  pointers 


; 
; 
;i 
;  here. 


.  routine  you  want  below  BASIC 
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Name 

Move  BASIC  text  area  above  an  ML  program  on  the  128 


're  using  many  ML  routines  simultaneously  on 
au  may  be  forced  to  position  one  or  more  of  these  in  the  nor- 
mal BASIC  text  area  beginning  at  7169.  Of  course,  any  ML 
routines  placed  in  this  area  of  memory  must  be  protected  from 
being  overwritten  by  the  BASIC  program. 

One  solution  is  to  move  the  BASIC  text  up.  This  is  the  ap- 
proach used  here.  By  altering  the  start-of-BASIC  pointer, 
MBU128  lets  you  insert  your  ML  routines  below  a  coresident 
BASIC  program. 


Before  entering  the  routine  (specifically  in  MLBAS),  set  up  a 
BASIC  line  that  will  jump  to  the  beginning  of  MBU128.  This 
line  should  read  as  follows: 

BANK0:SYS(PEEK(45)+PEEK(46)+32) 

Do  not  insert  any  extra  spaces  in  this  line. 

1.  Within  MLB128,  move  the  start  of  BASIC  up  by  one  page 
beyond  the  end  of  the  current  BASIC  program. 

2.  Adjust  the  end-of-BASIC  pointer  (TEXTTP)  to  point  to  this 
address. 

3.  Store  a  zero  to  the  low  byte  of  TXTTAB  (start-of-BASIC 
pointer)  so  that  BASIC  starts  on  an  even-page  boundary. 

4.  Store  three  zeros  sequentially  beginning  at  the  address 
pointed  to  by  TXTTAB. 

5.  Increment  TXTTAB  by  one. 

6.  Store  a  3  into  the  low  byte  of  TEXTTP  since  the  end  of 
BASIC  is  two  bytes  beyond  the  start  of  BASIC  (with  no 
BASIC  program  in  memory)  and  RTS. 

Explanation 

To  use  MBU128,  place  your  ML  program  at  the  end  of  this 
routine  and  then  assemble  both.  The  code  at  MLBAS 
($1C01-$1C1D)  provides  you  with  a  one-line  BASIC  program 
which  SYSes  to  the  start  of  MBU128  at  7201  in  bank  0.  This 
line  reads 

10  B  ANK0:SYS(PEEK(45) +256*PEEK(46> + 32) 

If  you've  previously  used  the  GRAPHIC  command, 
BASIC  will  relocate  to  $4000.  If  this  is  the  case,  you'll  need  to 
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adjust  the  high  byte  for  the  line  link  (currently  at  $1C02)  to  64. 

When  you  run  this  BASIC  program  and  the  SYS  executes, 
MBU128  moves  the  start-of-BASIC  pointer  (TXTTAB)  above 
the  end  of  your  ML  program  (anywhere  from  1  to  255  bytes 
above).  At  the  same  time,  the  end-of-BASIC  pointer  in 
TEXTTP  is  adjusted  to  point  two  bytes  beyond  this.  The  start 
of  BASIC  moves  up  and,  in  the  process,  the  one-line  BASIC 
program  is  NEWed. 

The  memory  location  preceding  the  BASIC  program  text 
must  contain  a  zero.  For  instance,  suppose  you  moved  the 
start  of  a  BASIC  program  to  the  address  8192.  You'd  place  a 
zero  in  8192,  and  TXTTAB,  or  the  start-of-BASIC  pointer, 
would  have  to  point  to  8193. 

A  BASIC  program  always  ends  with  three  zeros.  The  first 


grams  together  by  removing  these  last  two  zeros  and  storing  a 
second  BASIC  program  at  this  point.  If  you  do  this,  be  sure  to 
relink  the  lines  for  the  two  programs  by  JSRing  to  LINKPRG 
at  20303  and  point  TEXTTP  to  the  end  of  the  n« 
program. 


Routine 


45 
4624 


1C01  IF  1C  MLBAS 

1C03  OA  00 

1C05  FE  02 

1C09  9E  28  C2 

ICU  32  35  36 

1C1B  33  32 

1C1D  29  00  00 


1C21  AE  11    12  MBU128 

1C24  E8 

1C25  86  2E 

1C27  8E  11  12 

1C2A  A9  00 

1C2C  85  2D 

1C2E  AO  02 


;  end-of-BASIC  program  pointer 

;  Move  the  start  of  BASIC  above  your  M 
;  program— program  runs  from  BASIC. 
;  line  link  to  7199 
;  line  number 
;  two-byte  token  for  BANK 
:  zero  and  colon 


.BYTE  31.28 

BYTE  10.0 
.BYTE  254.2 

BYTE  48,58 

.BYTE  $9E,$28,$C2.$28,$34,$35.$29,$AA 

;  SYS(PEEK(45)+ 
.BYTE  $32,$35,$36,$AC.SC2,$28.$34,$36,S29,$AA 

;  256*PEEK(46)+ 
.BYTE  51,50  i  offset  of  32  from  start  of  BASIC  text ) 

.BYTE  $29,0,0.0  :  and  three  zeros  for  end  of  BASIC  text 


LDX  TEXTTP+1 
INX 

STX  TXTTAB+1 

STX  TEXTTP+1 

LDA  #0 

STA  TXTTAB 


LDY  #2 


;  Move  BASIC  up. 

f  load  the  high  byte  for  the  end  of  BASIC 
;  text 

;  add  one  to  move  BASIC  up  by  one  page 
;  beyond  this  program 
;  now  reset  the  start- 

;  and  end-of-BASIC  pointers  to  this  address 

;  set  low  byte  of  TXTTAB  so  that  it  point. 
,-  to  SXX00  (start  of  BASIC 
;  is  now  1-255  bytes  beyond  the  end  of  this 
;  program) 

;  as  an  index  in  ZERLOP 
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1C30  91  2D 

1C32  88 

1C33  10  FB 

1C35  A2  01 

1C37  86  2D 

1C39  A2  03 

1C3B  8E  10  12 

1C3E  60 


ZERLOP      STA  (TXTTAB),Y 


DEY 
BPl 
1.DX 
STX 


ZERLOP 
#1 

TXTTAB 


LDX  #3 


STX 
RTS 


TEXTTP 


;  pul  three  zeros  In  memory  pointed  to  by 
;  TXTTAB 

;  do  all  three 

;  TXTTAB  increased  by  one  to  SXX01 

i  so  address  at  TXTTAB  and  on  either  side 

;  contains  a  zero 

;  end  of  BASIC  text  is  two  bytes  beyond 
;  start  of  BASIC 


;  end  of  the  routine  to  move 


memory 


;  Pul  the  Ml  routine  you  v 
;  here 


MELODY 


Name 

Tune  player 

Description 

MELODY  provides  a  general  framework  for  playing  music.  By 
changing  certain  parameters  within  this  routine,  you  can  adapt 
it  to  play  any  number  of  simple  tunes. 

Prototype 

h  Before  entering  this  routine,  set  up  a  table  of  notes  which 
index  values  from  a  two-byte  frequency  table  (NOTES),  a 
table  containing  the  relative  durations  for  each  note  in 
NOTES  (NDURTB),  and  a  table  of  the  two-byte  frequencies 
needed  for  the  tune  (FREQTB). 

2.  Set  a  note  counter  (NOTENM)  to  zero. 

3.  Clear  the  SID  chip  with  SIDCLR  and  select  the  necessary 
SID  chip  parameters  (volume,  attack/decay,  and 
sustain/release). 

4.  In  a  loop  (NOTELP),  load  the  frequency  for  each  note  and 
store  it  in  the  frequency  registers  for  voice  1. 

5.  Select  a  waveform  (sawtooth  in  the  example)  and  gate  it. 

6.  Load  the  note's  duration  and  cause  a  delay  based  on  it. 

7.  Start  the  release  cycle  by  ungating  the  waveform. 

8.  Increment  the  note  counter  and  determine  if  all  notes  have 
played.  If  so,  RTS.  Otherwise,  continue  NOTELP  to  play  the 
next  note. 

Explanation 

MELODY  plays  a  song  by  picking  out  notes  from  a  table 
containing  two-byte  frequencies  (FREQTB).  These  frequency 
values  are  the  same  ones  given  in  the  table  of  standard  notes 

Currently,  the  values  in  FREQTB  represent  all  the  notes 
from  G-4  (6430)  through  A-5  (14335).  Alter  this  table  depend- 
ing upon  which  notes  are  used  in  your  song.  For  instance,  if 
your  song  ranged  from  G-2  to  F-3,  the  frequencies  in  FREQTB 
would  run  from  1607  to  2864. 

In  building  FREQTB,  you  really  only  need  to  list  the  actual 
note  frequencies  used  in  your  song.  But  it  generally  appears 
less  confusing  if  you  include  the  entire  range  in  the  song,  as 
we've  done  here.  Furthermore,  if  the  notes  used  are  many  or 
are  selected  from  a  wide  range,  you  might  let  NOTETB  gen- 
erate a  complete  note  table  (all  eight  octaves)  for  you. 

In  order  to  get  notes  from  FREQTB,  a  second  table  of  in- 
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dex  numbers  (NOTES)  is  required.  Each  note  selected  plays  for 
a  period  of  time  based  on  a  duration  value  given  in  yet  an- 
other table,  NDURTB.  The  actual  duration  of  each  note  is  the 
number  taken  from  NDURTB  times  eight  jiffies,  or  8/60  second. 

In  the  example  below  then,  the  first  note  in  NOTES,  or  G- 
4  with  a  frequency  of  6430,  plays  for  8  jiffies;  the  second  note, 
a  C-5  with  a  frequency  of  8583  plays  for  16  jiffies;  and  so  on. 

This  song  plays  in  voice  1  using  a  sawtooth  waveform. 
But  other  voices  or  waveforms  may  be  more  suitable  for  the 
song  you're  playing.  In  addition,  you  may  want  to  change  the 
other  SID  chip  parameters  such  as  the  volume  level,  or  the 
attack/decay  and  sustain/release  rates. 

For  each  song  played  with  this  routine,  you  need  to  work 
out  not  only  the  relative  time  each  note  plays  (in  NDURTB), 
but  also  the  overall  tempo  of  the  song.  The  number  of  jiffies 
specified  in  the  delay  loop  at  $C036  determines  a  song's 
tempo.  You  may  need  to  adjust  this  number,  currently  8,  up  or 


cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 


FRELOl 


VCREG1 
ATDCY1 
SUREL1 
SIGVOL 


COOO  A9  00  MELODY 

CO02  8D  AB  CO 

COOS  20    AC  CO 

COOS  A9  OF 

C00A  8D  18  D4 

C00D  A9  1A 

C00F  8D  OS  D4 

C012  A9  IB 

COM  8D  06  D4 

C017  AE  AB  CO  NOTELP 

C01A  BD  51  CO 

C01D  OA 

C01E  AA 

C01F  BD  8D  CO 

C022  8D  00  D4 

C02S  BD  8E  CO 

C028  8D  01  D4 

C02B  A9  21 

C02D  8D  04  D4 

COM  AE  AB  CO 

C033  BC  6F  CO 

COM  A9  08  REPEAT 

C038  65  A2 

C03A  C5  A2  DELAY 


LDA 

STA 

JSR 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDX 

LDA 

ASL 

TAX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDX 


#0 

NOTENM 

SIDCLR 

#15 

SIGVOL 

#$1A 

ATDCY1 

ff$IB 

SUREL1 

NOTENM 

NOTES,X 


FREQTB.X 
FRELOl 
FREQTB +1,X 
FREH11 
#%00100001 
VCREG1 
NOTENM 
NDURTB.X 


;  starting  address  for  the  SID  chip 

;  voice  1  high  frequency 

;  voice  1  control  register 

:  voice  1  attack/decay  register 

,-  voice  1  sustain/release  register 

;  SID  chip  volume  register 

;  low  byte  of  jiffy  clock 

r 

;  Play  song. 

;  set  pointer  to  first  note  In  table 
;  clear  the  SID  chip 
;  set  the  volume  to  i 


;  set  sustain/release 

,-  get  the  note  number 

i  get  index  for  FREQTB 

j  double  it  since  FREQTB  contains  two- 

;  byte  addresses 

;  to  index  FREQTB 

;  get  low  byte  of  note's  frequency 

:  store  it  in  voice  1 

;  get  high  byte  of  note's  frequency 

;  store  it  in  voice  1 

;  gate  sawtooth  waveform 

;  put  the  note  number  in  .X 

;  get  the  note's  duration  from  a  table 

;  delay  for  number  of  jiffies  in  .A 

;  ha.  the  time  elapsed? 
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C03C  DO  FC 

C03F  DO  F5 

C041  A9  20 

C043  8D  04  D4 

C046  EE  AB  CO 

C049  AD  AB  CO 

C04C  C9  IE 

C04E  90  C7 

C050  60 

C051  00  05    05  NOTES 

C061  00  05  05 
C06F 

C06F  01  02    01  NDURTB 

C07F  01  02  01 

C08D  IE  19    9C  FREQTB 


BNE 
DEY 
BNE 
IDA 
STA 
INC 
IDA 
CMP 


DELAY 

REPEAT 
#%00100000 
VCREG1 
NOTENM 
NOTENM 
#NMNOTE 
NOTELP 


;  if  not,  continue  the  delay 

;  repeat  the  jiffy  delay  if  necessary 
;  ungate  waveform 

;  increase  note  counter 


C09B    A2   25  DF 

C0AB  00  NOTENM     .BYTE  0 


C0AC  A9  00 
C0AE  AO  18 

COB0    99    00    D4  SIDLOP 


;  see  if  all  notes  have  played 
;  if  not,  then  continue 
RTS  ;  thafs  all 

BYTE  0,5,5,7,7,9,12.9,5.0,5,5,7,7.9,5 

J  table  of  notes 
.BYTE  0,5.5,7,7,9, 12,9.5, 1 4,7, 10.9,5 
=         •  —  NOTES      ;  number  of  notes 
.BYTE  1,2.1.2.1,1,1,1.2,1.2,1,2,1.3.3 

;  table  of  note  durations 
.BYTE  1,2,1,2,1.1.1,13,3.2,1.3,3 
.WORD  6430,6812,721 7,7647.8101,8583.9094 


C0B4    10  FA 


SIDLOP 


;  note  number  counter 

;  Clear  the  SID  chip. 
;  fill  with  zeros 
i  as  the  offset  from  FREUD  1 
:  store  zero  in  each  SID  chip  address 
:  for  next  lower  address 
;  fill  25  '  . 
:  we're  done 


See  also  BEEPER, 
SIDVOL,  SIRENS. 
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Name 

Change  mixed-case  cha 
Description 

MIXLOW  takes  a  letter  in  the  accumulator  and  returns  it  as 
lowercase  in  .A.  The  X  and  Y  registers  are  unaffected  by  the 
routine.  So,  you  can  access  MIXLOW  from  within  a  loop  in- 
dexed by  .X  or  .Y  without  needing  to  save  and  restore  the  in- 
dex register. 

In  a  word  processor,  this  routine  would  be  practical  for 
setting  up  a  search  function.  Let's  say  you  want  to  find  all 
occurrences  of  the  word  computer,  whether  the  lettering  is 
uppercase,  lowercase,  or  a  combination  of  the  two.  MIXLOW 
will  help  you  with  this  process,  converting  each  character  of 
the  specified  word  to  lowercase.  So,  if  Computer  and  COM- 
PUTER appear  in  your  document,  both  will  be  found. 

Prototype 

1.  Determine  whether  the  character  in  .A  is  less  than  the 
uppercase  range. 

2.  If  so,  then  RTS. 

3.  Determine  whether  the  character  is  less  than  CHR$(123), 
putting  it  in  the  first  uppercase  range,  97-122. 

4.  If  it  is,  subtract  32  to  put  it  in  the  lowercase  range  and  RTS. 

5.  If  the  character  value  exceeds  122,  check  to  see  whether  it's 
in  the  second  uppercase  range  of  193-218. 

6.  If  it  is,  convert  it  to  lowercase  by  ANDing  with  127  and 
RTS. 


The  example  routine  first  switches  in  lowercase/uppercase 
mode.  An  ASCII  string  (STRING)  in  mixed  case  is  read  in. 
Each  letter  of  the  string  is  converted  to  lowercase  and  printed 
with  CHROUT.  Before  exiting  the  routine,  the  SHIFT/ 
Commodore  key  combination  is  reenabled  to  allow  case 


Note:  When  converting  characters  in  the  range  193-218  to 
lowercase,  we  AND  with  127.  This  effectively  subtracts  128,  but 
saves  a  byte  in  the  code  (as  opposed  to  using  SEC:  SBC  ^1  " 

Routine 

C000  CHROUT  =  65490 

C0O0  DSFTCM  -  8  ,-  DSFTCM  =  11  on  the  128 

C0OO  ESFTCM  =  9  ;  ESFTCM  -  12  on  the  128 
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C000  A9 


m 


C007    20   D2  FF 


COOA  AO  00 

COOC  B9  37  CO  LOOP 

COOF  FO  09 

G0I1  20  20  CO 

C014  20  D2  FF 

C017  C8 

C018  DO  F2 

C01A  A9  09 

C01C  20  D2  FF 

COIF  60 


C020  C9  61  MIXLOW 

CU22  90  12 

C024  C9  7B 

C026  BO  04 


C028  38 

C029  E9  20 

C02B  60 

C02C  C9  CI 

C02E  90  06 

C030  C9  DB 

C032  BO  02 


SECSET 


C034    29  7F 


C036  60 


IDA  *14 


LDY 
LDA 


#0 

5TRINC.Y 
FINISH 
MIXLOW 
CHROUT 

LOOP 


JSR 

JSR 

INY 

BNE 

LDA 


JSR  CHROUT 


CMP  #97 

BCC  EXIT 

CMP  #123 

BCS  SECSET 


#32 


SEC 
SBC 
RTS 

CMP  #193 
BCC  EXIT 
CMP  #219 
BCS 


AND 


;  Convert  an  upper/iowercase  string  to  all 
,  lowercase. 

;  switch  to  lowercase/uppercase  mode 

;  disable  case  switching  with 
i  SHIFT/Commodore  Key 

;  Print  string  as  all  lowercase. 
;  as  an  index 

;  get  a  character  from  string 


ey  case 


;  convert  to  lowercase 
;  print  it 
;  next  character 
;  continue  pri 
:  enable  SHIFT/C 
;  switching 


!  Convert  mixed  case  m  .A  to  all  lowercase. 
;  Return  in  .A. 

;  i9  it  less  than  uppercase  A? 
;  yes,  so  exit 


;  so  subtract  32  to  put  it  in  range  65-90 
;  and  exit 

;  is  It  less  than  second  uppercase  A? 
;  yes,  bo  exit 

;  is  it  greater  than  second  uppercase  Z? 

;  ch«a«e7il  In  ASCII  range  193-218 

;  so  effectively  subtract  128  to  put  in  range 

I  65-90 


EXIT 


RTS 


C037 
C059 


C3 
00 


CI  STRING 


.ASC  "ChAnCe  MiXeD  cAsE  fO  aU  LoWeRcAsE" 
.BYTE0 


CNVERT,  MIXUPP,  SWITCH. 
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Name 

Convert  mixed  case  characters  t 
Description 

MIXUPP  takes  the  letter  in  the  accumulator  and  returns  it  as 
uppercase  in  .A.  In  the  process,  .X  and  .Y  are  left  intact.  This 
routine  is  handy  anytime  you  want  only  uppercase  input— for 
instance,  when  filenames  are  requested  or  when  a  letter  re- 
sponse is  sought  (Y/N). 

Prototype 

1.  Determine  whether  the  character  in  .A  is  in  the  lowercase 
range,  65-90. 

2.  If  not,  RTS. 

3.  Otherwise,  add  32  to  put  it  in  the  uppercase  range,  97-122, 
and  RTS. 

Explanation 

The  example  routine  switches  in  the  lowercase/uppercase 
character  set,  accepts  individual  characters  with  GETIN,  con- 
verts them  to  uppercase  with  MIXUPP,  and  finally  prints 
them  with  CHROUT.  Pressing  RETURN  exits  the  routine.  In 
the  process,  case  switching  with  SHIFT/Commodore  key  is 
reenabled. 

Note:  A  CLC  is  not  required  before  32  is  added  in 
MIXUPP.  If  the  program  falls 
have  been  cleared. 

Routine 


cooo 
cooo 
cooo 


COOO    A9  0E 


CHROUT  — 

GETIN  = 

DSFTCM  = 

ESFTCM  - 


8 
9 


2  FF 


LDA  «14 


;  DSFTCM  =  11  on  the  128 
i  ESFTCM  -  12  on  the  128 

;  Convert  uppercase/lowercase  Input  to  all 
;  uppercase;  quit  on  RETURN, 
j  switch  to  lowercase/uppercase  mode 


C007 

20 

D2 

FF 

)SR 

CHROUT 

C00A 

20 

E4 

FF 

LOOP 

J5R 

GETIN 

C00D 

FO 

FB 

BEQ 

LOOP 

C00F 

C9 

0D 

CMP 

#13 

con 

FO 

08 

BEQ 

QUIT 

C013 

20 

21 

CO 

JSR 

MIXUPP 

C016 
C019 
C01B 

20 

D2 

FF 

JSR 

CHROUT 

DO 
A9 

EF 
09 

Qun 

BNE 
LDA 

;  get  a  character 
;  if  no  Input,  wait 
;  is  it  RETURN? 
;  yes,  so  leave 
;  convert  to  ail  uppercase 
;  and  print  it 

i  character 


344 


MEXUPP 


C01D  20  D2  FF 
C020  60 


C021    C9  £ 

C027  BO  02 
C029    69  20 


MDCUPP 


JSR  CHROUT 


CMP  #65 

bcc  Exrr 

CMP  #91 

8CS  EXIT 

ADC  #32 


;  Convert  ASCII  input  in  .A  to  all  uppercase. 

;  Return  value  in  .A. 

;  is  it  less  than  lowercase  a? 

;  yes,  so  exit 

;  is  It  greater  than  lowercase  z? 
,-  yes,  so  exit 

;  Add  32  to  put  In  ASCII  range  97-122. 
;  note  that  carry  is  already  clear  U  we  fall 
,-  through  prior  Instruction 
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Name 

Move  a  block  of  data  downward  in  memory 
Description 

Specifically  designed  to  move  blocks  of  data  down  in  memory, 
this  routine  can  be  used  to  move  other  machine  language 
routines,  or  text  and  numeric  data  tables.  Provided  the  source 
and  destination  blocks  don't  overlap,  MOVEDN  will  also 
move  memory  up. 

Prototype 

In  the  initialization  routine  (MDINIT): 

1.  Store  the  two-byte  origin  address  (here,  BLOCK1)  in  ZP  and 
the  two-byte  target,  or  destination,  address  (here,  BLOCK2) 
inZP  +  2. 

2.  Store  the  number  of  bytes  to  move  down  (NUMBER  in  the 
equates)  in  .X  (low  byte)  and  .Y  (high  byte). 

In  MOVEDN: 

1.  Store  the  number  of  bytes  to  move,  currently  in  .X  and  .Y, 
into  a  two-byte  counter  (COUNTR). 

2.  Using  indirect  addressing  in  DOWNLP,  transfer  bytes  from 
the  source  memory  block  (at  ZP)  to  the  target  memory 
block  (atZP+2). 

3.  On  the  128,  you  can  move  memory  from  one  bank  to  an- 
other. Define  BNKSRC  (source  bank  number)  and  BNKTAR 
(target  bank  number)  at  the  end  of  the  program  with  the 
appropriate  banks.  Replace  the  LDA  (ZP),Y  at  DOWNLP 
with  the  three  instructions  that  follow  it  in  the  listing  and 
the  STA  (ZP+2),Y  just  below  this  with  the  next  four 
instructions  (labeled  128  only). 

4.  Increase  both  zero-page  pointers  by  one  with  the  subroutine 
ADDONE. 

5.  Decrement  the  bytes  counter  (COUNTR),  continuing 
DOWNLP  until  all  bytes  from  the  source  block  have  been 
moved.  Then  RTS. 

Explanation 

The  following  program  shows  how  MOVEDN  might  be  used 
in  a  word  processor  to  delete  text  from  the  screen. 

After  printing  a  message  to  the  screen,  the  program  waits 
for  a  keypress.  If  D  is  pressed,  a  portion  of  the  message  is  de- 
leted, and  the  program  ends. 
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When  you  press  D,  the  program  calls  the  subroutine 
MDINIT,  then  MOVEDN.  MDINIT  tells  MOVEDN  where  the 
source  and  target  blocks  begin  (in  ZP  and  ZP+ 2),  and  also 
how  many  bytes  to  move.  Upon  entering  MOVEDN,  the 
number  of  bytes  to  move  is  stored  to  a  two-byte  counter 
(COUNTR)  which  decrements  during  the  memory  transfer 
process.  At  the  same  time,  the  zero-page  pointers  to  the  source 
and  target  blocks  are  incremented.  When  COUNTR  reaches 
zero,  the  transfer  is  complete. 

Because  it  relies  on  zero-page  addressing,  on  the  128, 
MOVEDN  can  be  readily  modified  to  move  memory  from 
bank  to  bank.  To  accomplish  this,  you  need  two  Kernal 
routines:  INDFET,  which  performs  an  indirect  load  into  the 
accumulator  from  the  bank  in  .X,  and  EMDSTA,  which  stores 
.A  indirectly  into  the  bank  in  .X.  To  implement  these  routines, 
replace  the  LDA  (ZP),Y  at  $C046  with  the  commented  instruc- 
tions that  follow  (DOWNLP  LDA  #ZP:LDX  BNKSROJSR 
INDFET)  and  replace  the  STA  (ZP  +  2),Y  at  $C048  with  LDX 
#ZP  +  2:STX  697:LDX  BNKTAR:JSR  INDSTA.  Also  include  the 
bank  numbers  for  the  source  (BNKSRC)  and  target  (BNKTAR) 
blocks,  defined  at  the  end  of  the  program. 

If  you  want  to  use  MOVEDN  to  move  memory  up,  before 
assembling  the  routine,  switch  the  definitions  of  BLOCK1  and 
BLOCK2  so  that  BLOCK  1  is  lower  in  memory.  Of  course,  in 
order  for  this  method  to  succeed,  the  two  memory  blocks  must 
not  overlap. 

Note:  Unlike  some  memory  move  routines  (such  as 
SWAPIT),  MOVEDN  has  no  error  checking.  It's  up  to  you  to 
make  sure  the  memory  blocks  you've  defined  in  the  equates 
are  in  the  proper  relative  position  in  memory. 

Routine 


l  memory  block  1  (source) 

;  memory  block  2  (target) 

:  number  of  bytes  to  move  down 

;  Kemal  routine  to  load  indirectly  from  any 

;  bank  (128  only) 

;  Kemal  routine  to  store  indirectly  to  any 

;  bank  (128  only) 

'• 

I  Print  a  message  to  the  screen.  Delete  a  word 
;  on  D. 

:  clear  the  screen 


C000 
CO00 

C000 


ZP 

= 

65490 

CHROUT 

= 

PLOT 

GET1N 

65308 

BLOCK  1 

1267 

BLOCK2 

1262 

NUMBER 

i — 

757 

INDFET 

65396 

INDSTA 

- 

65399 

A9  93  CLRCHR     LDA  «147 

20    D2  FF  )SR  CHROUT 


MOVEDN 


C005 

A2  05 

LDX 

#5 

C007 

AO  IE 

LDY 

#30 

C009 

18 

PLOTCR 

CLC 

20   FO  FF 

JSR 

PLOT 

COOD 

ao  no 

PRTLOP 

i  nv 

tfO 

B9    6D  CO 

LDA 

TXTSTR.Y 

C012 

E0  06 

BEQ 

GETKEY 

C014 

20    D2  FF 

|SR 

CHROUT 

C017 

C8 

INY 

C018 

DO  F5 

BNE 

PRTLOP 

C01A 

20    E4  FF 

GETKEY 

JSR 

GETIN 

C01D 

FO  FB 

BEQ 

GETKEY 

CO  IP 

C9  44 

CMP 

C021 

DO  F7 

BNE 

C023 

20    2A  CO 

JSR 

MDIMTT 

C026 

20    3F  CO 

JSR 
RTS 

MOVEDN 

C029 

60 

C02A  A9  F3 

C02C  S5  FB 

C02E  A2  04 

C030  86  FC 

C032  A9  EE 

C034  85  FD 

C036  A2  04 

C038  86  FE 

C03A  A2  F5 


C03E  60 


LDA  #<BLOCKl 

STA  ZP 

LDX  #>BLOCKl 

STX  ZP+1 

LDA  #<BLOCK2 

STA  ZP+2 

LDX  #>BLOCK2 

STX  ZP+3 

LDX  #<NUMBER 


LDY 
RTS 


C03F  8E  6B  CO   MOVEDN    STX  COUNTR 

C042  8C  6C  CO  STY  COUNTR+1 

C045  AO  00  LDY  #0 

C047  Bl  FB  DOWNLP    LDA  (ZP),Y 


C049    91  FD 


;  row  number  (sixth  row) 

;  column  number  (thirty-first  column) 

;  clear  carry  to  set  position 

;  position  cursor  at  (.Y,.X) 

i  as  an  index  in  PRTLOP 

I  get  a  character  from  TXTSTR 

j  exit  PRTLOP  on  zero  byte 

;  print  the  character 

;  for  next  character 

;  branch  always 

.  look  for  D 

,'  if  no  keypress 


;  if  not  D,  get  another  keypress 

;  initialize  zero-page  pointers  and  get  number 

;  of  bytes  to  move 

;  move  bytes  down 

;  Initialize  zero-page  pointers  to  BLOCK1  and 
;  BLOCK2.  Two  bytes  at  ZP  point 
;  to  source,  and  two  at  ZP+2  point  to  t 
;  Also  put  NUMBER  in  ,X  and  .Y. 
;  low  byte  of  BLOCK!  first 

;  then  high  byte 

;  and  again  for  BLOCK: 


;  (hen  put  low  byte  of  number  of  bytes  to 
;  move  down  in  .X 
;  and  high  byte  in  .Y 


;  Move  bytes  down.  Enter  with  the  number 

;  of  bytes  to  move  in  .X  (low) 

;  and  .Y  (high).  Source  block  is  in  rwo  bytes 

;  at  ZP,  and  target  block  at  ZP+2. 

!  store  number  to  COUNTR,  low  byte  first 

:  then  high  byte 

;  Index  for  DOWNLP 

;  get  a  byle  from  source  block 

;  On  the  128,  substitute  the  next  three  lines 

;  for  the  previous  line 

;  to  move  memory  from  bank  to  bank. 

;  DOWNLP  LDA  #ZP;  put  zero-page 

;  pointer  lo  source  block  in  .A 

;  LDX  BNKSRC;  bank  number  for  source 

;  block 

j  JSR  INDFET;  load  indirectly  from  bank  .X 

/      ^§  l  Tl  Til         A  C   B  O  *  I  f  C  C 

J 

;  store  it  in  target  block 

S 

;  Again,  on  the  128,  substitute  the  next  four 
;  lines  for  the  previous  line 
;  to  move  from  bank  to  bank. 
;  LDX  #ZP+2;  put  zero-page  pointer  to 
;  target  block  in  697 

;  f 

!  1 
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C04B 
C04E 
C051 

20    5E  CO 
|1  ° 

JSK 

DEC 

BNE 

C0S3 
C056 

CE  6C 
AD  6C 

CO 
CO 

DEC 
LDA 

COUNTR +1 
COUNTR +1 

C059 

C9  FF 

C05B 
COSD 

DO  EA 
60 

BNE 
RTS 

DOWNLP 

C05E 
C060 

E6  FB 
DO  02 

ADDONE 

INC 
BNE 

ZP 

INCTAR 

C062 
COM 

E6  FC 
E6  FD 

INCTAR 

INC 
INC 

ZP+1 
ZP+2 

C066 
C068 
C06A 

DO  02 

E6  FE 
60 

ADExrr 

BNE 
INC 
RTS 

ADEXTT 
ZP+3 

C06B 

00  00 

COUNTR 

WORDO 

;  block 

;  JSR  INDSTA;  store  indlreclly  from  bank 
;  .X  beginning  at  target 

;  increase  ZP  pointers  by  one 

;  decrement  counter  low  byte 

;  if  low  byte  hasn't  turned  over,  continue 

;  moving  memory  down 


,  high  byte  of  counter  goes 
>t  page,  continue 


;page 

;  on  the  last  pa 
;  if  not  on  t 

}. 

;  Increment  zero-page  pointers  by  one. 
;  increment  low  byte  of  source 
;  if  it  hasn't  turned  over,  handle  target 
;  pointers 

;  increment  high  byte  of  source  block 

;  do  the  same  for  target  pointers 

;  increment  low  byte  first 

;  if  it  hasn't  fumed  over,  exit  ADDONE 

;  and  increment  high  byte,  if  necessary 


;  two-byte  counter  for  remaining  number  of 
;  bytes  to  move  down 

C06D  54    48    49    TXTSTR       .ASC    "THIS  IS  LINE  6  AND  7.  DELETE  'LINE  '  ON  D." 

C097    00  .BYTE  0  ;  terminator  byte 

;  BNKSRC  .BYTE  0;  the  bank  number  where 
;  source  is  (128  only) 

;  BNKTAR  .BYTE  0;  the  bank  number  where 
j  target  is  (128  only) 

See  also  MVU128,  MVU64,  SWAPIT. 
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Name 


ite  to  an  absolute 


In  some  situations — board  games  or  menu  programs,  for  ex- 
ample— you  may  want  to  position  sprites  at  certain  fixed  loca- 
tions. When  the  sprite  moves,  it  doesn't  glide  smoothly  from 
one  spot  to  another;  it  jumps  directly  to  the  new  place.  This 
routine  uses  a  lookup  table  to  put  a  sprite  into  position. 

Prototype 

1.  Enter  the  routine  with  .X  holding  low  byte  of  the  x  co- 
ordinate, .A  holding  the  high  byte  of  the  x  coordinate  (1  or 
0),  and  .Y  holding  the  y  coordinate. 

2.  Store  the  values  in  the  appropriate  VIC  registers. 

Explanation 

The  framing  program  prints  a  numeric  grid  on  the  screen,  with 
the  numbers  1-9  in  a  3  X  3  square.  It  checks  for  a  keypress, 
and  when  any  of  the  numbers  1-9  is  pressed,  a  box-shaped 
sprite  is  moved  to  the  appropriate  position  on  the  grid.  Press 
the  zero  key  to  exit. 

The  MOVSAB  routine  is  very  simple — three  lines  plus  an 
RTS.  Most  of  the  example  program  is  spent  setting  up  the 
screen  and  creating  the  sprite  shape.  Note  the  message  at  the 
bottom.  The  17s  and  157s  are  cursor-down  and  cursor-left 
characters  used  to  print  the  screen  grid. 

Note:  This  routine  moves  only  one  sprite.  If  you  want  to 
handle  several,  you'll  need  an  additional  variable  that  in- 
dicates which  sprite  should  be  moved. 

The  128's  BASIC  7.0  has  a  variety  of  very  useful  com- 
mands for  controlling  sprites.  Unfortunately,  when  you're  try- 
ing to  control  sprites  from  ML,  BASIC  tends  to  get  in  the  way. 
To  disable  the  12c'"  ~-  J  —  ****** 


128's  various  sprite  commands,  enter  POKE 
4861,1  (or  any  other  non-zero  value)  before  you  SYS  to  this 
routine. 


Routine 

cooo 
cooo 
cooo 
cooo 
cooo 
cooo 


SPCOLR 

spx 
spy 

SPXM 

SPE 

SPP 


POINTR 


53264 
53269 
2040 


13 


0  color 


!  y  position 

;  MSB  bit  of  x  position 

:  sprite  enable 

;  pointer  to  sprite  zero 

;  SPSHAPE  =  3584  on  the  128— address  of 
:  shape  data 

;  POINTR  -  56  on  the  128  (56'64>-pointer 


•0 


MOVSAB 


cooo 


C003 
C006 
C009 
COOB 
COOD 


PLOT 

CHROUT 

GETIN 

20    3F  CO 

20    78  CO 

20    93    CO  MAIN 

EO  00 

DO  01 

60 

CA  MOVEIT 

BD  2D  CO 

8D  CC  CO 

BC  36  CO 

BD  24  CO 

A£  CC  CO 

20    A4  CO 

4C  06  CO 

oo  oi  oi  an 

F6  06  16  XLO 
40    4  0    40  YLO 


SFFFO 


DO 


C03F  A9  01 

C041  8D  15 

C044  A9  07 

C046  8D  27  DO 

C049  A9  00 

C04B  8D  00  DO 

C04E  8D  10  DO 

C051  8D  01  DO 


C054  A9  00 
C056    AO  40 


C05C    10  FA 


3  CLSP 


COSE  A2  OA 

C060  AO  00 

C062  A9  FF 

C064  99  40  03 

C067  C8 

C068  A9  CO 

C06A  99  40  03 

C06D  C8 

C06E  C8 

C06F  CA 

C070  DO  FO 

C072  A9  OD 


C078  A9  93 

C07A  20  D2  FF 

C07D  AO  1C 

C07F  A2  02 

C081  18 


CREATE 


C085  AO  00 

C087  B9  AE  CO  PLOOP 

C08A  FO  06 

-  20  D2  FF 


n 

BNE 
RTS 
DEX 
LDA 
STA 
LDY 
LDA 
LDX 
JSR 
IMP 


MOVEIT 


XLO,X 
TEMP 
YLO,X 
XHI.X 
TEMP 
MOVSAB 
MAIN 
0,1.1,0.1.1.0,1. 


m 

DEV 

SPSHAPE.Y 

BPL 

CLSP 

LDX 

#10 

LDY 

*0 

LDA 

#255 

STA 

SPSHAPE.Y 

INY 

LDA 

#192 

STA 

SPSHAPE.Y 

INY 

TNY 
DEX 

BNE 

CREATE 

LDA 
STA 

#P01NTR 

SPP 

RTS 

LDA 

#147 

JSR 

CHROUT 

LDY 

#28 

LDX 

S2 

CLC 

JSR 

PLOT 

LDY 

#0 

LDA 

MESSAGE.Y 

BEQ 

QPLP 

JSR 

CHROUT 

;  set  up 

;  print  numbers  1-9  on  screen 
:  get  a  key  1-9— the  number  1-9  is  In  .X 
;  Is  it  a  zero? 
;  no,  move  the  sprite 
;  yes,  quit  this  program 
;  subtract  one,  so  it  works  right 
:  get  the  low  byte  of  the  x  position 
;  save  it  temporarily 
;  gel  the  y  position 
;  and  the  high  byte  of  x 
;  now  the  real  x  position 
;  call  the  move  absolute  routine 
;  go  back  for  more 


.  turn  on  sprite  0 
;  setting  bit  0  in  sprite-enable 
;  color  yellow 
;  into  the  color  register 


.  ill  x  low  t 
;inxh 
;  and  y  1. 
« 

i  zero  to  clear  out  the  shape 


;  clear  it  out 
;  ail  63  bytes 
i  ten  lines 


,-  set  the  pointer 


i  clear  screen  character 
;  print  it 

;  getting  ready  to  plot — twenty-eighth 
;  column 

;  dear  carry  to  plot 

:  now  the  cursor  is  ready 

:  print  the  screen 

i  if  it's  zero,  quit 
i  else  print  it 
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DO  F5 
60 


QPLP 


1NV 
BNE 
RTS 


PIOOP  ;  (branch  always) 


GET1N 

GETKEY 

#48 

GETKEY 


C093  20  E4    FF  GETKEY 

C096  F0  FB 

C098  C9  30 

C09A  90  F7 

C09C  G9  3A 

C09E  BO  F3 

C0A2  AA  °F 

C0A3  60 


C0A4  MOVSAB     -  • 

C0A4  8D  10    DO  STA  SPXM 

C0A7  8E  00    DO  STX  SPX 

COAA  8C  01    DO  STY  SPY 

COAD  60  RTS 


COAE  31 
C0B3  1! 
COBA  34 
COBF  1 1 
C0C6  37 
COCB  00 
COCC  00 


20 
11 


32 
9D 


!  get  a  key 
;  no  key  pressed,  go 
;  lower  lhan  ASCII  0? 
;  yes.  go  back 
.-  higher  lhan  ASCII  9? 
;  yes,  try  again 


the  extra  s  _ _ 
I  transfer  from  .A  to  X 
;  we're  done  here 

;  the  main  routine 
;  most  significant  bit 
;  the  x  position 

;  all  done 


20  35 
11  9D 


TEMP 


ASG  "1  2  3" 

BYTE  17,17,157,157,157.157,157 

.ASC  "4  5  6" 

.BYTE  17,17,157,157,157,157,157 

•ASC  "7  8  9" 

■  BYTE  0 


See  also  SPRINT. 


Set  the  colors  for  multicolor  mode 
Description 

In  multicolor  mode,  you're  allowed  to  have  the  background 
color  plus  three  foreground  colors  (instead  of  one).  This  rou- 
tine sets  up  the  additional  colors. 

Prototype 

In  a  loop,  read  the  three  color  values  from  MTCOLS  and  store 
them  beginning  at  location  53281  (BGCOLO). 

Explanation 

To  set  multicolor-mode  colors,  choose  three  color  values  for 
the  background  color  registers  (53281-53283)  and  define  them 
in  MTCOLS  at  the  end  of  the  program.  The  program  below  is 
just  a  program  fragment.  For  a  complete  example  routine,  see 
MTCMOD. 


cooo 


COOO  A2  02 

C002  BD  10 

C005  9D  21 

COOS  CA 


C009  10  F7 
COOB  60 


BGCOLO 
MTCCOL 
CO  COLOOP 


IDA 
STA 
DEX 


LDX 


53281 
#2 

MTCOLS.X 
BCCOL0,X 


COLOOP 


;  text  background  color  register  0 

;  as  an  index 

,-  get  each  color  value 

;  assign  it  to  a  register 

;  for  next  register 

;  do  ail  three 


CO0C  08  09  OA  COLORS  .BYTE  8.9,10,14 
CO  10    OF    05    03    MTCOLS      .BYTE  15,5,3 


j  color  orange,  brown,  light  red.  light  blue 
:  color  light  gray,  green,  cyan 


See  also  XBCCOL,  XBCMOD,  MTCMOD. 
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Name 

Turn  multicolor  mode  on  or  off 
Description 

Setting  bit  4  in  location  53270  (SCROLX)  enables  multicolor 
mode,  which  applies  in  both  text  or  bitmap  mode.  The  pro- 
gram below  uses  MTCMOD  and  MTCCOL  to  select  multi- 
color text  mode  and  set  character  colors  for  this  mode. 

Prototype 

1.  Load  the  contents  of  the  horizontal  fine-scrolling/control 
register  at  53270  (SCROLX)  into  the  accumulator. 

2.  ORA  with  %000 10000  to  turn  on  bit  4  and  store  the  result 
back  into  the  register.  (To  turn  off  multicolor  mode,  AND 
the  contents  of  SCROLX  with  %1 1101  111.) 

Explanation 

It's  true  that  bit  4  of  SCROLX  enables  multicolor  mode.  But  in 
text  mode,  each  individual  character  must  have  a  value  greater 
than  7  in  its  color  RAM  nybble  before  the  character  actually 
displays  in  multicolor.  When  this  occurs,  the  horizontal  resolu- 
tion of  each  character  is  cut  in  half.  Instead  of  having  eight 
separate  pixels  across  that  can  be  one  of  two  colors,  the 
character  is  represented  horizontally  by  four  groups  of  double- 
width  pixels.  And  the  color  of  each  double-width  pixel  is 
taken  from  one  of  four  locations,  depending  on  its  bit  pattern: 

00  Background  color  register  0  at  53281 

01  Background  color  register  1  at  53282 

10  Background  color  register  2  at  53283 

11  Bits  0-2  of  corresponding  color  RAM  nybble  (55296-56319) 

To  see  this  effect,  run  the  example  program  below.  This 
program  prints  the  characters  A-Z  four  times  in  multicolor 
mode,  varying  color  RAM  on  each  pass.  Looking  at  the  results 
should  convince  you  that  the  built-in  character  set  was  not  in- 
tended to  be  used  with  multicolor  mode.  To  take  advantage  of 
this  feature  in  text  mode,  you'll  need  to  design  your  own  four- 
color  characters  with  a  routine  such  as  CHRDEF. 

If  you  turn  on  bitmapping  (see  BITMAP)  at  the  same  time 
multicolor  mode  is  active,  again  double-width  pixels  will  have 
the  effect  of  halving  horizontal  screen  resolution.  But  in  bit- 
map mode,  the  color  sources  for  the  double-width  pixels  differ 
from  text  mode.  Color  sources  for  the  four  possible  bit  patterns 
are  as  follows: 
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MTCMOD 


00  Background  color  register  0  at  53281 

01  High  nybble  of  corresponding  color  byte 

10  Low  nybble  of  corresponding  color  byte 

11  Bits  0-3  of  corresponding  color  RAM  nybble  (55296-56319) 

Note:  On  the  128,  location  216,  or  GRAPHM,  is  copied 
into  SCROLX  during  the  screen-setup  portion  of  the  IRQ  inter- 
rupt routine.  You  can  prevent  this  altogether  by  storing  a  255 
in  GRAPHM.  If  you  allow  the  IRQ  routine  to  copy  GRAPHM, 
select  multicolor  mode  from  this  register  by  setting  bit  7. 

The  program  below  uses  the  first  approach.  So,  128  users 


prior  to  activating  multicolor  mode  in  $ 


Routine 

cooo 

BGCOL0 

53281 

cooo 

SCROLX 

53270 

cooo 

CHROUT  = 

65490 

cooo 

GETIN 

65508 

cooo 

COLOR 

646 

cooo 

GRAPHM  = 

216 

COOO  A9  93  CHRCLR 
C002    20    D2  FT 


LDA  #147 
jSR  CHROUT 


C005 
C008 
C0OB 
C00D 
C010 
C013 
C015 
C018 
C019 
C01B 
COID 
C01F 


C027 
C028 
C02A 
C02D 
C02F 
C032 
C034 
C037 


20  38  CO 
20  41  CO 
A2  03 

BD  4D  CO  AZLOOP 
8D  86  02 
A9  41 

20  D2  FF  PRTLOP 
18 

69  01 
C9  5B 
DO  F6 
A9  0D 
20  D2  FF 
20  D2  FF 
CA 

10  E3 

20    E4    FF  GETKEY 

F0  FB 

AD  16  DO 

29  EF 

8D   16  DO 


;  COLOR  =  241  on  the  128— text  foreground 

j  mode  flag  for  40-column  screen  (128  only) 

;  Display  characters  A-Z  four  times  in 

:  multicolor  mode.  Chf —   ' 

:  text  color  each  time. ; 
;  clear  the  screen 


portion  of 


DEX 

BPL 

JSR 

BEQ 

LDA 

AND 

STA 

RTS 


AZLOOP 

GETIN 

GETKEY 

SCROLX 

#%111011U 

SCROLX 


!F;  disable 
urine  (add  for  128  on 
Al  (128  only) 
j  turn  on  multicolor  mode 
;  assign  multicolor  mode  colors 
;  print  A-Z  four  times 
;  get  each  text  foreground  color 
;  store  in  the  register 
;  begin  with  A 
j  display  characters  A-Z 
;  for  next  character  code 

;  is  it  Z  plus  1? 
;  and  continue 
;  carriage  return 
;  print  it  twice 

;  for  next  A-Z  printing 

;  wait  for  a  keypress 

;  if  no  keypress,  then  wait 

:  rum  off  multicolor  mode 

;  reset  register 


!  Turn  on  (or  off)  multicolor  mode. 


MTCMOD 


C038 


AD  16 
09  10 


DO  MTCMOD 


16  DO 


C041 
C043 
C046 


60 


A2  02 
BD  51 
9D  21 


CO 
DO 


MTCCOL 

COLOOP 


C04D  08  09  OA  COLORS 
C051    OF   05    03  MTCOLS 


RTS 


LDX 
LDA 
STA 
DEX 
BPL 
RTS 


SCROLX 


#2 

MTCOLS.X 
BGCOL0.X 

COLOOP 


BYTE  8.9,10,14 
.BYTE  15,5.3 


;  gel  current  rt 
;  torn  on  bit  4 

i  %iiioim> 

;  and  get  the  register 


r  value 

off  with  AND 


|  Assign  colors  to  multicolor  color  registers 
;  53281-53283. 
;  as  an  index 
:  get  each  color  value 
;  assign  it  to  a  i 
;  for  next  register 
;  do  ail  three 


See  also  XBCCOL,  XBCMOD,  MTCCOL. 


i  colors— orange, 
i  colors— light  gray,  green,  cyan 
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Name 

Multiply  two  numbers  with  successive  adds 
Description 

One  way  to  multiply  two  numbers  is  to  add  one  number  to  it- 
self over  and  over.  This  technique  works  best  on  single  bytes. 
As  the  numbers  get  larger,  the  time  used  by  the  routine  in- 
creases to  the  point  where  it  becomes  very  slow. 

Prototype 

1.  Before  calling  the  routine,  store  in  memory  the  numbers  to 
be  multiplied. 

2.  Zero  out  the  two-byte  total. 

3.  Load  the  two  numbers  into  .A  and  .X. 

4.  If  either  number  is  zero,  exit  the  routine. 

5.  Decrement  .X  and  exit  when  it  hits  zero. 

6.  Add  the  accumulator  to  the  first  number. 

7.  If  the  carry  flag  is  set,  indicating  that  the  low  byte  over- 
flowed, increment  the  high  byte. 

8.  Loop  back  to  step  5. 

Explanation 

The  framing  routine  just  gets  two  keypresses  and  stores  the 
ASCII  values  of  the  characters  in  Bl  and  B2.  Press  Q  to  quit, 

Within  MULAD1,  the  two  bytes  of  TOTAL  are  zeroed  out; 
then  the  numbers  in  Bl  and  B2  are  multiplied.  If  either  num- 
ber equals  zero,  the  routine  ends  (with  zeros  still  in  TOTAL), 
because  zero  times  any  number  is  zero.  As  .X  counts  down  to 
zero,  the  accumulator  is  repeatedly  added  to  the  number  in  B2. 

Note:  This  approach  to  multiplying  works  reasonably  well 
when  the  two  numbers  are  byte-sized  (0-255).  If  you  need  to 
multiply  larger  numbers,  repeated  addition  becomes  very  slow. 
For  example,  multiplying  20,000  by  20,000  would  require 
20,000  iterations.  Even  at  machine  language  speeds,  this 
would  take  some  time.  For  multiplying  larger  numbers,  see 
MULSHF. 

Routine 

;  L1NPRT  =  $8E32  on  the  128 — ROM 
;  routine  to  print  a  number 


;  get  a  key 

;  wait  until  there's  one  there 
;  check  for  Q  (quit) 

;  store  it  in  byte  1 
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cooo 

LINTRT 

$BDCD 

cooo 

GET1N 

$FFE4 

cooo 

CHROUT 

$FTO2 

cooo 

20 

E4 

EF  MAIN 

)SR 

GETIN 

C003 

F0 

FB 

BEQ 

MAIN 

coos 

C9 

51 

CMP 

m 

C007 

F0 

3D 

BEQ 

QUIT 

C0O9 

8D 

6D 

CO 

STA 

Bl 

MULAD1 


cooc 

20 

E4  FF 

M2 

JSR 

GETIN 

COOF 

FO 

FB 

BEQ 

M2 

con 

C9 

51 

CMP 

#81 

C013 

FO 

31 

BEQ 

QUIT 

C015 

8D 

6E  CO 

STA 

B2 
Bl 

C018 

AE 

6D  CO 

LDX 

COIB 

A9 

00 

LDA 

2 
#0 

COID 

20 

CD  BD 

JSR 

UNPRT 

CO20 

A9 

2A 

LDA 

#42 

C022 

20 

D2  FF 

JSR 

CHROUT 

C02S 

AE 

6E  CO 

LDX 

B2 

C028 

A9 

00 

LDA 
JSR 

#0 

20 

CD  BD 

UNPRT 

C02D 

A9 

3D 

LDA 

#61 

C02F 

20 

D2  FF 

JSR 

CHROUT 

C032 

20 

47  CO 

JSR 

MULAD1 

C035 

AE 

6F  CO 

LDX 

TOTAL 

C038 

AD 

70  CO 

LDA 

TOTAL+1 

C03B 

20 

CD  BD 

JSR 

UNPRT 

C03E 

A9 

OD 

LDA 

#13 

C04O 

20 

D2  FF 

JSR 
IMP 

CHROUT 

C043 

4C  00  CO 

MAIN 

C046 

60 

<jurr 

RTS 

C047 

A9 

00 

MULAD1 

LDA 

#0 

C049 

8D 

6F  CO 

STA 

TOTAL 

CMC 

8D 

70  CO 

STA 

TOTAL+1 

C04F    AE  6D  CO 

LDX 
BEQ 

Bl 

COS2 

FO  18 

MULEND 

C054 

IB 

CLC 

C055 

AD 

6E  CO 

LDA 

B2 

C058 

FO 

12 

BEQ 

MULEND 

C05A 

CA 

MULLOP 

DEX 

C05B 

FO 

OC 

BEQ 

MULSTR 

C05D  18 

CLC 

C05E 

6D 

6E  CO 

ADC 

B2 

C061 

90 

F7 

BCC 

MULLOP 

C063 

EE 

70  CO 

INC 

TOTAL+1 

C066    4C   5A  CO 

JMP 

MULLOP 

C069 

8D 

6F  CO 

MULSTR 

STA 

TOTAL 

CMC 

60 

MUXEND 

RTS 

C06D 

00 

Bl 

-BYTE 

0 

C06E 

00 
00 

B2 

C06F 

00 

TOTAL 

lo 

J  get  another  key 
;  check  Q  again 
i  store  in  byte  2 


:  print  number  1 
;  the  •  character 
;  print  it 

;  second  number 

;  print  it,  also 
i  equal  sign 
;  print  il 

;  multiply  the  numbers 

;  low  byte 

;  high  byte 

;  print  it 

;  <RETURN> 

J  print  and 


;  clear  out 

;  low  byte  of  total 

!  »d  Wgh  byte 

';  the  counter  for  repeated  adds 
;  if  zero,  no  addition 

|  second  number  (which  will  be  added) 

;  if  zero,  no  operation  is  necessary 

;  decrement  .X  first,  in  case  ifs  a  1 

|  if  zero,  store  the  result  in  total  (low  byte) 

;  get  ready 

;  and  add  .A  to  B2 

;  if  carry  is  clear,  no  overflow  to  the  high 
,-  byte 

;  else  add  one  to  high  byte 
j  and  go  back 

;  store  the  low  byte  (high  byte  is  OK) 
;  and  leave  the  routine 


See  also  MULAD2,  MULFP,  MULSHF. 


MULAD2 


Name 

Multiply  two  numbers  with  repeated  addition  (optimized 
version) 

Description 

This  routine  is  basically  the  same  as  MULAD1,  but  the  small- 
er number  is  placed  in  the  X  register  to  speed  up  the  DEX 
loop.  The  larger  number  is  repeatedly  added  to  itself,  and  the 
result  is  stored  in  memory. 

Prototype 

1.  Start  by  storing  the  two  numbers  in  memory. 

2.  Store  zeros  in  the  two  bytes  of  TOTAL. 

3.  Initialize  .Y  to  zero  on  the  assumption  that  the  first  num- 
ber is  larger. 

4.  Load  .X  with  B2  and  compare  it  with  Bl. 

5.  If  B2  is  smaller,  branch  forward  to  step  7. 

6.  Otherwise,  load  .X  with  Bl  and  change  .Y  to  1. 

7.  Load  .A  from  Bl,  indexed  by  .Y. 

8.  Decrement  .X  and  branch  out  of  the  routine  when  it's 
zero. 

9.  Add  the  accumulator  to  B1,Y. 

10.  Increment  the  high  byte  of  TOTAL  whenever  the  carry  flag 
is  set. 


The  routine  MULAD1  is  simpler  than  this  one,  but  MULAD2 
is  faster  in  certain  situations.  Take  the  example  of  252  X  3. 
The  simpler  version  of  MULAD  might  calculate  it  by  adding 
252  to  itself  3  times.  Or  it  might  add  3  to  itself  252  times.  Ob- 
viously, 3  additions  execute  faster  than  252. 

MULAD2  checks  the  size  of  the  two  numbers  and  puts  the 
smaller  into  .X  for  the  main  loop.  The  Y  register  is  used  as  an 
offset  into  the  table  of  numbers;  its  value  is  either  zero  or  one. 

Note:  As  with  MULAD1,  the  larger  the  values,  the  longer 
the  time  needed  to  repeatedly  add  the  two  numbers.  For  val- 


ues  large 
Routine 

r  than  2 

:55,  m 

[ULSHF 

is  preferable. 

cooo 

cooo 
cooo 

L1NPRT 

GETIN 
CHROUT 

SBDCD 

SFFE4 
$FFD2 

;  UNPRT  =  $8E32  on  the  128-ROM 

COM    20   E4  FT 

cm  cs  si 

!  MAIN 

jSR 

BEQ 

CMP 

GETIN 
MAIN 
ff81 

;  get  a  key 

;  wait  until  there's  one  there 
j  check  for  Q  (quit) 
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C007 

FO 

3D 

BEQ 

QUIT 

C009 

8D 

77  CO 

STA 

Bl 

COOC 

20 

E4  FF 

M2 

JSR 

GET1N 

FO 

FB 

BEQ 

M2 

COH 

C9 

51 

CMP 

*81 

C013 

FO 

31 

BEQ 

QUIT 

C015 

8D 

78  CO 

STA 

B2 

C018 

AE 

77  CO 

LDX 

Bl 

COIB 

A9 

00 

LDA 

#0 

CO  ID 

20 

CD  BD 

JSR 

LINPRT 

C020 

A9 

2A 

LDA 

«42 

C022 

20 

D2  FF 

JSR 

CF1R0UT 

C025 

AE 

78  CO 

LDX 

Bp 

C028 

A9 

00 

LDA 

is 

C02A 

20 

CD  BD 

JSR 

LINPRT 

C02D 

A9 

3D 

LDA 

#61 

C02F 

20 

D2  FF 

JSR 

CHROUT 

C032 

20    47  CO 

JSR 

MULAD2 

C035  AE 

79  CO 

 -  A 

C038 

7A  CO 
CD  BD 

LDA 

TOTAL+1 

C03B 
C03E 

JSR 
LDA 

LINPRT 

A9 

OD 

•13 

C040 

20 

D2  FF 

JSR 

CHROUT 

C043 

4C 

00  CO 

JMP 

MAIN 

C046 

60 

QUIT 

RTS 

C047 

A9 

MULAD2 

LDA 

#0 

C049 

8D 

79  CO 

STA 

TOTAL 

C04C 

8D 

7A  CO 

STA 

TOTAL +] 

C04F 

AS 

TAY 

C05O 

AE 

78  CO 

LDX 

B2 

C0S3 

FO 

77  CO 

BEQ 

MULEND 

C055 

EC 

CPX 

Bl 

C058 

90 
AE 

07 

BCC 

GOAHEAD 

C05A 

77  CO 

LDX 

Bl 

COSD 

FO 

17 

BEQ 

MULEND 

C05F 

AO 

01 

LDV 

#1 

C061 
C064 
C065 
C067 


B9    77    CO   GOAHEAD  LDA  B1,Y 


CA  LOOP 

FO  OC 

IB 

79  77  CO 

90  F7 

EE  7A  CO 

4C  64  CO 

8D  79    CO  MULSTR 


DEX 

BEQ  MULSTR 
CLC 

ADC  B1,Y 

BCC  LOOP 

INC  TOTAL+1 

JMP  LOOP 

STA  TOTAL 


MULEND  RTS 


00 

C079    00  00 


Bl 

B2 

TOTAL 


.BYTE  0 
.BYTE  0 
BYTE  0,0 


;  store  it  in  byte  1 
;  get  another  key 

;  check  Q  again 

;  store  in  byte  2 


;  print  number  1 
.  the  *  character 
;  print  it 

i  second  number 

;  print  it  also 
;  equal  sign 
;  print  it 

;  multiply  the  numbers 

:  low  byte 

;  high  byte 

;  print  It 

;  <RETURN> 

;  print  and 


;  clear  onl 

;  low  byte  of  TOTAL 
;  and  high  byte 


;  zero  into  .Y  also 

j  check  B2 

;  if  zero,  quit 

;  is  it  smaller  than  Bl? 

;  yes,  continue 

;  else,  Bl  is  the  counter 

;  if  zero,  no  need  to  multiply 

;  and  .Y  is  one  instead  of  zero 

r' 

;  get  the  bigger  number  for  adding 
;  check  for  possibility  .X  is  one 
;  if  zero,  store  the  low  byte 

•  pIhp 
,  CISC 


clear,  OK 
-1  high  byte 

;  store  the  low  byte 
;  and  return 


MULSHF. 
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MULFP 


Name 

Multiply  two  floating-point  numbers 
Description 

The  example  program  multiplies  two  numbers  in  floating-point 
format.  It  relies  heavily  on  ROM  routines. 

Prototype 

1.  Put  one  number  in  floating-point  accumulator  1  (FAC1). 

2.  Put  the  other  in  FAC2. 

3.  Call  the  FMULT  routine.  The  result  is  in  FAC1. 

The  framing  program  sets  up  the  numbers  10,000  and  11,111 
in  the  two  floating-point  accumulators  and  multiplies  them. 
The  answer  is  printed  to  the  screen. 

The  various  ROM  routines  include  GIVAYF  (translate  an 
integer  from  .A  and  .Y  to  a  floating-point  number  in  FAC1), 
MOVEF  (move  the  contents  of  FAC1  to  FAC2),  FMULT  (mul- 
tiply FAC1  by  FAC2),  and  FOUT  (convert  FAC1  to  ASCII 
numbers). 

Most  of  the  time,  you  can  write  programs  using  integer 
values  only.  But  if  you  find  the  need  for  floating-point  num- 
bers, it's  generally  easier  to  use  the  built-in  ROM  routines  in- 
stead of  writing  your  own.  For  a  complete  list  of  ROM 
routines  and  documentation  on  how  they  work,  see  Mapping 
the  Commodore  64  and  Mapping  the  Commodore  128  (both  from 
COMPUTE!  Publications). 


cooo 
cooo 
cooo 

cooo 

cooo 

cooo 


ZP 

CHROUT 
FMULT 

MOVEF 

GIVAYF 

FOUT 


COOO  A9  27 

C002  AO  W 

C004  20  91  B3 

C007  20  OF  BC 

C00A  A9  2B 

C00C  AO  67 


$FB 

SFFD2 

$BA30 

SBCOF 

SB391 

$BDDD 


LDA  «>10000 

LDY  *<10000 

JSR  GIVAYF 

LDA  #>11111 

LDY  #<U111 


onPthet128-convOTt  FAC1 


;  FMULT  =  S8A0B  on  the  128— multiply 
;  FAC2  and  FAC1;  result  in  FAC1 
;  MOVEF  —  S8C3B  on  the  128— move  FAC1 
:  to  FAC2 

:  GIVAYF  =  SAF03  on  the  128— convert 
;  to  ASCII  string 

;  Convert  the  numbers  10000  and  11111  to 
;  floating  point  and  multiply. 
|  high  byte  of  10000 
;  low  byte 

;  convert  it;  now  it's  in  FAC1 
:  move  FAC1 
;  high  byre  of  l: 
i  low  byte 
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i_Uut     20  9] 

B3 

JSR 

GIVAYF 

ICS 

JSR 

C014    20  DD 

BD 

FOUTP 

C017    85  FB 

STA 

ZP 

7P.L  | 

CO  IB    AO  00 

LDY 

#0 

C01D  Bl  FB 

PRTLOP 

LDA 

(ZP),Y 

COIF    DO  01 

BNE 

PRNIT 

C02I  60 

RTS 
JSR 

C022    20  D2 

FF 

PRNIT 

CHROUT 

C025  C8 

INY 

C026    DO  F5 

BNE 

PRTLOP 

C028  60 

RTS 

C029    20  30 

BA 

MULFP 

JSR 

FMULT 

C02C  60 

RTS 

;  convert  it 

j  FAC2  now  holds  1O000,  and  FAC1  holds 
;  11111. 

;  convert'  to  ASCII 


;  multiply  FAC2  by  FAC1 
;  the  reralt  i»  in  FACl 


See  also  MULAD1,  MULAD2,  MULSHF. 


MULSH  F 


Name 

Multiply  two  unsigned  integer  values  using  bit  shifts 
Description 

MULSHF  is  a  little  more  complex — and  more  difficult  to 
understand — than  the  routines  that  multiply  with  successive 
additions  (MULAD1  and  MULAD2),  but  it's  much  faster  if 
you  have  large  numbers  to  multiply. 

Prototype 

1.  Start  with  the  two  numbers  to  be  multiplied  in  Bl  and  B2 
(16  bits  each). 

2.  Store  zeros  in  the  32  bits  of  TOTAL. 

3.  Copy  B2  to  WORK,  a  temporary  storage  area. 

4.  Store  the  number  of  bits  to  shift  in  COUNTR. 

5.  Shift  WORK  to  the  left. 

6.  If  the  carry  flag  is  clear,  skip  step  7. 

7.  If  it's  set,  add  Bl  to  TOTAL. 

8.  Decrement  the  counter.  If  not  zero,  multiply  TOTAL  by  two 
with  right  shifts. 

9.  H  it  is  zero,  exit.  Otherwise,  branch  back  to  step  5. 

Explanation 

An  expanded  diagram  of  multiplying  two  four-bit  numbers 
may  be  helpful: 

1  1110 

B2  1011 

S4  1110 

S3  1110 

S2  0000 

SI  1110 
TOTAL  10011010 

Start  with  the  TOTAL  equal  to  zero.  Shift  B2  to  the  left, 
and  a  one  appears  in  the  carry  flag.  That  means  it's  time  to 
add  Bl  to  the  total,  which  becomes  SI  (00001110).  There's 
more,  so  shift  the  total  to  the  left  (00011100).  Shift  B2  left 
again.  This  time  there's  a  zero,  so  skip  the  addition,  but  shift 
TOTAL  left  again  to  become  subtotal  2— S2  (00111000).  Shift 
B2  left  again,  and  carry  is  set;  so  add  1110  (01000110)  and 
shift  it  left  (10001100).  Finally,  shift  B2  the  final  time,  and 
carry  is  set,  so  add  one  more  time  (10011010),  but  don't  shift 
the  total  to  the  left  because  it's  the  last  addition. 

By  the  same  logic,  multiplying  16-bit  numbers  requires  16 
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shifts.  Bl  and  B2  each  have  16  bits,  so  the  total  needs  32  bits. 
Note  in  the  example  above  that  multiplying  two  4-bit  numbers 
yields  an  8-bit  result.  In  general,  when  you  multiply  two  num- 
bers of  a  given  size,  the  largest  possible'  result  will  need  dou- 
ble the  number  of  bits.  (Multiplying  two  8-bit  numbers  results 
in  a  number  that  may  be  as  large  as  1  ' 
Routine 


cooo 

C002 
C004 


COOA 
COOD 
C010 
C013 


AO  03 
A9  00 
99  5C 
SS 

10  FA 
AD  58 
8D  SA 
AD  39 
8D  5B 


MULSHF 


CO  ZOUT 


CO 
CO 
CO 
CO 


C016    A9  10 

8D  55  CO 


C01B 

C01E 

C021 

C023 

C024 

C027 

C02A 

C02D 

C030 

C033 
C036 


MULLP 


OE    5A  CO 

2E    5B  CO 
90  ID 
18 

AD  56  CO 

6D  5C  CO 

8D  5C  CO 

AD  57  CO 

6D  5D  CO 

8D  5D  CO 
90  08 

EE  5E  CO 
DO  03 

EE   5F  CO 


COM  CE  55  CO  BIGSHF 

C043  DO  01 

CMS  60 

C046  OE    5C  CO  SHIFIT 

C049  2E    5D  CO 

CMC  2E    5E  CO 

C04F  2E    5F  CO 

C052  4C    IB  CO 


C055  00 

C056  7D  00 

C058  58  02 

£  I  °5 


COUNTR 

Bl 

B2 

WORK 
00  TOTAL 


LDY 

#3 

LDA 

#0 

STA 

TOTAL,Y 

BPL 

ZOUT 

LDA 

B2 

STA 

WORK 

LDA 

B2+1 
WORK  +  1 

STA 

mi 

Wlb 

rniium 
V.UUIN  I  K 

S?A 

ASL 

WORK 

ROL 

WORK+1 

blCabrlr 

CLC 

LDA 

Bl 

ADC 

TOTAL 

STA 

TOTAL 

LDA 

Bl+1 

ADC 

TOTAL+1 

STA 

TOTAL +1 

BCC 

BIGSHF 

INC 

TOTAL +2 

BNE 

BIGSHF 

INC 

TOTAL+3 

DEC 

COUNTR 

BNE 

SHIFIT 

RTS 

ASL 

TOTAL 

ROL 

TOTAL+1 

ROL 

TOTAL +2 

ROL 
JMP 

TOTAL+3 
MULLP 

BYTE 

o 

.BYTE  125,0 

-BYTE 

88,2 

.BYTE 

0,0 

-BYTE 

0.0,0,0 

;  four  bytes 

;  zero  out  TOTAL 

;  store  II 

;  count  down 

;  and  loop  back 

;  copy  B2  to  WORK 


;  there  are  16  shifts,  so 
j  set  np  a  counter 

;  shift  the  low  byte 

;  into  the  high  byte 

j  if  the  bit  is  off,  skip  the  add 

;  clear  carry  before  add 

:  low  byte 

;  add  to  TOTAL  (low) 
;  store  it 

;  second  byte  of  four 
;  store  it 

;  if  carry  clear,  branch  forward 
;  else  add  1  to  third  byte 
;  if  not  zero,  skip  the  fourth 
;  else,  < 


;  count  down 
;  shift  it  if  there's  more 
;  else,  quit 
;  multiply  by  2 
;  all... 
;  four... 
;  bytes 


;  vaiue  of  1 25 
:  value  of  600 


e  also  MULAD1,  MULAD2,  MULFP. 
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Name 

Move  a  block  of  data  upward  in  memory 
Description 

MVU64  moves  a  block  of  data  in  memory  from  a  lower  to  a 
higher  address  on  the  64,  even  if  the  two  blocks  overlap.  This 
routine  can  be  used  to  relocate  other  machine  language 
routines,  as  in  the  program  below,  or  to  move  text  and 
numerical-data  tables.  Assuming  your  source  and  destination 


l  t 


Prototype 

1.  Store  the  ending  address  for  the  source  block  (BLOCK  1)  in 
ZP  and  the  ending  address  for  the  target  block  (MEMSIZ-1) 
in  ZP  +  2. 

2.  Store  the  number  of  bytes  to  move  down  (NUMBER,  as  cal- 
culated by  the  assembler)  in  .X  (low  byte)  and  .Y  (high 
byte). 

3.  Store  the  number  of  bytes  to  move,  currently  in  .X  and  .Y, 
into  a  two-byte  counter  (COUNTR). 

4.  Using  indirect  addressing  in  UPLOOP,  transfer  bytes  from 
the  source  memory  block  (at  ZP)  to  the  target  memory 
block  (at  ZP+2).  ' 

5.  Decrease  both  zero-page  pointers  by  one  with  the  sub- 
routine SUBONE. 

6.  Decrement  the  bytes  counter  (COUNTR)  continuing 
UPLOOP  until  all  bytes  from  the  source  block  have  been 
moved.  Then  RTS. 

Explanation 

In  the  program  below,  MVU64  moves  a  relocatable  ML  pro- 
gram (the  16-byte  CYCLE)  to  the  top  of  BASIC.  To  guarantee 
that  CYCLE  moves  up  in  memory,  assemble  this  program  in 
the  cassette  buffer  at  828. 

In  moving  memory,  MVU64  works  backwards  in  memory 
from  the  end  of  the  source  block,  transferring  a  byte  at  a  time. 
Each  byte,  loaded  from  the  source  block,  is  in  turn  stored  in 
the  next-lowest  position  in  the  target  block,  until  the  entire 
block  has  been  transferred. 

In  this  program,  we're  locating  CYCLE  at  the  top  of 
BASIC  memory,  so  we  use  the  top-of-BASIC  pointer,  or 
MEMSIZ,  to  determine  the  end  of  the  target  block.  Since 
MEMSIZ  actually  points  to  the  byte  beyond  the  1 
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byte  in  the  BASIC  text  area  (normally,  40960),  we  subtract  one 
before  storing  it  to  ZP+2. 

Once  CYCLE  is  positioned  at  the  top  of  BASIC,  MEMSIZ 
is  adjusted  to  protect  the  relocated  program  from  BASIC.  At 
the  same  time,  its  SYS  address  is  printed.  To  satisfy  yourself 
that  CYCLE  has  properly  relocated,  look  at  the  16  bytes  of 
memory  beginning  with  the  SYS  address,  or  simply  SYS  to  it. 

If  you  want  to  use  MVU64  to  move  memory  down, 
switch  the  source  and  target  block  addresses  stored  in  zero 
page.  In  other  words,  store  the  ending  address  for  the  source 
block  in  ZP+2,  and  the  ending  address  for  the  target  block  in 
ZP.  For  this  approach  to  be  successful,  the  two  memory  blocks 
must  not  overlap. 

NOTE:  Unlike  some  memory-move  routines  (see  SWAPIT), 
MVU64  lacks  error  checking.  So  it's  up  to  you  to  make  sure 
the  relative  positions  of  the  two  memory  blocks  fulfill  the 
requirements  of  the  routine. 

There  is  a  BASIC  ROM  routine  at  $A3BF  (about  50  bytes 
in  length)  on  the  64  which  will  move  memory  up.  Much  like 
MVU64,  if  the  source  and  destination  blocks  don't  overlap,  it 
also  can  move  memory  down.  To  implement  it,  load  $5F-$60 
with  the  starting  address  of  the  source  block,  load  $5A-$5B 
with  the  source  block's  ending  address  plus  1,  and  load 
$58-$59  with  the  destination  block's  ending  address  plus  1. 
Then  JSR  to  $A3BF. 

Routine 


033C 


033C 
033C 
033C 


ZP 

GETIN 

CHROUT 

L1NPRT 

EXTCOL 

MEMSIZ 


033C    20    60  03 


033F    20  7A  03 

0342    AO  00 

0344     B9  A8  03 

0347    F0  06 

0349  20  D2  FF 
034C  C8 

034D    DO  F5 
034F  18 

A5  FD 

69  01 


85 


251 

65508 

65490 


55 


ISR  MUINIT 

JSR  MVTJ64 

LDY  #0 

LDA  SYSMSGY 

BEQ  EXITPR 

ISR  CHROUT 


ZP+2 
ADC  #1 

STA  MEMSIZ 


;  BASIC  two-byte  number  output 
;  border -color  register 
;  top-of-BASIC  pointer 

;  Move  a  relocatable  ML  program  to  the  top 
;  of  BASIC  memory. 

;  Initialize  zero-page  pointers  and  get  number 

;  of  bytes  to  move 

;  move  the  program  up 

;  as  an  index  in  PRTLOP 

;  get  a  character  from  SYSMSG 

;  if  a  zero  byte,  then  exit  PRTIOP 

;  print  the  character 

;  for  next  character 

;  branch  always 

;  for  addition 

;  get  the  low  byte  of  relocated  ML  program 
;  add  one  since  decremented  in  SUBONE  one 
;  time  too  many 
;  at  the  same  time,  protect  t 
;  from  BASIC 


0356  AA  TAX 

0357  AS  FE  LDA  ZP+3 
0359  69   00  ADC  #0 

035B  85    38  STA  MEMS1Z+1 

035D  4C   CD  BD  NUMOUT   JMP  LINPRT 


0360  A9  D6 

0362  85  FB 

0364  A2  03 

0366  86  FC 


MUTNIT  LDA 


A5  37 

E9  01 

036D    85  FD 

A5  38 

E9  00 

85  FE 

A2  10 


0369 


036F 
0371 
0373 


AO  00 


037A  8E  A6  03  MVU64 

037D  8C  A7  OJ 

0380  AO  00 

0382  Bl  FB  UPLOOP 

0384  91  FD 

0386  20  99  03 

0389  CE  A6  03 

038C  DO  F4 

038E  CE  A7  03 

0391  AD  A7  03 

0394  C9  FF 

0396  DO  EA 

0398  60 


SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDX 

LDY 
RTS 


STX 
STY 
LDY 
LDA 
STA 

JSR 
DEC 


CMP 
BNE 
RTS 


;  for  low  byte  of  LTNPRT 

:  get  the  high  byte  of  relocated  program 

;  add  the  carry  flag  value 

;  print  the  SYS  address  and  RTS 

■  Initialize  ZP  pointers  to  end  of  BLOCK  1  and 
;  top  of  BASIC.  Two  bytes  at 
;  ZP  point  to  source,  and  two  at  ZP+2  point 
;  to  target.  Also,  put  number  of 
I  bytes  to  move  in  .X  and  .Y. 
;  low  byte  of  BLOCK  1  first 


MEMS1Z 
#1 

ZP+2 
MEMSIZ+1 


:  Now  store  ending  address  of  target  block  in 
!  ZP+2.  ZP+3. 

i  Subtract  one  from  top-of-BASIC  pointer  so 
:  it  points  to  available  storage. 


!  pointer 


;  subtract  one  from  low  byte 
;  and  store  result  in  zero  r~- • 


get  the  high  byte  for  to 
to  subtract  carry 
and  stor»  the  result 
put  low  byte  of  number  of  bytes 
;  in  .X 

#>NUMBER     ;  and  high  byte  in  .Y 


ZP+3 


COUNTR 

COUNTR+1 

#0 

<ZP),Y 
<ZP+2),Y 

SUBONE 
COUNTR 
UPLOOP 


#255 
UPLOOP 


0399  C6  FB 

039B  DO  02 

039D  C6  FC 

039F  C6  FD 

03A1  DO  02 

03A3  C6  FE 

03A5  60 


SUBONE     DEC  ZP 

BNE  DECTAR 


DECTAJR 


SB  EXIT 


DEC  ZP+1 

DEC  ZP+2 

BNE  SBEXIT 

DEC  ZP+3 
RTS 


Move  bytes  up.  Enter  with  the  number  of 

bytes  to  move  in  .X  (low)  and 

.Y  (high).  End  of  source  block  is  in  two 

bytes  at  ZP,  and  target  in  ZP+2. 

First  store  number  to  COUNTR. 

store  number  to  COUNTR,  low  byte  first 

high  byte's  In  .Y 

as  an  index  in  UPLOOP 

gel  a  byte  from  end  of  source  block 

store  it  al  the  end  of  target  block  (top  of 

BASIC) 

decrease  ZP  pointers  by  one 
decrement  counter  low  byte 
if  low  byte  hasn't  turned  over,  continue 
memory  up 

se,  decrement  the  high  byte 
check  the  high  byte  to  see  if  we've 
reached  the  last  page 
on  Ihe  last  page,  high  byle  goes  ( 
if  not  last  page,  continue 


;  Decrement  zero-page  pointers  by  one. 
;  decrement  low  byte  of  source 
;  if  it  hasn't  turned  over,  handle  target 
;  pointers 

;  decrement  high  byte 

;  do  the  same  for  target  pointers 

;  if  hasn't  turned  over,  exit  SUBONE 

;  decrement  high  byte,  if  necessary 
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03A6  00  00  COUNTR 
03A8  54  4F  20  SYSMSG 
03C6  00 


03C7  20  E4    FF  CYCLE 

03CA  FO  FB 

03CC  C9  OD 

03CE  FO  06 

03D0  EE  20  DO 

03D3  3« 

03D4  BO  Fl 

03D6  60  BLOCK1 


.WORD  0 

.ASC    "TO  RUN 

.BYTE  0 


JSR  GETIN 

BEQ  CYCLE 

CMP  #13 

BEQ  BLOCK1 
INC 


03D7 


NUMBER 


BCS  CYCLE 


:  two-byte  counter  for  remaining  #  of  bytes 
;  to  move  down 
RELOCATED  PROGRAM,  SYS  " 
;  SYS  message 
;  terminator  byte 
< 

;  Relocatable  program  to  cycle  border  color 
;  on  a  keypress.  Quit  on  RETURN. 
■  check  for  a  keypress 


;  otherwise,  cycle  border  color 
;  to  always  cause  a  branch 

1 1*"  byte  of  cycle  routine  is  BLOCK1 


BLOCK1  -  CYCLE  +  1 

;  let  assembler 


number 


See  also  MOVEDN,  MVU128,  SWAPIT. 
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Name 

Move  a  block  of  data  upward  in  memory 

MVU128  is  practically  identical  to  the  routine  MVU64  in  form 
and  in  function.  Both  routines  move  a  chunk  of  memory  from 
a  lower  address  to  a  higher  address.  And  both  can  be  used  to 
move  memory  down,  provided  the  two  memory  blocks — source 
and  destination — don't  overlap. 

Prototype 

This  is  a  two-part  routine.  In  the  initialization  routine 
MUINIT: 

1.  Store  the  ending  address  for  the  source  block  (BLOCK1)  in 
ZP  and  the  ending  address  for  the  target  block  (FRERAM) 
in  ZP+2. 

2.  Store  the  number  of  bytes  to  move  down  (NUMBER,  as  cal- 
culated by  the  assembler)  in  .X  (low  byte)  and  M  (high 


In  MVU128: 

1.  Store  the  number  of  bytes  to  move,  currently  in  .X  and  .Y, 
into  a  two-byte  counter  (COUNTR). 

2.  Using  indirect  addressing  in  UPLOOP,  transfer  bytes  from 
the  source  memory  block  (at  ZP)  to  the  target  memory 
block  (at  ZP+2). 

3.  You  can  move  memory  up  from  one  bank  to  another  by  de- 
fining BNKSRC  (source  bank  number)  and  BNKTAR  (target 
bank  number)  at  the  end  of  the  program.  Replace  the  LDA 
(ZP),Y  at  UPLOOP  with  the  three  instructions  that  follow  it 
in  the  listing  (currently  in  the  form  of  comments)  and  the 
STA  (ZP+2),Y  just  below  this  with  the  next  four  instruc- 
tions (also  given  as  comments). 

4.  Decrease  both  zero-page  pointers  by  one  with  the  sub- 
routine SUBONE. 

5.  Decrement  the  bytes  counter  (COUNTR),  continuing 
UPLOOP  until  all  bytes  from  the  source  block  have  been 
moved.  Then  RTS. 

Explanation 

The  example  program  is  much  like  the  one  that  illustrates 
MVU64.  In  both  cases,  we're  moving  the  relocatable  ML  rou- 
tine, CYCLE,  higher  in  memory.  The  only  difference  is  that  in 
this  case  we're  moving  it  to  the  top  of  a  protected  RAM  area, 
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which  begins  at  $1300  (normally,  just  below  BASIC),  whereas 
with  MVU64,  CYCLE  was  moved  to  the  top  of  BASIC  RAM. 
Rather  than  storing  the  end  of  BASIC  pointer  (minus  1)  in 
ZP  +  2,  here  we  load  ZP+2  with  FRERAM  (7167). 

In  both  programs,  the  basic  description  of  the  two 
routines  themselves  is  the  same.  MVU64  has  a  more  thorough 
explanation. 

Since  MVU128  also  uses  zero-page  addressing,  the  routine 
can  be  adapted  to  move  memory  from  bank  to  bank.  This  re- 
quires the  Kernal  routines  INDFET  and  INDSTA.  INDFET  per- 
forms an  indirect  load  into  the  accumulator  from  the  bank  in 
.X,  while  INDSTA  stores  .A  indirecdy  into  the  bank  in  .X.  To 
implement  these  routines,  replace  the  LDA  (ZP),Y  at  $0C3D 
with  the  commented  instructions  that  follow  (UPLOOP  LDA 
#ZP:LDX  BNKSROJSR  INDFET)  and  replace  the  STA  (ZP+2),Y 
at  $0C3F  with  LDX  #ZP+2:STX  697:LDX  BNKTAR:JSR  INDSTA. 
Also  include  the  bank  numbers  for  the  source  (BNKSRC)  and 
target  block  (BNKTAR),  defined  at  the  end  of  the  program. 

Note:  Because  this  routine  doesn't  check  to  see  whether 
the  two  memory  blocks  are  positioned  properly  in  memory,  be 
sure  the  memory  block  in  ZP  is  lower  in  memory  than  the 
block  addressed  by  ZP+2. 


;  Kernal  routine  to  load  indirectly  from  any 


Routine 

ocoo 

ZP 

251 

ocoo 

GETTN 

65508 

ocoo 

INDFET  = 

65396 

ocoo 

INDSTA  - 

65399 

ocoo 

CHKOUT  — 

65490 

ocoo 

F.XTCOL 

53280 

ocoo 

LINPRT  = 

36402 

ocoo 

FRERAM  = 

7167 

;  Kemal  routine  to  store  indirectly  to  any 
;  bank 

;  border  color  register 

;  top  of  a  free  memory  area  protected  from 


OCOO    20    20  0C 


0C03 
0CO6 


OC10 
0C11 
0C13 
0C14 
0C16 


35  OC 
00 

63  0C  SYSLOP 
06 

D2  FF 


EXITPR 


0C18  AA 
370 


|SR  MUINTT 


MVU128 

#0 

SYSM5G.Y 


TAX 


;  Move  a  relocatable  ML  program  up  to  the 

;  top  of  free  RAM  area  at  $1300. 

;  initialize  zero-page  pointers  and  ge(  number 

;  of  bytes  to  move 

;  move  the  program  up 

;  as  an  Index  in  PRTLOP 

;  get  a  character  from  SYSMSG 

;  if  a  zero  byte,  then  exit  PRTLOP 

;  print  the  character 

!  for  next  character 

;  branch  always 

;  for  addition 

;  get  the  low  byte  of  relocated  ML  program 
;  add  1  since  decremented  in  SUBONE  one 
i  time  too  many 
;  for  low  byte  of  LINPRT 


MVU128  (128  only) 


0CI9    A5  FE  LDA  ZP+3 

OCIB  69   00  ADC  #0 

0C1D  AC  32    8E    NUMOUT    IMP  LINPRT 


0C20  A9  91 

0C22  85  FB 

0C24  A2  OC 

0C26  86  FC 


0C28  A9  FF 

0C2A  85  FD 

OQC  A9  IB 

0C2E  85  FE 

0C30  A2  10 


MUINIT 


LDA 

STA 
LDX 
STX 


LDA 
STA 
LDA 
STA 
LDX 


#<BLOCKl 
ZP 

#>BLOCKl 
ZP+1 


,-  get  the  high  byte  of  relocated  program 

:  add  the  cam-  flag  value 

;  print  the  SYS  address  and  RTS 

;  Initialize  ZP  pointers  to  end  of  BLOCK1  and 
;  FRERAM.  Two  bytes  at 
;  ZP  point  to  source,  and  two  at  ZP+2  point 
;  to  target.  Also,  put  number  of 
;  bytes  to  move  in  .X  and  .Y. 
;  low  byte  of  BLOCK1  I 

;  then  high  byte 


;  Now  store  ending  address  of  target  block 
;  in  ZP+2,  ZP+3. 
#<FRERAM    ;  get  low  byte  of  top  of  free  RAM 
ZP+2  ;  and  store  it 

#>FRERAM     ;  get  high  byte  of  top  of  free  RAM 
ZP+3  ;  and  store  It 

#<NUMBER  ;  put  low  byte  of  number  of  bytes  to  move 
#>NUMBER    •  andhigh  byte  in  .Y 


0C35 
0C38 


8E  61 
BC  62 


OC 

OC 


MVU128 


0C3B  AO  00 
0C3D  Bl  FB 


UPLOOP 


STX 
STY 

■ 


COUNTR 
COUNTR+1 

#0 

(ZP),Y 


OOF    91  FD 


STA  (ZP+2),Y 


0C41  20  54  0C 
0C44  CE  61  0C 
0C47    DO  F4 


JSR  SUBONE 
DEC  COUNTR 
BNE  UPLOOP 


9  CE  62  0C 
0C4C    AD  62  0C 


DEC 
LDA 


COUNTR+1 
COUNTR+1 


;  Move  bytes  up.  Enter  with  the  number  of 

;  bytes  to  move  in  J<  (low)  and 

;  .Y  (high).  End  of  source  block  is  in  two 

;  bytes  at  ZP.  and  target  in  ZP+2. 

:  First  store  number  to  COUNTR. 

;  store  number  to  COUNTR,  low  byte  first 

■  high  byte's  in  .Y 

;  as  an  index  in  UPLOOP 
;  get  a  byte  fro 

;  Substitute  the  next  three  lines  for  the 
;  previous  line 

f  to  move  memory  from  bank  to  bank- 

;  UPLOOP  LDA  #ZP;  put  zero  page  pointer 

;  to  end  of  source  in  .A 

;  LDX  BNKSRC;  bank  number  for  source 

;  JSR  INDFET;  load  Indirectly  from  bank  .X 

;  at  the  end  of  source 

!  gm^t  the  end  of  target  block  (top  of 

;  Again,  substitute  the  next  four  lines  for 

;  the  previous  line 

;  to  move  from  bank  to  bank. 

;  LDX  #ZP+2;  put  zero-page  pointer  to 

;  target  address  in  697 

;  STX  697 


;  .X  at  end  of  target 

i 

;  decrease  ZP  pointers  by  one 

;  decrement  counter  low  byte 

;  if  low  byte  hasn't  turned  over,  continue 

;  moving  memory  up 

;  otherwise,  decrement  the  high  byte 

;  check  the  high  byte  to  see  whether  we've 
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MVU128  (128  only) 


0C4F    C9  FF 
EA 


0CS1  DO 
0C53  60 


0C58  C6 

0C5A  C6 

0C5C  DO 

0C5E  C6 

0C60  60 

0C61  00 

0C63  54 

0C81  00 


FB 
02 

FC 
FD 


CMP  #255 
BNE     UP  LOOP 


DEC  ZP 
BNE  DECTAR 


;  reached  ihe  list  pag 


;25S 


.  byte  goes  from  0  lo 


last  page,  continue 


j  Decrement  zero-page  pointers  by  one. 
;  decrement  low  byte  of  source 


i  over,  handle  target 


00 
4F 


20 


DECTAR 

SBEXIT 

COUNTR 

SYSMSG 


DEC 
DEC 


ZP+1 
ZP+2 


DEC  ZP+3 
RTS 

.WORD0 


;  if  it  hasn't  t 
;  pointers 
;  decrement  high  byte 
;  do  the  same  for  target  pointers 
;  if  hasn't  turned  over,  exit  SUBONE 
;  decrement  high  byte,  if  necessary 


0C82 

20 

E4    FF  CYCI 

£  ISR 
BEQ 

GETIN 

0C85 

F0 

FB 

CYCLE 

0C87 

C9 

0D 

CMP 

#13 

0C89 

F0 

06 

BEQ 

BLOCK  1 

0C8B 

EE 

20  DO 

INC 

EXTCOL 

0C8E 

38 

SEC 

0C8F 

B0 

Fl 

BCS 

CYCLE 

0C91 

60 

BLOC 

m  rts 

0C92 

NUM 

BER  = 

BLOCK1 

;  two-byte  counter  for  i 
;  bytes  to  move  down 
-ASC    "TO  RUN  RELOCATED  PROGRAM.  SYS  * 

;  SYS  message 
BYTE  0  ;  terminator  byte 

.-  BNKSRC  .BYTE  0;  tl 

i  BNKTAR  BYTE  0;  the  bank  number  where 
;  target  is 

;  Relocatable  program  to  cycle  border  color 
;  on  a  keypress.  Quit  on  RETURN. 
•  check  for  a  keypress 
;  no  keypress 
:  quit  on  RETURN 


:othe 
;lo  al 


ays  cause  a  branch 


;  last  byte  of  cycle  routine  is  BLOCK1 

!  +  1 
t  assi 
;  cycle 


See  also  MOVEDN,  MVU64,  SWAPIT. 


NMIINT 


Name 

Set  up  an  NMI  interrupt  routine 
Description 

NMIINT  redirects  the  NMI  interrupt  vector  to  your  own  rou- 
tine. This  lets  you  wedge  a  custom  routine  into  the  normal 
NMI  interrupt  handler. 

Prototype 

Store  the  address  of  your  custom  NMI  routine  into  the  NMI 
interrupt  vector  and  return  to  the  calling  program. 

Explanation 

The  following  program  shows  how  to  insert  your  own  NMI 
interrupt  routine  (here,  WEDGE).  Once  NMIINT  has  stored 
the  address  of  your  routine  into  the  NMI  interrupt  vector  at 
792,  anytime  an  NMI  interrupt  occurs — for  instance,  when 
you  press  RESTORE — your  routine  will  execute  before  the  nor- 
mal interrupt  handler  is  serviced. 

In  this  case,  within  WEDGE,  the  cursor,  border,  and  back- 
ground colors  for  the  screen  are  reset  to  the  default  values  de- 
fined at  the  end  of  the  program  (in  DCOLOR,  DEXTCL,  and 
DBGCOL).  Currently,  the  background  and  border  colors  de- 
fault to  black  while  the  cursor  becomes  light  blue.  If  you'd 
prefer  different  colors,  substitute  the  appropriate  color  values 
found  in  the  table  under  COLFIL. 

The  64  requires  that  certain  registers — specifically,  the  A, 
X,  arid  Y  registers— be  maintained  while  the  NMI  interrupt  is 
being  serviced.  At  the  outset  of  WEDGE,  then,  these  registers 
are  saved  on  the  stack.  And  at  the  end  of  the  routine,  they're 
restored. 

The  128  also  maintains  these  registers,  along  with  the  cur- 
rent bank  configuration,  while  the  NMI  interrupt  is  serviced. 
But  on  the  128,  these  registers  are  actually  saved  prior  to 
jumping  through  the  NMI  interrupt  vector.  Consequently,  you 
don't  have  to  worry  about  maintaining  them  yourself  during 
the  custom  interrupt  routine. 

Routine 

COOO  NMTVEC     -  792 

C0O0  NMINOR     -  65095 

COOO  COLOR        -  646 

COOO  EXTCOL       -  53280 

COOO  BGCOL0       =  53281 
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;  vector  to  nonmaskable  interrupt  routine 
.-  NMINOR  =  64064  on  the  128— normal 
;  NMI  handler  routine 
;  COLOR  -  241  on  the  128-ouient  text 

i  screen  background  color  register 

: 


NMIINT 


COOO    A9  OB  NMIINT      LDA  #<WEDGE 


C002  8D  18  0 

COOS  A9  CO 

C007  8D  19  0 

CCOA  60 


COOB  48 

COOC  8A 

COOD  48 

COOE  98 

COOF  48 


C010  AD  2A  CO 

CO  13  8D   86    02  TXTCOL 

C016  AD  2B  CO 

C019  8D  20    DO  BORCOL 

C01C  AD  2C  CO 

COIF  8D   21    DO  BCKCOL 

C022  58 

C023  A8 

C024  68 

C025  AA 

C026  68 

C027  4C   47  FE 


STA  NMIVEC 

LDA  #>WEDGE 

STA  NMIVEC+1 
RTS 


FHA 

TYA 


LDA  DCOLOR 
"  DLOR 


;  Set  default  screen,  border,  cursor  color  on 
;  RESTORE  key. 

j  redirect  NMI  vector  to  our  routine,  low 
;  byte  first 

;  then  high  byte 

;  we're  done 

;  Restore  default  colors. 

;  push  ,A.  .X.  and  Y  onto  the  stack  (not 

;  necessary  on  the  128) 

;  push  X 

;  push  ,Y 

;  Now  restore  colors, 
;  cursor  first 

;  then  border  color 

:  and  lastly,  screen  color 

;  restore  the  registers  Y,  X.  and  A  (not 
;  necessary  on  the  128) 
;  .Y  firs! 


.  .  


-A 


NMI  handler 


C02A  OE 
C02B  00 
C02C  00 


DCOLOR 
DEXTCL 


.BYTE  14 
BYTE  0 
.BYTE  0 


See  also  IRQINT,  RAS64,  RAS128. 


;  default  cursor  color  of  light  blue 
;  default  border  color  of  black 
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NOTETB 


Name 

Create  a  table  of  standard  frequencies  (eight  octaves  of  12 
notes  each) 

Description 

NOTETB  generates  a  full  table  of  two-byte  frequencies 
representing  the  range  of  notes  played  by  the  SID  chip.  Once 
this  table  has  been  created,  you  can  play  musical  tunes  using 
notes  from  the  table. 

Prototype 

1.  Set  up  a  frequency  table  (OCT7TB)  containing  the  12  stan- 
dard notes  in  the  highest  octave  (octave  7)  and  set  aside 
168  bytes  below  this  for  octaves  0-6  (FREQTB). 

2.  Position  ZP  at  the  beginning  of  OCT7TB,  and  ZP  +  2  at  the 
start  of  what  will  be  the  sixth  octave  in  FREQTB  (24  bytes 
below  OCT7TB). 

3.  Divide  each  two-byte  note  in  OCT7TB  by  2  and  store  the 
result  in  FREQTB  as  the  corresponding  note  in  the  next 
lower  octave. 

4.  Repeat  Step  3,  beginning  with  notes  from  the  next  lower  oc- 
tave each  time,  until  FREQTB  is  complete. 

5.  Return  from  the  routine. 

Explanation 

Each  time  you  drop  down  an  octave,  the  frequency  for  each 
note  within  that  octave  is  half  the  value  of  the  corresponding 
note  in  the  octave  above  it.  NOTETB  uses  this  fact  to  generate 
the  standard  note  table  (FREQTB).  Starting  with  notes  from 
the  highest  octave,  or  octave  7,  two-byte  frequencies  for  each 
note  in  the  octave  below  are  calculated  based  on  the  preceding 
octave.  This  continues  until  the  entire  table — eight  octaves  of 
12  notes  each — is  constructed. 

When  NOTETB  is  added  to  your  music-playing  routines, 
you  can  index  frequencies  from  the  table  it  generates  by  note 
number  without  having  to  type  in  all  the  frequencies  yourself. 

For  instance,  if  you  look  at  the  program  for  MELODY, 
you'll  see  it  uses  a  frequency  table  containing  15  notes  (also 
labeled  FREQTB).  Frequencies  within  this  table  include  all  the 
notes  from  G-4  through  A-5.  In  order  to  reference  the  fre- 
quencies in  this  table,  a  second  table  of  note  numbers 
(NOTES)  is  required. 

In  this  case,  15  frequency  values  is  not  many  to  type 
yourself.  But  if  you  were  playing  more  than  one  song  or  music 


NOTETB 


which  had  a  wider  range  of  notes,  you'd  be  better  off  allowing 
NOTETB  to  build  the  frequency  table  for  you. 

The  frequencies  in  the  note  table  created  by  NOTETB  are 
the  same  as  those  in  the  note  table  provided  in  the  64  and  128 
Programmer's  Reference  Guides.  Both  tables  contain  96  notes. 
As  a  result,  you  can  use  the  tables  in  these  reference  guides  to 
choose  the  appropriate  note  numbers  for  your  music. 

The  only  difference  in  the  tables  in  the  reference  guides 
and  the  one  created  by  NOTETB  (FREQTB)  is  in  the  note- 
numbering  system  used  to  index  the  various  frequencies.  In 
FREQTB,  the  note  numbers  run  continuously  from  0-95.  The 
note  numbers  in  the  reference  guide  tables,  on  the  other  hand, 
jump  by  5  after  each  octave.  Consequently,  the  numbers  range 
from  0-123.  To  convert  a  note  number  from  the  reference 
guide  tables  to  the  number  indexing  the  equivalent  note  in 
FREQTB,  use  the  following  formula: 

NN  =  PRGNN  -  OCTAVE  •  5 

In  this  formula,  PRGNN  represents  the  note  number  taken 
from  the  table  in  the  reference  guide;  OCTAVE,  the  octave 
number  for  the  note  (0-7);  and  NN,  the  number  for  the  same 
note  in  FREQTB. 

For  example,  middle  C  (C-4)  in  the  reference  guide  tables 
is  note  number  64.  To  index  this  same  note  in  FREQTB,  use 
the  number  64  -  4  *  5,  or  44. 


cooo 


ZP 


251 


A9  E8 

C002  85  FB 

COM  A9  CO 

C006  85  FC 

COOS  A9  DO 

C00A  85  FD 

CO0C  A9  CO 

COilt  85  FE 

C010  A2  07 

C012  AO  17 

C014  Bl  FB 

C017  91  FD 

C019  88 


NOTETB     IDA  #<OCT7TB 


;  Create  FREQTB  by  dividing  each  note  in 
;  next  higher  octave  bv  2. 

'•'m  ZP  at  beginning  of  seventh 


STA 
LDA 
STA 
LDA 


LDA 
STA 
LDX 

OCTLOP  LDY 


INLOOP 


LDA 
LSR 
STA 

DEY 


ZP 

#>OCT7TB 
ZP+1 

#<OCT7TB-24;  position  ZP+2  at  beginning  of  sixth 
;  octave 

ZP+2 

#>OCT7TB-24 
ZP+3 

#7  ;  Index  for  the  octaves  0-6 

#23  ;  position  pointer  on  high  byte  of  highest 

;  note  in  octave 
(ZP),Y  ;  get  the  high  byte  of  each  note  in  octave 

;  divide  it  by  2 
(ZP+2),Y        ;  store  as  the  high  byte  of  the  note  in  the 

;  next  lower  octave 

;  decrement  pointer  so  It  addresses  the  low 
;  byte  of  the  note 
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NOTETB 


CO]  A  Bl  FB 

C01C  6A 

COID  91  FD 

COIF  88 

C020  10  F2 


C022 
C023 


BFL  INtOOP 


SEC 
IDA 

SBC 
STA 
LDA 
SBC 
STA 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
DEX 
BNE 
RTS 


ZP 

#24 

ZP 

ZP+1 
#0 

ZP+1 

ZP+2 

#24 

ZP+2 

ZP+3 

#0 

ZP+3 
OCTLOP 


•+168 


IE  86  18  OCT  7TB 
F4    AC  BD  F3 


See  also  BEEPER,  BELLRG, 
SIDVOL,  SIRENS. 


;  get  the  low  byte  of  each  note  in  the 
;  octave 

;  divide  it  by  2,  handling  carry  from  LSR 
;  store  as  the  low  byte  of  the  note  in  the 
;  next  lower  octave 


;  do  until  all  12  two-byte  i 
;  Now  subtract  24  so  ZP  i 
;  next-lower  octaves. 
;  subtract  24  from  ZP 
;  low  byte  first 


;  then  high  byte 


are  handled 
ZP+2  point  to 


;  now  subtract  24  from  ZP+2 
;  low  byte  first 


;  then  high  byte 

;  for  next  lower  octave 

;  seven  octaves  complete  frequency  table 


;  reserve  room 
;  seven  octaves  of  12  tw 
;  OCT7TB  is  table  of  Stan. 
;  frequencies  from  the  si 
539.40830.43258.45830 
1502,57743  "" 


MELODY,  SIDCLR, 
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NUMOUT 


Name 

Print  two-byte  integer  values 


NUMOUT  prints  a  two-byte  integer  value  in  the  range 
0-65535  to  the  screen  (or  to  the  current  output  device).  This 
general  integer-printing  routine  is  good  for  printing  scores  in 
games.  It  can  also  be  useful  for  debugging  programs.  Suppose 
you  want  to  know  the  effect  your  program  is  having  on  a  two- 
-  address  while  the  program  is  running,  t ™    *  '""  T 

s  a 


Prototype 

1.  Enter  with  .X  containing  the  low  byte  and  .A,  the  high  byte 

2.  JMP  to  LINPRT  to  print  the  number3 and  return. 
Explanation 

Relying  on  the  BASIC  ROM  routine  LINPRT  keeps  NUMOUT 
short  and  simple.  If  you're  working  on  a  128,  be  sure  to 
change  the  address  of  LINPRT  to  36402. 

Warning:  If  you  use  NUMOUT  in  a  loop,  index  the  loop 


by  .Y  rather  than  by  .X,  since 
contents  of  the  X  register 

Routine 


cooo 


LINPRT  = 


0C  CO 


LDX 
LDA 
IMP 


48589 


INTGER 


COOT    4C   CD  BD  NUMOUT  JMP 

C00C   55    00  INTGER 

See  also  BYTASC, 


I  LINPRT  =  36402  on  the  128 

;  low  byte  of  integer  85 

i  high  byte  of  85 

;  print  the  number  and  RTS 

!  Print  the  two-byte  irtti 

;  print  the  number  and  RTS 


,  FACPRT. 
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OPENFL 


Name 
Description 

Anytime  you  want  to  read  or  write  data  to  the  disk  in  the 
form  of  either  a  sequential  or  a  program  file,  this  is  the  first 
routine  you'll  need.  OPENFL  opens  a  designated  channel  to 
the  disk  for  data  transfer. 

Prototype 

1.  On  the  128,  set  the  bank  to  15  in  the  program  which  calls 
OPENFL  (see  READBF  or  WRITBF). 

2.  OPEN  1,8,2  with  a  sequential  or  program  filename 
(SETLFS,  SETNAM,  OPEN).  Then  return  to  the  calling 
program. 

3.  On  the  128,  prior  to  SETNAM,  load  the  accumulator  with 
the  bank  for  the  opened  file  and  load  the  X  register  with 
the  bank  containing  the  program  filename.  Then  JSR  to 
SETBNK. 

Explanation 

In  the  example  routine  as  it's  given,  we've  opened  the  sequen- 
tial file  SEQUENTIAL  for  reading  (,S,R).  To  open  a  program 
file  for  reading,  add  the  suffix  ,P,R  to  the  filename.  If  the  file 
that  you  open  is  to  be  written  to,  add  the  suffix  ,S,W  or  ,P,W 
to  the  filename,  depending  on  whether  it's  a  sequential  file  or 
program  file. 

The  logical  file  number  assigned  to  the  open  channel  be- 
low is  1.  Any  number  from  1  through  255  will  suffice,  but  it's 
best  to  use  numbers  less  than  128.  File  numbers  above  127 
may  cause  line  feed  characters  to  be  sent  with  each  carriage 
return  when  performing  a  write  operation. 

For  data  transfers,  any  secondary  address  in  the  range 
2-14  can  be  used.  The  device  number  value  depends  on  how 
your  drive  is  configured,  but  usually  it's  device  8  unless  you 
have  more  than  one  drive. 

On  the  128,  the  program  calling  OPENFL  must  set  the 
computer  to  bank  15  since  Kemal  routines  are  being  used  by 
this  routine.  Also  be  sure  to  set  the  bank  number  where  the 
file  is  opened  with  BNKNUM  and  indicate  to  the  routine  the 
bank  containing  the  filename  by  defining  BNKFNM. 

Note:  Disk  error  checking  can  be  incorporated  into  this 
routine,  if  needed.  At  the  outset,  OPEN  the  error  channel. 


379 


OPENFL 


Add  DERRCK  to  the  end  of  the  program  and  JSR  to  it  just 
after  the  JSR  OPEN  instruction. 

Warning:  Using  OPENFL  just  opens  a  file,  either  sequen- 
tial or  program,  for  a  read  or  write  operation — no  data  is  ac- 
tually transferred.  Complete  example  programs  that  read  or 
write  data  to  disk  are  offered  elsewhere  (see  READBF  to  read 
a  file,  WRITBF  to 


Routine 


cooo 
cooo 
eooo 


SETLFS  = 
SETNAM  - 


65466 
65469 
65472 
65384 


COOO 


MMUREG     -  65280 


OPENFL  - 


j  Kemal  bank  number  for  OPEN  and 
;  filename  (128  only) 
I  MMU  configuration  register  (128  onl< 

'■OPi^i   r-  ,.  =,,,:.-,iv  *:y,:r^::;  ,M, 


;  Set  the  128  lo  bank  15  in  (he  main 
;  program  (see  READBF  or  WRITBF). 


C002  A2  08 
C004  AO  02 
C006    20    BA  FT 


LDA 
LDX 
LDY 


#1 
#8 
#2 


;  Open  channel  15  here  if  you  Include  error 
;  checking  (DERRCK). 

i  logical  file  1 
;  disk  drive  device  number 
;  secondary  address  (2-14  are  OK) 
.-sell 


C009    A9  09 


C012    20    CO  FF 


C01S  60 


LDA 
LDX 


■  Inclnde  the  following  three  instructions 
;  on  the  128. 

;  LDA  BNKNUM;  bank  r 
S  LDX  BNKFNM;  bank  c 
;  ASOIfj 
;JSRS— 

#FNLENG  ,-  length  of  filename 
#<FILENM      j  address  of  filename 


SETNAM        ;  set  up  filename 

; 

OPEN  ;  open  the  file  for  data  transfer 

■  Insert  JSR  DERRCK  here  for  disk  error 
;  checking. 


RTS 


\  return  to  i 


to  main  program 


OPENFL 


C016    30   3A  S3  F1LENM 


COIF 


FNLENG  - 


.ASC  "0:SEQUENT1AL,S,R" 

sequential  filename  to  open  for  a  read 
,S,R  is  optional  with  sequential  file  reads. 
Change  to  "O.PROGRAM.PJ?"  to  open  a 
-   m  He  for  reading, 
of  filename 


•-FILENM 


two  variables  on  the  128. 
E  0;  bank  number  where 
data  is  found 

BNKFNM  .BYTE  0;  bank  number  where 
ASCII  filename  is  located 


See  also  READBF,  READFL. 
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Name 


Open  a  printer  channel 

Description 

OPENPR  opens  a  channel  to 
output. 

Prototype 

1.  OPEN  the  printer  channel  with  the  parameters  4,4,0 
(SETLFS  and  OPEN). 

2.  Direct  output  to  channel  4— load  .X  with  the  printer  file 
number  and  JMP  to  CHKOUT. 


In  the  example  program,  the  printer  is  opened  as  channel  4. 

For  an  entire  printer  program,  see  PRTOUT  for  printing 
individual  characters  or  PRTSTR  for  printing  strings. 

Note:  For  most  printers,  the  logical  file  number  for  the 
output  can  be  any  integer  in  the  range  0-255,  while  the  device 
number  is  usually  4  (all  Commodore  printers  are  normally  de- 
vice 4).  Some  printers  can  also  use  5  as  a  device  number.  The 
Commodore  1520  printer/plotter  is  device  6. 

For  Commodore  printers,  the  secondary  address  sends 
information  about  the  character  set.  A  value  of  0  causes  Com- 
modore printers  to  print  in  uppercase  and  graphics.  A  value  of 
7,  on  the  other  hand,  causes  them  to  print  in  uppercase  and 
lowercase.  Some  printers  require  a  value  of  255  (for  no 
secondary  address)  here.  It  is  best  to  consult  your  printer  man- 
ual and  interface  manual  to  determine  the  exact  - 
this  parameter  will  have  with  your  printer. 


Routine 

cooo 
cooo 
cooo 


COOO  A9  04 
C002    A2  04 

C004    AO  00 


SETLFS  = 
OPEN  - 
CHKOUT  = 


65466 
65472 
65481 


OPENPR 


LDA 
LDX 


#4 


LDY  #0 


I  Open  a  me  to  the  printer  as  4,4,0. 

;  device  number  for  printer  (change  if 

;  printer  uses  another  number) 

;  secondary  address 

;  A  value  of  0  here  causes  Commodore 

;  printers  to  print  in  uppercase/graphics. 

;  A  value  of  7  here  causes  Commodore 

;  printers  to  print  in  uppercase/lowercase. 

;  A  value  of  255  is  required  by  some 

;  printers  (meaning  no  secondary  address). 
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COW  20  BA  FF 

COOT  20  CO  FF 

COOC  A2  04 

COOE  4C  C9  FF 


g 
LDX 


SETLFS 
OPEN 
#4 


i  set  valuta 

;  open  a  file  to  printer 


CHKOUT        |  direct  output  to  file  4  and  RTS 
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Name 

Fill  an  irregular  hi-res  enclosed  outline  with  a  solid  color 
Description 

If  you've  drawn  a  series  of  lines  or  shapes  on  the  hi-res 
screen,  you  can  call  this  routine  and  fill  in  an  enclosed  shape 
with  a  solid  color. 

Prototype 

1.  Enter  with  a  hi-res  location  specified  in  STARTX  and 
STARTY. 

2.  Convert  STARTX/STARTY  to  a  memory  location  on  the  hi- 
res screen  and  a  bitmask.  Push  the  three  bytes  on  the 
pseudostack. 

3.  Begin  the  fill:  Pull  a  bitmask  and  memory  location  from  the 
pseudostack.  If  the  stack  is  empty,  exit  the  routine. 

4.  Move  to  the  left,  looking  for  an  edge  of  the  enclosing 

5.  Begin  setting  bits,  moving  to  the  right  until  a  right-hand 
edge  (or  the  edge  of  the  screen)  is  discovered. 

6.  While  the  fill  is  proceeding,  PEEK  the  bitmap  locations 
above  and  below.  Look  first  for  an  open  (zero)  bit. 

7.  When  a  zero  is  found,  push  that  location  and  the  bitmask 
on  the  pseudotack  and  set  the  FINDUP  or  FINDDN  flag  to 
search  for  ones. 

8.  If  searching  for  a  one,  flip  the  FIND  flag  again  (but  don't 
save  the  address).  Continue  flipping  the  flag  as  you  check 
the  bits  above  and  below. 

9.  When  the  main  line  is  filled,  go  back  to  step  3. 

Explanation 

The  routine,  as  it's  written,  uses  no  Kernal  or  ROM  routines, 
so  it  will  work  on  both  64s  and  128s  without  modification.  A 
note  of  interest  to  128  owners:  In  a  test  of  this  machine  lan- 
guage fill  routine  against  the  128's  BASIC  7.0  PAINT  com- 
mand, the  BASIC  command  took  an  average  of  70  seconds  to 
fill  most  of  the  screen,  while  the  routine  below  took  only  10 
seconds. 

Drawing  a  straight  line  from  left  to  right  isn't  difficult. 
The  heart  of  the  PAINT  routine  moves  to  the  left  until  it  finds 
an  edge.  Then  it  turns  on  pixels  until  it  finds  a  right-hand 
edge  of  the  outline  being  filled. 

Simultaneously  with  the  fill,  the  routine  checks  the  pixels 
above  and  below,  using  two  zero-page  locations  (ZU  and  ZD) 
that  move  in  step  with  the  fill.  Consider  just  the  pixel  above. 
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We  begin  by  looking  for  a  zero.  If  ZU  (plus  the  bitmask) 
points  to  a  one  (a  pixel  that's  turned  on),  it's  either  the  top 
edge  of  the  figure  or  it's  a  previously  filled  line.  We  ignore  all 
pixels  that  are  on,  at  least  at  the  beginning. 

But  if  ZU  points  to  a  zero,  then  it  will  eventually  have  to 
be  filled.  So  the  address  from  ZU  and  the  current  bitmask 
(which  rotates  from  right  to  left,  from  %  10000000  to 
%00000001)  are  saved  on  the  ~«^^ 


Now  that  we've 
found  a  zero,  we  can  ignore  any  more  zeros  that  pop  up.  The 
FINDUP  flag  is  switched.  Now  we're  searching  for  a  one,  be- 
cause the  fill  routine  will  stop  at  an  edge. 

While  we're  looking  for  ones,  we  ignore  zeros.  When  we 
find  a  pixel  that  is  on,  we  have  to  flip  the  FINDUP  flag  again, 
to  start  looking  for  zeros.  When  a  zero  is  discovered,  save  the 
address  and  mask,  and  flip  the  flag  again.  The  process  contin- 
ues until  the  primary  line  runs  up  against  an  edge.  At  that 
point,  we  go  back  to  the  stack  and  start  another  fill.  As  long  as 
there  are  more  addresses,  the  paint  routine  is  active. 

The  pseudostack  is  just  an  empty  area  of  memory  used  to 
save  the  addresses.  It  follows  the  program,  but  you  can  change 
its  location  easily  enough.  For  most  shapes,  a  stack  of  two 
pages  (512  bytes)  should  suffice. 

To  use  this  routine  in  your  own  programs,  you'll  need  to 
change  the  variables  at  the  end  of  the  program.  Store  the  first 
and  last  bytes  of  the  bitmap  area  in  BITMAP  and  BITMAX. 
The  example  assumes  the  hi-res  screen  runs  from  8192  to 
16191.  Store  a  zero  into  FINDL  if  you're  changing  zeros  to 
ones.  Put  a  255  there  to  clear  bits  from  one  to  zero.  And  store 
a  two-byte  x  location  in  STARTX  (0-319)  and  a  one-byte  y 
location  in  STARTY  (0-199)  before  you  JSR  to  PAINT. 


Routine 

cooo 

SP 

3 

cooo 

ZU 

$F9 

cooo 

ZL 

$FB 

cooo 

ZD 

$FD 

COOO  A9 

FH 

LDA 

#<STACK 

C002  85 

03 

STA 

SP 

C004  A9 

C! 

^ 
STA 

#>STACK 
SP+1 

C006  85 

04 

COOS  20 

79 

CO 

JSR 

CONVERT 

C00B  AD 

F4 

CI 

BIGLOOP 

LDA 

FINDL 

C00E  8D 

F5 

CI 

STA 

FINDUP 

C011  8D 

P6 

CI 

STA 

FINDDN 

ige  STARTX  and  STARTY  to  memory 
;  location  in  the  bitmap 

;  copy  the  TTNDL  mask  to 

;  the  up  mask 

;  and  the  down  mask 


PAINT 


COH    20    E8  CO 
C017    90  01 
C019  60 

20    16    CI    NOTDONE  JSR 
'A  CI  JSR 


JSR  PULLZL 

NOTDONE 


C020  AO  00 

C022  Bl  FB 

C024  AA 

C025  4D  F4  CI 

C028  2D  EC  CI 

C02B  DO  49 

C02D  8A 

C02E  4D  EC  CI 

C031  91  FB 


PAINT 


LDY  #0 

LDA  (ZUY 
TAX 

EOR  FINDL 

AND  MASK 

BNE  ENDPNT 
TXA 

«  m 


C033 

AD  FS 

a 

CKUP 

LDA 

FINDUP 

C036 

AA 

TAX 
EOR 

C037 

51  F9 

(ZU),Y 

C039 
C03C 

2D   EC  CI 

MASK 

DO  10 

BNE* 

C03E 

EC  F4 

Cl 

CPX 

FINDL 

C041 

DO  03 

BNE 

XORUP 
PUSHZU 

C043 

20  C4 

CO 

JSR 

C046 

AD  F5 

Cl 

XORUP 

LDA 
EOR 

FINDUP 

C049 

49  FF 

#$FF 

CQ4B 

8D  F5 

Cl 

STA 

FINDUP 

C04E 

AD  F6 

a 

CKDOWN 

LDA 

FINDDN 

C051 

AA 

TAX 

C052 

AO  00 

LDY 

#0 

51  FD 

EOR 

(ZD),Y 

C056 

2D  EC 

Cl 

AND 

MASK 

C059 

DO  10 

BNE 

/IB  HI. 

C05B 

EC  F4 

a 

CPX 

FINDL 

COSE 

DO  03 

BNE 

XORDN 

C06O 

20  CA 

CO 

JSR 

PUSHZD 

C063 

ADF6 

Cl 

XORDN 

LDA 

C066 

49  FF 

EOR 

C068 

8D  F6 

Cl 

STA 

FINDDN 

C06B 

20  6B 

Cl 

ZTBBL 

JSR 

RIGHTZL 

C06E 

BO  06 

BCS 

ENDPNT 

C070 

20  9A 

Cl 

JSR 

SETZUZD 

C073 

4C  20 

CO 

JMP 

PAINT 

C076 

4C  OB 

CO 

ENDPNT 

JMP 

BIGLOOP 

CD79 

CONVERT 

• 

C079 

AD  Fl 

CI 

LDA 

BITMAP+1 

C07C 

85  FC 

STA 

ZL+1 

C07E 

AD  EF 

Cl 

LDA 

STARTY 

C081 

AS 

TAY 

C082 

29  07 

AND 

#7 

C084 

85  FB 

ZL 

C086 

98 

C087 

4A 

LSR 

C088 

4A 

LSR 

C089 

4A 

LSR 

C08A 

AS 

TAY 

;  pull  ZL  from  the  stack 
:  carry  dear  means  there  is  more 
;  if  carry  set,  quit  and  RTS 
:  move  left  to  find  an  edge 

■lues  for  ZU  and  ZD  (up  and  down) 


;  set  the  index  to  zero 

;  get  the  byte 

■  save  in  .X 

;  fix  zeros  or  one9 

;  look  at  the  bit 

;  we  hit  an  edge,  no  quit 

J  get  the  byte  back 

;  and  flh,  the  bit 


Now  check  the  pixels  above  and  below. 

get  the  search  pattern 

put  it  into  JC 

fix  zeros  or  ones 

is  It  what  we  want? 

no,  check  the  ZD  pixel 

Found  one,  but  is  it  off  or  on? 

if  it's  not  the  6ame 

move  forward 

else,  push  ZU  on  the  pseudostack  to 
handle  later 
the  FINDUP  flag 


; 

;  and  stored 

;  check  the  down  flag 
;  save  it 

;  .Y  was  altered  by  CKUP 

;  same  as  above 

;  it's  OK 

;  Check  the  down  bit.  Off  or  on? 

;  is  it  the  same? 

;  no,  skip  it 

;  yes,  save  the  address 

j  switch  FINDDN  to  its  opposite 

; 

;  move  ZL  right  a  pixel 
;  CS  means  the  line  is  done 
;  we're  OK,  so  do  more 
;  and  go  bade 

; 

:  high  byte  of  BITMAP  address 

;  goes  Into  high-byte  of  ZL  pointer 

;  y-position  (0-199) 

;  stash  into  .Y 

;  get  the  bottom  three  bits 

;  store  in  iow-byte  of  ZL 

;  get  it  back 


;  back  Into  .Y 
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C08B  FO  10 

COBD  18  Y320 

C08E  A9  40 

COW  fiS  FB 

C092  85  FB 

C094  A9  01 

C096  65  FC 

C098  85  FC 

C09A  88 

C09B  DO  FO 

C09D  AD  ED  CI  CONVX 

COAO  AA 

1  29 

3  18 

C0A4  65  FB 

C0A6  85  FB 

C0A8  AD  EE  CI 

COAB  65  FC 

COAD  85  FC 

COAF  A9  80 

C0B1  8D  EC  CI 

C0B4  8A 

COBS  29  07 

C0B7  FO  07 

C0B9  AA 

COBA  4E  EC  CI  CMASKL 

COBD  CA 

COBE  DO  FA 


BEQ     CONVX  ;  if  zero,  skip  ahead  to  do  .X 

i  >  -.-iif.riiin  =1p 


CLC 

LDA  #<320 

ADC  ZL 

STA  ZL 

LDA  #>320 

ADC  ZL+I 

STA  ZL+1 
DEY 

BNE  V320 

TAX  STARTX 

and  #%iimooo 

CLC 

ADC  ZL 

STA  ZL 

LDA  STARTX+1 

ADC  ZL+1 

STA  ZL+1 

LDA  #%1 0000000 

STA  MASK 
TXA 

AND  #%O0O00111 

BEQ  CONEXIT 
TAX 

LSR  MASK 


»  C7  CO  CONEXIT  JSR  PL 
C0C3  60 


C0C4 
C0C6 
C0C7 
C0C9 
COCA 
COCC 
COCE 
COD! 
C0D3 
C0D4 
C0D6 
CODS 
C0D9 
CODA 


A2  03 
2C 

A2  05 
AO  02 
AD  EC  CI 
91  03 
88 

B5  F9 
91  03 
CA 
88 

10  F8 


PUSHZU 


PUSHZL 


PUSHZD 


PSHLP 


LDX  #1 
.BYTE  $2C 
LDX  #3 
.BYTE  S2C 
LDX  #5 
LDY  #2 
LDA  MASK 
STA 
DEY 
IDA 
STA 
DEX 
DEY 

BPL  PSHLP 


CODC  18 
CODD  A9  03 
CODF  65  03 
C0E1  85  03 
C0E3  90  02 
C0E5  E6  04 
60 

C0E8  38 


CLC 

LDA  #3 

ADC  SP 

STA  SP 

BCC  PSHOUT 

INC  SP+1 
PSHODT  RTS 

PULLZL  SEC 

LDA  SP 

SBC  #3 

STA  SP 


j  elKuld  320 

;  high-byte,  too 

;  count  down 

;  and  branch  back 

;  low  byte  of  x-position 
;  save  in  .X  for  a  moment 
;  strip  the  three  low  bits 

;  add  to  ZL 
;  store 

i  gel  the  high-byte 
;  add  to  the  high-byte 
,-  save  it 

j  prepare  mask 

;  get .X  back 

;  positions  0-7 

;  if  0,  skip  it 

;  else  count  down 

;  move  MASK  right 

,  Branch  Back 

j  push  the  ZL  and  MASK  bytes  on  the 
•  pseudostack 
;  and  we're  done 

;  As  we  leave,  the  location  and  the  mask 
:  of  the  STARTX  and  STARTY  points  are 
;  on  the  stack. 


!  three  bytes  (0-2) 
;  get  the  mask 

;  store  indirect  to  SP,  which  points  to 
;  .Y  is  now  1 

,-  get  a  byte  from  ZU,  ZL,  or  ZD 


;  count  1  to  0  to  minus 

;  Now  adjust  the  stack  pointer  SP. 


;add3 

;  add  to  SP 

;  store  it 

;  carry  clear,  we're  done 

;  Finished.  Quit  this  routine. 

J'. 

!  first  count  SP  down  by  3 
5  low  byte 
;  minus  3 


387 
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COEF  A5  04 

C0F1  E9  00 

C0F3  85  04 

C0F5  C9  CI 

C0F7  90  IB 

C0F9  DO  06 

COFB  AS  03 

COFD  C9  F8 

COFF  90  13 


C101 
C103 


AO  02 
Bl  03 

C105  8D  EC  CI 

C108  88 

C109  Bl  03 

C10B  85  FC 

C10D  88 

C10E  Bl  03 

C110  85  FB 

CI 12  18 

C113  60 

C114  38 

CHS  60 


LDA 

SBC 

STA 

CMP 

BCC 

BNE 

LDA 

CMP 
BCC 

NOABORT  LDY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
CLC 
RTS 

ABORT 


SF+1 
#0 

SP+1 

#>STACK 

ABORT 

NOABORT 

SP 

#<STACK 

ABORT 

#2 

ISP),Y 


C116  0E  EC  CI  LEFTZL 

C119  90  1A 

C11B  6E  EC  CI 

CHE  20  45  CI 

C121  90  01 

C123  60 


RTS 

ASL 
BCC 


BCC 


C124 
C126 
C128 
C12A 
C12C 
C12E 
030 
CI  32 
C135 
C13S 
C137 
C139 
C13C 
C13F 


C145 
C147 
C148 
C14A 
CMC 
C14D 
C14F 
C152 
C1S4 
C156 
CI  59 
C15A 


AS  FB 

E9  07 

85  FB 

A5  FC 

E9  00 

85  FC 

A9  01 

8D  EC  CI 

AO  00 
Bl  FB 
4D  F4  CI 
2D  EC  CI 
FO  D5 
20    6B  CI 
60 

A5  FB 
AA 
29  38 
DO  IB 
8A 

29  CO 
8D  F7 
A5  FC 


DECZL 


LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDA 
STA 


CI 


29 
2E 
2A 
2E 
2A 
FO 
38 


IF 
F7 


CI 
CI 


ROL 


(SP),Y 
ZL+1 

(SP),Y 
ZL 


MASK 


CHECKEDGE 
DECZL 


;  high  byte 

;  minus  zero  (or  one  if  carry  clear) 

;  remember  it 

;  check  the  high  byte 

;  branch  if  the  stack  is  empty 

;  if  not  equal,  keep  going 

;  SP-high  and  STACK-high  are  equaL  so 

;  check  low  byte 

;  against  STACK 

j  abort  if  STACK  is  higher  (equal  is  OK) 

;  get  the  mask 
;  store  it 
;  count  down 

;  high  byte  of  screen  address 
;  low  byte 

;  clear  carry  means  OK 
i  set  carry  means  not  OK 

|  more  the  bit  in  MASK  to  the  left 

;  within  the  byte,  it's  OK 

;  put  the  bit  back  in  position  7,  just  in  case 

j  Better  check  for  a  left  edge. 


LEFTOK  - 
LDY 
LDA 
EOR 
AND 

IB 

JSR 
RTS 

CHECKEDGE  LDA 
TAX 


Zl 
#7 
ZL 

ZL+1 
#0 

ZL+1 
#1 

MASK 
#0 

(ZL),V 

FLNDL 

MASK 

LEFTZL 

RIGHTZL 


ZL 

#%001 11000 
NOPROB 

#%11000000 

TEMP 

ZL+1 

#%00011111 

TEMP 


nit  the  left 


;  cany  clear  means  OK 
;  else,  return  because  we' 
;  edge  of  the  screen 
;  subtract 

;  7  (really  subtract  8,  because  carry  is  clear) 
;  store  it 
;  high  byte 
;  adjust 
;  and  store 

;  and  put  a  %00000001 

;  into  mask 

;  now  check  the  bit 

;  get  the  byte 

;  flip  the  bits  to  get  what  we're  looking  for 

;  check  the  bitmap  bit 

;  if  zero,  do  more 

;  else  move  ZL  to  the  right 


;  low  byte 

f  save  it 

;  check  bits  3-5 

;  no  problem,  we're  done 

;  check  more 

!  get  the  two  high  bits 

;  and  save  in  temp 

;  high  byte 

;  mask  off  the  three  high  bits 
;  move  into  -A 


;  two  bits 


PROB 


five 


PAINT 


DUNNO 


CI61  E9  05 

C163  FO  04 

C16S  BO  FA 

C167  18 

C168  60 

C169  38 

C16A  60 


C16B  RIGHTZL 

C16B  4E  EC  CI 

C16E  BO  01 

C170  60 

C171  AS  FB  RTEDGE 

C173  69  07 

C175  85  FB 

CI 77  90  02 

C179  E6  FC 

C17B  20  45    CI  SKPHI 

C17E  90  13 

CI  80  A5  FB 

C182  E9  08 

CI 84  85  FB 

C186  A5  FC 

C188  E9  00 

C18A  85  FC 

C18C  A9  01 

C18E  8D  EC  CI 

C191  38 

C192  60 

C193  A9  80  RTOK 

C195  8D  EC  CI 

C198  18 

C199  60 


SBC  #5 

BEQ  PROB 

BCS  DUNNO 

etc 


MASK 
RTEDGE 


LSR 
BCS 


C19A 

C19A 
C19C 
C19D 
C19F 
C1A1 

SA43 
C1A6 
C1A8 
CI  A  A 
C1AC 
CI  AE 
CI  B0 
C1B2 
C1B4 
C1B5 
C1B7 
C1B8 
C1B9 
C1BB 
C1BD 


SETZUZD  - 


A5  FC 
A8 

85  FA 

85  FE 

A5  FB 
AA 

85  F9 

85  FD 

29  07 

F0  09 

C9  07 

F0  1C 

C6  F9 

E6  FD 


LDA 
TAY 
STA 
STA 
LDA 
TAX 


STA 

AND 

BEQ 

CMP 

BEQ 

DEC 

INC 

RTS 

INC 

TXA 

SEC 

SBC 


ZL+1 

ZU+1 
ZD+1 
ZL 

ZD 

ZD 

#7 

FIXZU 
#7 

FLXZD 

ZU 

ZD 

ZD 


#<313 

ZU 


;  subtract  5 

;  zero  means  a  problem 
;  carry  set  means  more 
,-  no  problem 

;  problem/left  edge 

; 

;  this  routine  moves  ZL  right  one  pixel 

;  If  the  bit  rotated  into  the  carry  flag,  check 
;  for  the  edge 
;  else,  if  a  OK 
;  low  byte 

;  really  add  8 — carry  is  set 
;  store  It 

;  skip  the  high  byte 

■  unless  ZL  has  overflowed 

;  see  if  we're  at  an  edge 

;  if  s  OK 

,-  or  not  OK 

j  Implied  carry  set 

;  subtract  8  from  low  byte 

;  plus 

;  maybe 

;  the  high  byte 

;  and  put  the  one  bit 

;  at  the  edge  of  mask 

;  set  carry  means  finish 

;  this  ends  the  RIGHTZL  routine 

;  set  up  mask 

;  clear  carry  signals  all  is  well 
;  end  on  a  positive  note 

j  first  set  ZU  (the  pointer  to  the  pixel 
;  above  ZL) 
;  high  byte 


;  and  ZD 

%BSB& 


t  check  for  eight-byte  edge,  top  or 
;  if  ZL  is  divisible  by  8 

;  or  one  leu  than  8 
;  else  ZU  is  one  less 
;  and  ZD  is  one  more 

;  ZD  is  OK.  INC  it. 


;  move  back  a  line 
;  high  byte 


;  check  if  if  s  too  low 
;  no,  go  to  the  end 
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PAINT 


C1C7 

86 

F9 

S4 

FA 

60 

FXZOK 

C1CC 

C6 

F9 

FIXZD 

C1CE 

8A 

C1CF 

18 

CI  DO 

69 

39 

C1D2 

85 

FD 

C1D4  98 

AO 

01 

C1D7 

85 

FE 

C1D9 

CD 

F3 

CI 

C1DC 

90 

OD 

C1DE 

DO 

07 

C1E0 

AD 

1 

CI 

C1E3 

CS 

FD 

C1E5 

BO 

04 

C1E7 

86 

FD 

TOOH1 

C1E9 

84 

FE 

C1EB 

60 

FXDOK 

CI  EC 

00 

MASK 

C1ED 

AO 

00 

STARTX 

CiEF 

65 

STARTY 

C1F0 

00 

20 

BITMAP 

C1F2 

3F 

3F 

BITMAX 

C1F4  00 
C1F5  00 


HNDL 

FINDUP 
FINDDN 
TEMP 


STX 

zu 

STY 

ZU+1 

RTS 

DEC 

zu 

TXA 

CLC 

ADC 

#<313 

STA 

ZD 

TYA 

ADC 

#>313 

STA 

ZD  +  1 

CMP 

BITMAX+1 

BCC 

FXDOK 

BNE 

TOO  HI 

is 

CMP 
BCS 

FXDOK 

STX 

ZD 

STY 

ZD+1 

RTS 

.BYTE  0 
WORD  160 

BYTE  101 
.WORD8192 
.WORD  16191 

BYTE  0 


.BYTE  0 
.BYTE  0 


;  too  low,  put  ZL  Into  ZU 

: 

;  ZD  is  OK.  DEC  it. 
|  low  byte  of  ZL/ZD 

;  move  up  a  line 

;  high  byte 


;  check  if  if  9  loo  high 
;  no,  go  to  Ihe  end 

;  if  carry  is  set  and  if  s  not  equal,  it's  too 
;  high 

;  Ifs  equal  *>  check  the  low  byte. 


;  if  BITMAX  >—  ZD,  don't  worry,  else  drop 
; through 

;  too  high,  put  ZL  into  ZU 


s  mask  (or  turning  bits 
;  starting  location  for  " 
;  0-319) 

g  location 

;  Start 


;  set  to  2ero  If  changing  zeros  to  ones,  or  255 
:  if  1  to  0 


See  also  BITMAP,  CLRHRF,  CLRHRS,  HRCOLF,  HRPOLR,  HRSETP. 
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PASFMV  (64  only) 


Name 

Pass  values  from  BASIC  to  ML  using  the  FRMEVL  routine 

This  is  the  most  versatile  of  the  techniques  that  pass  a  value 
from  BASIC  to  ML. 

Prototype 

1.  Call  the  COMMA  routine  to  find  a  comma. 

2.  Call  the  FRMEVL  routine  to  calculate  the  value  between 
commas  (the  result  is  stored  in  the  floating-point 
accumulator). 

3.  Use  the  number  as  you  wish. 

Explanation 

FRMEVL  evaluates  a  formula  by  calling  various  BASIC  func- 
tions and  stripping  away  the  parentheses.  FRMEVL  can  figure 
out  what  ABS(INT(Y/2))  +  SQR(X  •  2  -  Z  +  3)  really  means. 

The  example  routine  adds  two  integers.  You  pass  the  val- 
ues to  the  ML  routine  by  adding  commas  and  formulas  after 
the  SYS.  For  example,  SYS  49152,1,2  will  print  the  number  3; 
SYS  49152,SQR(9),(1  +  3*7)  will  print  the  number  25  (3  +  22). 

The  three  key  ROM  routines  are  COMMA,  which  looks 
for  the  next  comma;  FRMEVL,  which  evaluates  the  formula; 
and  QINT,  which  converts  a  floating-point  number  to  an 
integer. 

Routine 

COOO  HI 

CO00  LO 

COOO  COMMA 

COOO  FRMEVL 

COOO  QINT 

COOO  UNPRT 

COOO    20    FD  AE  PASFMV 
C003    20    9E  AD 

C006    20    9B  BC 

C009  A5  65 

C00B  6D  32  CO 

C00E  A5  64 

C010  8D  33  CO 

C013  20  FD  AE 

C016  20  9E  AD 

C019  20  9B  BC 

C01C  1^8 

COIF    SD  32  CO 


100 
101 

$AEFD 


LDA  LO 
STA  TOTAL 
LDA  HI 


JSR 


COMMA 
FRMEVL 

QINT 


CLC 

LDA  LO 
ADC  TOTAL 


.  high  byte  after  QINT 
i  low  byte 

i  routine  that  looks  for  a  comma 
;e  ' 


;  print  an  Integer 


;  look  for  a  < 
:r 

:  convert  t 
,  integer 
;  low  byte 
;  store  U 
;  high  byte 


STA      TOTAL+ 1        ;  is  saved  also 


;  get  the  next  number 
;  and  figure  it  out 

;  convert 

j  get  the  low  byte 
;  add  It 
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PASFMV  (64  only) 


C022  8D  32  CO 
-025  AA 

A5  64 

6D  33  CO 

C02B   8D  33  CO 

C02E  20  CD  BD 
C031  60 


26 
C028 


STA 

TAX 

LDA 

ADC 

STA 

JSR 

RTS 


TOTAL 
HI 

TOTAL +1 
TOTAL+1 
LINPRT 


;  place  it  in  .X 
;  add  in 

;  the  high  byte,  also 
:  print  the  number 


C032    00    00  TOTAL        .BYTE  0.0 

See  also  GOTOBL,  PASMEM,  PASREG,  PASUSR. 
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PASMEM 


Name 

Pass  values  from  BASIC  to  ML  by  POKEing  to  free  memory 
Description 

Although  this  technique  limits  the  values  you  can  pass  to 
numbers  in  the  range  0-255,  it's  one  of  the  simplest  ways  to 
pass  numbers  back  and  forth  from  BASIC  to  ML.  Use  PEEK 
and  POKE  in  BASIC,  LDA  and  STA  in  " 


Prototype 

1.  In  BASIC,  POKE  a  value  to  a  free  memory  location.  Then 
SYS  to  the  machine  language  routine. 

2.  In  the  ML  program,  LDA  (or  LDX  or  LDY)  the  number  and 
handle  it  as  you  wish. 

Explanation 

The  example  is  relatively  simple.  In  BASIC,  POKE  828  with  a 
number  0-255,  then  SYS  49152.  A  delay  loop,  based  on  the 
number  in  location  828,  will  execute  (MEM,  in  the  example). 
The  maximum  delay  is  255  jiffies,  or  about  four  seconds. 
While  the  delay  loop  is  running,  the  border  color  flashes  very 


3 


J1F 
MEM 


$A2 


C000  78 

C001  AD  20  DO 

C004  8D  21  CO 

C007  AD  3C  03 

C00A  FO  OE 

C00C  18 

C00D  65  A2 

C00F  58 


C010  C5   A2  LOOP 

C012  FO  06 

C014  EE    20  DO 

C017  4C   10  CO 

C01A  AD  21    CO  QUTT 


CO  ID  8D  20  DO 


PASMEM  SEI 


LDA  BORCOL 

STA  TEMP 

LDA  MEM 

BEQ  QUIT 


CLI 


HE 


;  low  byte  of  jiffy  clock  (both  64  and  128) 
;  free  RAM  in  the  cassette  buffer  for  the  64; 
;  use  another  free  memory  location  on  the 
.  128 

•  bonier  color  register 

; 

;  turn  off  interrupts  while  the  routine  is  set 
;up 

;  get  the  border  color 
;  save  it 
j  get  the  value 
;  If  the  delay  is 
;  prepare  to  add 

;  Interrupts  now  on 


C020  60 
C021  00 


CMP  I  IF 

BEQ  QUIT 

INC  BORCOL 

IMP  LOOP 

LDA  TEMP 

STA  BORCOL 
RTS 


;  compare  .A  to  the  clock 
;  if  they're  equal,  end  the 
i  flashing  effect  for  the  border 
:  go  back 


;  restore  the  border  color 
;  and  end 


BYTE  0 

JOTOBL,  PASFMV,  PASREG, 


PASREG 


Name 

Pass  values  to  an  ML  program  directly  through  the  registers 
Description 

By  POKEing  to  locations  780-783  (64  only),  you  can  set  the 
values  that  the  registers  .A,  .X,  .Y,  and  the  processor  status  .P, 
respectively,  will  hold  at  the  beginning  of  a  routine  called  with 
the  BASIC  statement  SYS.  BASIC  itself  handles  the  task  of 
transferring  the  contents  of  these  locations  into  the  proper  reg- 
isters. An  equivalent  technique  for  the  128  is  simply  to  include 
the  desired  values,  separated  by  commas,  following  the  SYS 
address. 


1.  Before  SYSing  to  the  routine,  POKE  the 
ues  into  780-783. 

2.  In  the  routine,  handle  the  values  as  needed. 

Explanation 

The  example  routine  saves  .A,  clears  the  carry  flag,  JSRs  to  the 
Kernal  PLOT  routine,  and  then  prints  the  character  in  .A.  To 
call  it  from  BASIC,  assuming  you  want  to  print  the  letter  C  at 
row  20,  column  3,  use  this  syntax: 

POKE  780,67:  POKE  781,19:  POKE  782,2:  SYS  49152 
SYS  3072,67,19,2  Commodore  128 

The  64  routine  is  at  49152,  and  the  128  routine  is  at  3072. 
After  returning  from  the  ML  program,  you  can  find  the  pre- 
vious values  of  .A,  .X,  .Y,  and  .P  by  PEEKing  locations 
780-783  on  the  64,  or  by  using  RREG,  the  Read  REGister 
statement,  on  the  128. 

Routine 


CHROUT 
PLOT 


cooo 

C000  48 

C001  18 

C002  20  F0 

C005  68 

C006  20    D2  FF 

C009  60 


Fi 


PHA 
CLC 

JSR  PLOT 
PLA 

JSR  CHROUT 
RTS 


i 

;  .A,  X,  and  .Y  should  already  hold  values 
-  save  .A.  because  plot  mighl  affect  it 

get  ready  to  plot 

x  and  y  position  are  set 

get  A  back 

print  it 

quit 


See  also  GOTOBL,  PASFMV,  PASMEM,  PASUSR. 
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Name 


values  from  BASIC  to  ML  via  the  USR  function 


In  BASIC,  you  can  include  a  line  such  as  X  =  USR(G),  where 
the  value  of  the  variable  G  is  sent  (as  a  floating-point  value)  to 
a  machine  language  routine  stored  in  memory.  The  ML  routine 
can  then  pass  another  floating-point  value  back  to  the  BASIC 
program,  where  it  will  be  assigned  to  the  variable  X. 

Prototype 

1.  Set  up  the  USR  function  by  POKEing  the  address  of  your 
ML  routine  into  locations  785-786  (locations  4633-4634  on 
the  128). 


2.  Calculate, 


The  example  routine  takes  three  values.  If  the  value  passed  is 
1,  the  screen  is  cleared.  If  it's  2,  the  cursor  color  is  changed  to 
white.  If  it's  3,  the  string  HELLO  is  printed.  The  QINT  BASIC 
ROM  routine  converts  the  floating-point  value  to  an  integer  to 
be  handled  by  the  ML  program. 

After  assembling  the  program  to  49152,  POKE 
785,0:POKE786,192  to  set  up  the  pointer.  On  the  128,  sub- 
stitute POKE  4633,0:  POKE  4634,12  (these  are  the  low  and 
high  bytes  of  $0C00).  You'll  also  need  to  change  HI  and  LO  to 
102  and  103,  and  QINT  to  $8CC7  on  the  128.  Use  PASUSR 
from  BASIC  with  a  statement  of  the  form  Z  =  USR(l)  or 
or  I 


Routine 


cooo 

cooo 
cooo 

cooo 

cooo 
coos 
coos 


HI 

LO 
QINT 

CHROUT  = 


100 
101 

SBC9B 
SFFD2 


20 
A6 
F0 


9B    BC  PASUSR 


04 

17 


C00B 
C00C 
C00E 


CA 
DO 
A9 


05 
93 
D2 


FNl 


JSR  QINT 

LDX  LO 

BEQ  DONE 

CPX  #4 

BCS  DONE 
DEX 

BNE  MORE! 

LDA  #147 

(MP  CHROUT 


:  HI  =  102  on  the  128— high  byte  after 
:  QINT 

;  LO  -  103  on  the  128— low  byte 
;  QINT  =  $8CC7  on  the  128— convert 
;  floating-point  number  In  FAC1  to  integer 
;  Kemal  print  routine 

;  convert  FAC1  to  an  integer 
;  get  the  low  byte 
;  il  zero,  quit 
;  if  it's  greater  than  3 
;  skip  ahead  and  quit 
;  count  down  3-2-1 
;  if  it  was  2  or  3, 1 
;  clear  screen 


C013  CA 


MORE1  DEX 


;  count  down  again 
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PASUSR 


C014    DO  OS 

C0I6    A9  05  FN2 

C018    4C  D2  FF 

AO  00  MORE2 

B9  2A   CO  ULOOP 

-J)    DO  01 
C022    60  DONE 

C023    20    D2  FF  PRINTT 

C026  C8 

C027    4C    ID  CO 

C02A  48  45  4C  GREET 
C02F    OD  00 

See  also  GOTOBL, 


BNE  MORE2 

LDA  #5 

JMP  CHROUT 

LDY  #0 

LDA  GREET.Y 

BNE  PRINIT 
RTS 

JSR  CHROUT 
INY 

JMP  ULOOP 

-ASC  "HELLO" 

.BYTE  13,0 


;  if  not  zero,  move  ahead 
;  code  for  <«vhite> 
;  prim  it  (RTS  built  in) 

;  get  a  character 
;  if  zero 
;  (hen  quit 


;  loop  counts  forward 
:  and  go  back  for  more 


1,  PASREG. 


PLOTCR 


Name 


Set  the  cursor  location 
Description 

PLOTCR  lets  you  locate  characters  anywhere  on  the  screen 
without  requiring  you  to  use  the  cursor  characters.  It  relies  on 
the  Kernal  routine  PLOT  to  position  the  cursor  for  subsequent 
printing. 

Prototype 

1.  Enter  this  routine  with  the  desired  cursor  position  in  .X 


(row)  and  .Y  (column). 

2.  Clear  the  carry  flag. 

3.  JSR  to  the  Kernal  routine  PLOT  and  RTS  (or  simply  JMP  to 
PLOT). 

Explanation 

In  the  example  program,  the  cursor  is  positioned  in  the  fifth 
column  of  the  fourth  row,  and  an  E  is  printed. 

The  X  register  should  contain  the  appropriate  row  number 
minus  one,  while  .Y  contains  the  column  number  less  one.  If 
you  are  working  within  a  window  on  the  128,  the  row  and 
column  values  are  relative  to  the  top  and  left  sides  of  the  win- 
dow rather  than  to  the  screen  borders. 

Note:  Using  .X  for  the  row  and  .Y  for  the  column  is  back- 
ward from  what  you  might  think.  In  most  Cartesian  co- 
ordinate systems,  x  is  the  horizontal  axis  (columns)  and  y  is 
the  vertical  axis  (rows).  The  Kernal  PLOT  routine  is  just  the 
opposite. 

Warning:  Be  sure  to  clear  the  carry  flag  before  accessing 
PLOT.  Otherwise,  if  carry  is  set,  PLOT  will  return  the  current 
cursor  position  in  .X  and  .Y  (used  in  FINDCR). 


Routine 


cooo 
cooo 


PLOT 
CHROUT 


65520 
65490 


j  Print  an  Eat  (4,5). 
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PLOTCR 


C000  A9  93 

C002  20  D2  FF 

C005  A2  03 

C007  AO  04 

C009  20  12  CO 

COOC  A9  45 

COOE  20  D2  FF 

C011  60 


CLRCHR  LDA 

)SR 
LDX 


«147 

CHROUT 

#3 

#4 

PLOTCR 
#69 

CHROUT 


;  clear  the  screen 

>  fourth  row 

;  fifth  column 

;  position  the  cursor 

;  print  E 


C012    18  PLOTCR 
C013    20    FO  FF 
CO! 6  60 

See  also  FINDCR. 


PLOT 
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POKRUR/PEKRUR  (64  only) 


Name 

POKE  RAM  under  ROM  /  PEEK  RAM  under  ROM 
Description 

When  you  turn  on  the  64,  the  8K  BASIC  interpreter  ROM  at 
40960  and  the  8K  operating  system  Kemal  ROM  at  57344  are 
selected.  But  under  both  of  these  8K  areas  is  free  RAM  which 
you  can  access  by  altering  the  contents  of  the  memory 
configuration  register  at  location  1. 

These  areas  of  free  memory  can  be  used  in  many  ways: 
You  can  store  your  ML  programs  there  so  that  they  are  in- 
visible to  BASIC,  or  you  can  use  the  space  as  a  data  storage 
area  for  disk  copying,  word  processing,  and  sorting  routines. 

With  the  aid  of  two  routines,  POKRUR  and  PEKRUR,  the 
example  program  demonstrates  how  the  area  of  memory  un- 
der BASIC  ROM  can  be  used  as  a  buffer  for  storing  the  first 
two  screen  lines. 

Prototype 

In  POKRUR: 

1.  In  the  subroutine  TXTPTR,  store  the  address  of  memory  to 
be  transferred  (or  the  origin  address)  in  ZP;  store  the  ad- 
dress of  the  target  buffer  in  RAM  under  ROM  in  ZP+2. 

2.  Using  the  subroutine  NUMMOV,  store  the  number  of  bytes 
to  transfer  (defined  as  NUMBER  at  the  end  of  the  program) 
in  BUFCTR. 

3.  With  the  subroutine  MOVEIT,  transfer  memory  from  the 
origin  address  in  ZP  to  the  target  address  in  ZP+2. 

In  PEKRUR: 

1.  Push  the  current  RAM/ROM  configuration  register  in  loca- 
tion 1  on  the  stack. 

2.  Select  in  RAM  under  BASIC  ROM  at  40960. 

3.  Using  the  subroutine  TXTPTR,  store  the  address  of  the 
buffer  in  RAM  under  ROM  in  ZP,  and  the  destination  ad- 
dress of  regular  RAM  in  ZPH-  2. 

4.  Fetch  the  number  of  bytes  to  move  (NUMBER)  and  store 
this  value  in  BUFCTR  with  NUMMOV. 

5.  With  MOVEIT,  transfer  memory  from  the  address  in  ZP  to 
the  address  in  ZP+2. 
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POKRUR/PEKJRUR  (64  only) 


If  you  POKE  into  the  8K  of  memory  at  40960  or  at  57444, 
whatever  you  POKE  is  always  stored  into  the  underlying 
RAM.  PEEKing  these  areas  of  memory,  on  the  other  hand,  will 
return  either  the  contents  of  ROM  or  of  the  RAM  underneath, 
depending  on  the  state  of  the  configuration  register.  These 
principles  are  illustrated  by  POKRUR  and  PEKRUR  in  the 
program  that  follows. 

The  program  inserts  an  IRQ  interrupt  routine  that  allows 
you  to  save  or  retrieve  the  first  two  screen  lines  (text  only) 
placed  in  a  buffer  area  at  40960.  The  IRQ  routine  WEDGE 
checks  for  two  keys,  Fl  and  F3. 

If  the  user  presses  Fl,  POKRUR  saves  text  from  the  top 
two  screen  lines.  A  border  color  change  indicates  a  successful 
save.  When  F3  is  pressed,  PEKRUR  recalls  these  lines. 

POKRUR  and  PEKRUR  have  three  subroutines  in  com- 
mon: TXTPTR,  NUMMOV,  and  MOVEIT.  Zero-page  address- 
ing is  used  in  MOVEIT  to  transfer  bytes  from  the  screen  to  the 
buffer  or  vice  versa.  In  this  subroutine,  memory  is  always 
moved  from  the  address  in  ZP,  or  the  origin  address,  to  the 
address  in  ZP  +  2,  or  the  destination  address. 

And  this  is  where  TXTPTR  comes  into  play.  This  sub- 
routine sets  the  zero-page  pointers  according  to  the  direction 
of  the  move.  In  order  to  do  this,  a  0  or  a  2  must  be  in  the  X 
register.  If  you're  performing  a  save  (.X  =  0),  TXTPTR  initially 
points  ZP  to  TEXT  at  1024,  and  ZP  +  2  to  BUFFER  at  40960. 
Conversely,  if  you're  retrieving  the  buffer  (.X  =  2),  it  points 
ZP  to  BUFFER  and  ZP  +  2  to  TEXT. 

The  third  subroutine,  NUMMOV,  takes  the  number  of 
bytes  to  move—in  this  case,  80— from  NUMBER  and  stores 
this  value  in  a  counter  (BUFCTR)  used  by  MOVEIT. 

There's  little  more  to  POKRUR  than  these  three  sub- 
routines. After  the  text  is  stored,  exit  the  routine  through  the 
normal  IRQ  interrupt  handler. 

PEKRUR  is  slightly  more  involved.  Before  fetching  the 
two  screen  lines  in  the  buffer,  save  the  contents  of  the 
configuration  register  at  location  1  so  that  you  can  later  restore 
it.  Next,  select  RAM  under  ROM  at  40960  by  turning  off  bit  0 
in  location  1,  and  execute  the  three  subroutines  (TXTPTR, 
NUMMOV,  and  MOVEIT). 

To  finish  the  routine,  restore  the  memory  configuration 
register  and  again  exit  through  the  interrupt  service  routine. 
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than  bit  0  in  location  1 .  Also,  since  the  interrupt-service  rou- 
tine is  handled  in  the  Kernal  area,  you  must  turn  off  interrupts 
with  SEI  before  you  access  the  RAM  under  ROM. 

Routine 


cooo 
cooo 


cooo 
cooo 
cooo 


COOO  78 


ZP 

TRQVEC 

[RQNOR 

LSTX 

EXTCOL 

TEXT 

BUFFER 


SETUP  SEI 


251 

788 

59953 

197 

53280 

1024 

40960 


C001 
C003 


A9  0D 
8D  14 


03 


C006  A9  CO 

COOS  8D  15 

C00B  58 

COOC  60 


LDA 
STA 
LDA 
STA 


RTS 


#<W£DGE 
IRQVEC 
»>  WEDGE 
IRQVEC +1 


WEDGE 


COOD  A5  C5 

COOF  C9  04 

COU  FO  07 

C013  C9  05 

C015  FO  14 

C017  4C  31    EA  EXIT 


C01A  EE   20  DO 

CO  ID  A2  00 

COIF  20    43  CO 

C022  20    5B  CO 

C025  20    58  CO 

C028  4C   17  CO 


LDA  LSTX 

CMP  *4 

BEQ  POKRUR 


t     INC  EXTCOL 

LDX  #0 

JSR  TXTPTR 

JSR  NUMMOV 

JSR  MOVEIT 

JMP  EXIT 


C02B    AS  01  PEKRUR      LDA  1 


C02D  48 

C02E  29  FE 

C030  85  01 

C032  A2  02 


20    43  CO 


PHA 

AND  #%U111110 

STA  1 

LDX  #2 

JSR  TXTPTR 


1  vector  to  IRQ  interrupt  routine 


K 

;  last  key  pressed 
;  border  color  register 
;  location  of  text  to  be  stored 
:  text  storage  buffer  under  BASIC  ROM 

:  Insert  IRQ  interrupt  wedge  to  store  the  top 

;  two  screen  lines  in  RAM 

;  under  BASIC  ROM  w{*  £JJ«V-  F3  brin&s 

.  Then  stonMhe  address  of  our  routine  into 
;  IRQ  vector. 
:  low  byte  first 

i  then  high  byte 


:  fetch  the  last  keypress 
.  is  It  Fl? 

;  save  the  top  two  : 
.  is  it  F3? 
;  recall  the  two  screen  ones 
j  service  the  standard  IRQ  routines 

:  POKRUR  stores  the  number  of  bytes  in 
:  number  to  RAM  under  BASIC  ROM. 
;  change  border  color  lo  indicate  buffer 
;  storage 

;  so  ZP  points  to  TEXT  (origin),  ZP+2  to 
5  BUFFER  (target) 

:  set  up  zero-page  pointers  to  TEXT  and 
|  BUFFER 

;  get  number  of  bytes  to  move 

;  store  TEXT  in  BUFFER 

;  to  standard  IRQ  interrupt  routines 

I  PEKRUR  gets  the  number  of  bytes  in 
;  number  from  RAM  under  BASIC  ROM. 
I  store  the  current  RAM/ROM 
;  configuration  on  the  stack 

;  select  RAM  under  BASIC  ROM  by 
;  turning  off  bit  0 

;  so  two  byteB  at  ZP  point  to  BUFFER 
; TEXT 


401 


C037  20 

C03A  20 

C03D  68 

C03E  83 


CO 


01 


C040    4C  17  CO 


JSR  NUMMOV 

JSR  MOVEIT 
PL  A 

STA  1 

JMP  EXIT 


C043    A9  00 


TXTPTR       LDA  #<TEXT 


C045    95  FB 

STA 

ZP,X 

C048    A9  04 
C04A  95  FB 

INX 
LDA 

STA 

#>TEXT 
ZP,X 

C04C  CA 

DEX 

C04D  8A 
C04E    49  02 
C050  AA 
C051    A9  00 
C053    95  FB 

EOR 
TAX 
LDA 
STA 

«2 

*<BUFFER 
ZP.X 

C055  E8 
C056    A9  AO 
C058    95  FB 

INX 
LDA 

STA 

*>BUFFER 
ZP.X 

C05A  60 

RTS 

C05B  AD  8A  CO  NUMMOV  LDA 

C05E  8D  8C  CO  STA 

C061  AE  8B  CO 

C064  8E    8D  CO 

C067  60  RTS 


NUMBER 
BUFCTR 
LDX     NUMBER +1 
STX      BUFCTR +1 


AO 

00 

MOVFJT 

LDY 

#0 

Bl 

FB 

MOVELP 

LDA 

(ZF),Y 

C06C 

91 

FD 

STA 

(ZP+2),Y 

C06E 

E6 

FB 

INC 

ZP 

C070 

DO 

02 

BNE 

INCTAR 

C072 

E6 

EC 

INC 

ZP  +  1 

C074 

E6 

FD 

INCTAR 

INC 

ZP+2 

C076 

DO 

02 

BNE 

LENCHK 

;  fetch  the  number  of  byles  lo  move 

;  recall  TEXT  from  BUFFER 

;  restore  RAM/ROM  configuration 

;  take  care  of  normal  IRQ  routines 

tt 

;  Set  origin  and  target  pointers.  Enter  with 

;  .X  =  0  to  point  ZP  to  TEXT. 

;  ZP+2  to  BUFFER.  Enter  with  .X  =  2  to 

;  point  ZP  to  BUFFER,  ZP+2  to  TEXT. 

I  gel  low  byte  of  TEXT 

;  store  to  ZP  (If  .X  was  0)  or  ZP+2  (if  X 

!  was  2) 

;  for  high  bvte 

j  get  high  byte  of  TEXT 

;  store  to  ZP+1  (if  .X  was  0)  or  ZP+3  (if  .X 

:  was  2) 

;  set  index  back  to  0  (if  .X  was  0)  or  2  (if  .X 
;was2) 

;  change  .X  from  0  lo  2  or  vice  versa 


;  get  low  byte  of  E 

j  stOKMo  ZP+2  (if  .X  was  0)  or  ZP  (if  .X 

;  for  high  byte 

;  get  high  byle  of  buffer 

:  store  lo  ZP+3  (if  .X  was  0)  or  ZP+ 1  (if  .X 

i  was  2) 


J  low  byte  first 
;theni 


;  MOVEIT  moves  bytes  from  address  in  ZP  lo 
;  address  in  ZP+2. 
;  as  an  index  in  MOVELP 
;  get  a  byte  from  origin  (TEXT  or  1 
;  and  move  it 
•  Increment  zero- 
;  and  target 
;  Increment  the  oi 
j  increment  low  byre 
;  if  low  byte  hasn't  turned  over,  increment 
;  target  pointers 
;  increment  high  byte 

;  increment  the  low  byte  of  the  target  pointer 
;  if  low  byte  hasn't  turned  over,  skip  over 
:  high-byte  increment 
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SMI 


C078 
C07A 
C07D 


E6  FE 
CE  SC 
DO  EB 


CO 


[NCZP2 


C07F    CE  8D  CO 


C082 


C9 
C087  DO 


00 


INC     ZP+3  ;  increment  high  byte  of  target  pointer 

DEC     BUFCTR  ;  decrement  low  byte  of  buffer  counter 

BNE     MOVELP         ;  if  not  equal,  more  of  the  buffer  remains,  so 
;  continue  moving 

;  otherwise,  decrement  high  byte  of  buffer 
;  counter 

;  continue  moving  until  last  page  of  buffer 
;  has  transferred 

i  0  through  255  on  last 


DEC  BUFCTR +1 

LDA  BUFCTR +1 

CMP  #255 

BNE  MOVELP  ;  we've  yet  to  reach  last  page,  so  continue 


;  number  of  bytes  to  t 
-byte  counter  I 
'  to  move 
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Name 


POKE  to  screen  and 


With  POKSCR,  you  can  position  a  series  of  colored  characters 
beginning  at  any  location  on  the  text  screen. 


Prototype 


1.  Define  the  screen  codes  of  the  ch 


on  the  screen  (as  SCODE)  and  I 


values  (as  COLVAL). 

2.  Set  SCREEN  equal  to  the  first  screen  position  where  the 
characters  will  be  placed. 

3.  Load  the  accumulator  with  the  low  byte  of  SCREEN  and  .X 
with  its  high  byte.  Then  JSR  to  LOCATE. 

4.  In  LOCATE,  store  the  starting  text  position  in  zero  page. 
Calculate  the  starting  color-RAM  position  and  store  it  in 
zero  page  as  well. 

5.  Using  zero-page  addressing,  store  the  screen  codes  in  text 
memory  and  colors  in  color  RAM. 

Explanation 

The  following  program  puts  the  message  LINE  3  at  the  begin- 
ning of  line  3  on  the  text  screen.  Each  character  within  the 
message  is  shown  in  a  different  color  (except  for  the  space). 

The  subroutine  LOCATE  puts  the  initial  text  position 
(SCREEN)  and  color-RAM  position  for  the  message  in  zero 
page.  The  proper  color  memory  address  is  determined  by 
performing  a  two-byte  addition  of  SCREEN  to  OFFSET,  where 
OFFSET  represents  the  difference  between  text  and  color 
memory. 

POKSCR  can  easily  be  modified  to  store  screen  codes 
elsewhere  in  screen  memory.  Put  the  list  of  screen  codes  for 
your  characters  in  SCODE  and  the  color  of  each  in  COLVAL. 
Change  SCREEN  to  the  desired  screen  location.  Then  count 
the  number  of  screen  codes  and  replace  the  six  within 
POKELP  with  this  number. 

For  a  table  of  color  values,  see  COLFIL. 


Routine 


cooo 

CQOO 


cooo 
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y  with  color. 


COM 

A9 

50 

POKSCR 

LDA 

#<SCREEN 

COOT 

A2 

04 

LDX 

#>SCREEN 

COM 

20 

19 

CO 

JSR 

LOCATE 

a  n 

AU 

Art 
vv 

i  nv 

MB 

C009 

B9 

2E 

CO 

POKELP 

LDA 

COLVAL.Y 

COOC 

91 

FD 

STA 

(ZP+2),Y 

COOE 

B9 

28 

CO 

LDA 

SCODE.Y 

j  1 

fl 

CD 

<;ta 

a  in 

C013 

C8 

1NY 

C014 

CO 

06 

CPY 

#6 

C016 

DO 

Fl 

BNE 

POKELP 

C018 

60 

RTS 

or 
J~ 

ED 
lD 

I  fir  ATT 

STA 

ZP 

core 

86 

FC 

STX 

ZP+1 

C01D 

18 

CLC 

C01E 

69 

00 

ADC 

#<OFFSET 

C020 

85 

FD 

STA 

ZP+2 

C023 

8A 

TXA 

69 

ADC 

*>OFFSET 

C025 

85 

FE 

STA 

ZP+3 

C027 

60 

RTS 

C02S 

OC 

09 

OE 

SCODE 

.BYTE 

12.9,14.5,32, 

C02E 

0.5 

02  07 

COLVAL 

.BYTE 

5.2,7.4.4.14 

i  Store  screen  codes  to  rr 
;  low  byte  of  screen  pos 
;  and  high  byte 
;  put  screen  pi 
;  in  zero  page 
;Now 
;  color. 
.-  as  an  index 


;  store  the  color  for  character  in  SCODE 
;plus.Y 

;  store  each  screen  code 
;  next  screen  code 
;  have  we  done  all  six? 
;  if  note 


jj  Enter  with  low  (.A)  and  high  (,X>  bytes  of 
;  screen  position. 

;  Store  starting  text  position  in  ZP  and 
;  ZP+1.  color  InZP+2  utd  ZP+3. 

;  Add  in  offset  for  color  memory. 


i 

il 

;  screen  codes  (or  'XINE  3" 

;  colors-CRN,  RED.  YEL,  PUR,  PUR,  LT 
;BLU 


PRTCHR. 
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Name 

Print  a  character  on  the  screen 
Description 

You'll  need  this  routine  anytime  you  print  a  character  on  the 
text  screen.  PRTCHR  relies  on  the  Kernal  routine  CHROUT  to 
locate  a  character  at  the  current  cursor  position. 

Prototype 

1.  Enter  this  routine  with  the  ASCII  value  of  th 


1.  Enter  this  routine  with  the  ASCII  value  of  the  character  } 
want  to  print  in  .A  (defined  as  CHAR). 

2.  JSR  to  the  Kernal  routine  CHROUT  and  RTS  (or  simply 
JMP  to  CHROUT). 

Explanation 

The  example  program  clears  the  screen  with  CLRCHR  and 


Note:  On  the  128,  CHROUT  is  also  referred  to  as  BSOUT. 


Routine 

cooo 


CHROUT  - 


65490 


COOO  A9  93  CLRCHR 

C002  20    D2  FF 

C005  AD  10  CO 

C008  20    0C  CO 

C00B  60 


C0OC  20  D2  FF  PRTCHR 
CO0F  60 

C010    4A  CHAR 

See  also  POKSCR. 


LDA  #147 

JSR  CHROUT 

LDA  CHAR 

JSR  PRTCHR 


CHROUT 

:BYTE  74 


;  Kernal  character  output  routine 
;  dear  screen  and  print  J. 


;  Print  the  character  in  A. 

;  print  It  at  the  current  cursor  location 


;  ASCn  value  for  J 
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Name 

Send  characters  to  the  printer 
Description 

Open  a  channel  to  the  printer  and  output  an  ASCII  character 
Prototype 

1.  Using  OPENPR,  open  the  printer  channel  with  the  param- 
eters 4,4,0. 

2.  Load  the  accumulator  with  the  ASCII  character  you  wish  to 
print. 

3.  Print  it  with  the  Kernal  routine  CHROUT. 

4.  With  the  file  number  in  .A,  JMP  to  CLOSFL  to  close  the 
printer  channel  and  restore  output  to  the  screen. 

Explanation 

The  example  program  opens  the  printer  as  channel  4  and 
prints  an  uppercase  T.  For  a  program  that  prints  an  entire 
string,  see  PRTSTR. 

Note:  For  most  printers,  the  logical  file  number  for  the 
output  can  be  any  integer  in  the  range  0-255;  the  device  num- 
ber is  usually  4.  Some  printers  can  also  use  5  as  a  device 
number. 

The  secondary  address  sends  information  on  Commodore 
printers  about  the  character  set.  A  value  of  0  causes  Com- 
modore printers  to  print  in  uppercase  and  graphics.  A  value  of 
7  causes  them  to  print  in  uppercase  and  lowercase.  Some 
printers  require  a  value  of  255  (for  no  secondary  address)  here. 
Consult  your  printer  or  interface  manual  to  determine  the  ex- 
act significance  these  parameters  have  with  your  printer  or 
printer  interface. 

Finally,  the  last  couple  of  instructions  are  necessary  on 
certain  printers  that  store  output  in  a  buffer  before  printing  it. 
Printing  the  carriage  return  insures  that  this  buffer  gets  printed. 

Routine 

C000  SETLFS  =  65466 

C00O  OPEN  =  65472 

C0OO  CHKOUT  =  65481 

C000  CHROUT  =  65490 

C000  CLOSE  -  65475 

C0OO  CLRCHN  -  65484 


C0O0  20  12  CO  PRTOUT  JSR  OPENPR 
C003    A9  54  LDA  #84 

COOS    20    D2  FF  JSR  CHROUT 


Open  a  file  to  the  printer  with  OPENPR. 
print  T.  and 

close  printer  channel  with  CLOSFL. 
open  the  printer 
print  T 
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C008  A9  OD 

COOA  20  D2  FF 

COOD  A9  04 

COOF  4C  23  CO 


C012  A9  04 
C014    A2  04 

C016    AO  00 


OPENPR 


C018  20  BA  FF 

C01B  20  CO  FF 

C01E  A2  04 

C020  4C  C9  FF 


LDA 
JMP  CLOSFL 


LDA 
LDX 


#4 


LDY  #0 


ISR  SETLFS 

JSR  OPEN 

LDX  #4 

IMP  CHKOUT 


;  Hie  to  close 

;  close  file  lo  printer,  restore 

;  OPEN  the  printer  as  4,4,0. 
;  logical  file  4 

i  device  number  (printer  is  usually  device  4, 


;  A  value  of  0  here  causes  C 
;  printers  to  print  m  uppercase /grap 
;  A  value  of  7  causes  Commodore  printers  to 
;  print  in  lowercase/uppercase. 
;  Some  printers  require  a  value  of  255 
;  (meaning  no  secondary-  address), 
ii 

;  set  values 

;  open  a  file  to  printer  (OPEN  4.4,0) 

i.  diretf  °ulFu' to  "Is  3  (that  is,  CMD  4)  and 


023    20   C3  FF   CLOSFL      JSR  CLOSE 
026    4C  CC  FF  JMP  CLRCHN 


See  also  CLDSFL,  OPENPR,  PRTSTR. 


; 

;  CLOSFL  closes  the  logical  file  in  .A  and 
i  restores  default  devices. 
;  close  file  in  A 

;  clear  all  channels,  restore  default  devices 
! and  RTS 
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Send  a  string  to  the  printer 


PRTSTR  opens  a  channel  to  the  printer  and  prints  an  ASCII 
string. 

Prototype 

1.  OPEN  the  printer  channel  with  the  parameters  4,4,0  by 
using  OPENPR. 

2.  JSR  to  a  string-printing  routine. 

3.  After  printing  the  string,  send  a  carriage  return  to  clear  the 
printer  buffer. 

4.  With  the  number  of  the  open  file  in  .A,  JMP  to  CLOSFL  to 
close  the  printer  channel  and  restore  output  to  the  screen. 


The  example  program  opens  the  printer  as  channel  4  and 
prints  HELLO. 

Notice  the  custom  printing  routine  STRCPT;  it  works  with 
both  the  64  and  the  128.  You  could  shorten  the  program  some- 
what by  substituting  STP64  on  the  64  or  STP128  on  the  128. 
To  print  individual  characters,  see  PRTOUT. 
Note:  For  most  printers,  the  logical  file  number  for  the 
output  can  be  any  integer  in  the  range  0-255.  The  device 
number  is  usually  4  (with  nearly  all  Commodore  printers). 
Some  printers  can  also  use  5  as  a  device  number. 

The  secondary  address  sends  information  on  Commodore 
printers  about  the  character  set.  A  value  of  0  causes  Com- 
modore printers  to  print  in  uppercase  and  graphics.  A  value  of 
7  causes  them  to  print  in  uppercase  and  lowercase.  Some 
printers  require  a  value  of  255  (for  no  secondary  address)  here. 
It  is  best  to  consult  your  printer  manual  to  determine  the  exact 
significance  that  these  parameters  will  have  with  your  printer 


cooo 
cooo 
cooo 
cooo 
cooo 


SETLFS  =  65466 

OPEN  =  65472 

CHKOUT  =  65481 

CHROUT  =  65490 

CLOSE  -  65475 

CLRCHN  =  65484 

ZP  =  251 


;  Open  a  file  to  the  printer  with  OPENPR. 
;  print  a  string  with  STRCPT,  and 
:  close  the  channel  with  CLOSFL. 
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COOO  20  10    CO  PRTSTR 

C003  20  27  CO 

C006  A9  OD 

COOS  20  D2  FF 

COOB  A9  04 

COOD  4C  21  CO 


CO  10  A9  04  OPENPR 

C012  A2  04 

C014  AO  00 

C016  20  BA  FF 

C019  20  CO  FF 

C01C  A2  04 

C01E  4C  C9  FF 


C021    20    O  FF  CLOSFL 

C024    4C   CC  FF 


C027  A9  41  STRCPT 

C029  85  FB 

C02B  AO  CO 

C02D  84  FC 

C02F  AO  00 

C031  Bl  FB  STRLOP 

C033  FO  OB 

C035  20  D2  FF 

C038  C8 

C039  DO  F6 

C03B  E6  FC 

C03D  4C  31  CO 

C040  60  FINISH 

C041  48  45    4C  STRING 

C046  00 


JSR 

JSR 

LDA 

JSR 

LDA 

IMP 


LDY 

JSR 

JSR 

LDX 

IMP 


)SR 
JMP 


OPENPR 
STRCPT 
#13 

CHROUT 
#4 

CtOSFL 


LDA  *4 
LDX  #4 


«0 

SETLFS 

OPEN 

#4 

CHKOUT 


CLOSE 
CLRCHN 


LDA  #<STRING 

STA  ZP 

LDY  #>STRINC 

STY  ZP+1 

LDY  #0 

LDA  (ZP),Y 

BEQ  FINISH 

JSR  CHROUT 
1NY 


;  open  the  printer 
;  print  the  string 

j  print  RETURN  to  dear  printer  buffer 
;  file  to  do«e 

;  doseBle  to  P^gn  festore  default  device 

i  OPEN  the  printer  file  as  4,4,0. 
;  logical  file  4 

;  device  number;  printer  Is  usually  device  4 

;  (sometimes  5) 

;  secondary  address 

;  set  values 

;  open  a  file  to  printer 

;  direct  output  to  file  4  and  RTS 

;  Closes  the  logical  file  specified  in  Ji  and 
;  restores  default  devices. 
;  close  file  in  .A 

;  dear  all  channels;  restore  default  devices 
;  and  RTS 


;  String  printing  routine 
;  low  byte  of  string  address 
;  store  it 

;  high  byte  of  string  address 
;  store  it  also 
;  initialize  Index 
;  load  each  character  from 
,  zero  byte  marks 
;  print  character 


STRLOP  ;  if  not  more  than  256  bytes,  then  get  next 


INC  ZP+1 

JMP  STRLOP 
RTS 

-ASC  "HELLO" 

.BYTE  0 


;  otherwise,  increment  1 
;  pointer  to  the  string 


;  string  to  print 

;  ending  in  zero  byte 


See  also  CLOSFL,  OPENPR,  PRTOUT. 
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Name 

Print  a  s 


»  from  a  lookup 


PTABAD  is  one  of  two  routines  presented  in  this  book  that 
print  strings  from  a  table  (the  other  is  PTABCT).  With 
PTABAD,  individual  entries  in  a  string  table  are  given  their 
own  labels.  A  corresponding  table  of  addresses  for  these  labels 
is  created.  So,  by  indexing  the  address  table,  you  can  find  the 
address  of  a  particular  string  from  the  table. 

As  with  PTABCT,  each  entry  must  end  in  a  zero  byte.  In 
this  case,  the  table  itself  can  contain  up  to  127  separate  en- 
tries. Strings  within  the  table  need  not  be  of 
ly 


Prototype 

1.  Enter  the  routine  with  .A  holding  the  specified  entry  num- 
ber. With  ASL,  multiply  this  number  by  2. 

2.  Transfer  the  number  of  the  entry  requested  (rimes  2)  from 
Ji  to  .X. 

3.  Store  the  address  bytes,  indexed  by  .X,  of  the  chosen  string 
in  zero  page. 

4.  Print  the  entry  with  STRCPT. 

Explanation 

The  example  program,  with  the  aid  of  PTABAD,  prints  a  word 
corresponding  to  a  number  in  the  range  0-9. 

The  program  accepts  only  the  number  keys  as  input  (see 
CHRGTR).  The  ASCII  value  of  the  number  you  specify  is 
ANDed  with  15,  giving  a  number  in  the  range  0-9. 

After  receiving  a  value,  the  program  calls  PTABAD,  where 
the  proper  string  is  printed,  and  then  waits  for  you  to  press 
another  number  key.  To  exit,  press  RUN/STOP-RESTORE. 

Note:  This  method  of  accessing  entries  in  a  string  table  is 
faster  than  the  method  used  in  PTABCT,  especially  if  there 
are  a  large  number  of  entries.  However,  since  each  entry  re- 
quires two  additional  addressing  bytes  (in  ADRTAB),  the 
multi-entry  tables  add  to  the  length  of  the  program.  If  you 
have  a  lot  of  short  entries  in  your  table,  you  may  prefer  to  use 


Routine 

cooo 
cooo 
cooo 


GET  IN 

CHROUT 

ZP 


65508 
65490 


411 


PTABAD 


cooo 

20 

h4 

FF 

rep 

C  I-  TIM 

>  .•  r  I  liN 

C003 

C9 

30 

CMP 

#48 

COOS 

90 

F9 

BCC 

WAIT 

C007 

C9 

i 

CMP 

#58 

C009 

BO 

FS 

BCS 

WAIT 

COOB 

29 

OF 

AND 

»15 

COOD 

20 

17 

CO 

JSR 

PTABAD 

C010 

A9 

OD 

LDA 

#13 

CO:  2 

D2  FF 

JSR 

i  r>  i — 1 1  it 

CrlROUT 

CO  15 

DO 

E9 

BNE 

WAIT 

C017 

OA 

PTABAD 

ASL 

C018 

AA 

TAX 

C019 

BD 

35 

CO 

LDA 

ADRTAB,! 

COIC 

85 

FB 

STA 

ZP 

COIE 

BD 

36 

CO 

LDA 

ADRTAB A 

C021 

85 

FC 

STA 

ZP+1 

C023 

AO 

00 

STRCPT 

LDY 

#0 

C025 

Bl 

FB 

STRLOP 

LDA 

IZP),V 

C027  FO  OB 

C029  20  D2  FF 

C02C  CS 

C02D  DO  F6 

C02F  E6  FC 

C031  4C  25  CO 

C034  60  FINISH 


FINISH 
CHROUT 


BEQ 
JSR 
INY 
BNE  STRLOP 
INC  ZP+1 


;  get  character  code  for  key 

;  compare  with  ASCII  0 

;  too  low.  so  get  another  keypress 

;  compare  with  ASCII  9  plus  1 

:  too  high,  so  gel  another  key 

;  to  produce  value  0-9 

;  print  corresponding  string  from  table 

;  print  RETURN 

.  look  for  another  number 

,  Enter  with  .A  containing  the  entry  number 
;  to  print  in  the  string  table. 
;  multiply  by  2  for  offset  into  address  table 
;  store  number  times  2  in  .X 
;  load  low  byte  of  address  for  number 
;  store  in  zero  page 
1.X  ;  also  store  high  byte  in  zero  page 


;  initialize  index 
;  load  each  character  from  entry  in  string 
;  table 

;  if  zero  byte,  you're  finished 
;  print  character 


JMP 
RTS 


STRLOP 


;  next  character 
,-if.Yia  not  zero,, 
;  otherwise,  i 
;  pointer  to  e 
;  and  continue  pi 


i  another  character 
t  high -byte  address 


C035    49    CO   4E  ADRTAB 


C049 
C04D 
C04E 
C051 
C052 
C055 


;  ADRTAB  contains  two-bvte  addresses  of 
;  each  string  entry. 
.WORD  N0,N  1,N2JM3,N4.N5,N6.N7,N8,N9 
:  string  table 

.ASC  "ZERO" 


.ASC  "ONE" 
•BYTEO 

.ASC  "TWO" 
.BYTEO 

ASC  "THREE" 
.BYTEO 

ASC  "FOUR" 
.BYTEO 

.ASC  "FIVE" 
-BYTEO 
.ASC  "SIX" 
.BYTEO 

ASC  "SEVEN" 
.BYTEO 

ASC  "EIGHT" 
.BYTEO 

.ASC  "NINE" 
BYTEO 


See  also  PTABCT,  STP128,  STP64,  STRCPT,  STRLEN. 
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Name 

Print  a  string  from  a  table  using  a  counting  method 
Description 

This  is  the  second  of  two  routines  that  print  string  messages 
from  a  table  (PTABAD  is  the  other).  PTABCT  relies  on  the 
fact  that  individual  strings  in  the  table  end  with  a  zero  byte. 
The  table  itself  can  contain  up  to  255  separate  entries. 

PTABCT,  unlike  many  routines  of  this  type,  does  not  use 
an  offset  to  address  an  individual  table  entry.  Because  of  this, 
strings  within  the  table  need  not  be  padded  with  spaces  to  in- 
sure they  are  equal  in  length. 

Prototype 

1.  Enter  with  the  address  of  the  string  table  contained  in  .X 
(low  byte)  and  .Y  (high  byte).  Store  the  address  in  a  zero 
page  pointer. 

2.  Transfer  the  number  of  the  entry  requested  from  .A  to  .X. 

3.  If  the  specified  entry  number  is  zero,  go  to  step  10  to  print 
ZERO. 

4.  Read  a  byte  from  the  STRING  table. 

5.  If  a  byte  is  nonzero,  branch  to  step  8. 

6.  Otherwise,  decrement  the  entry  counter  in  .X. 

7.  If  the  counter  value  has  reached  zero,  go  to  step  9. 

8.  Update  the  zero-page  pointer  so  that  it  points  to  the  next 
byte  and  JMP  to  step  4. 

9.  Increment  .Y  so  that  it  points  to  the  first  byte  in  the  speci- 
fied entry. 

10.  Print  the  chosen  entry  with  STRCPT. 
Explanation 

This  is  a  very  flexible  and  useful  routine.  In  a  variety  of  pro- 
grams, you'll  require  standard  messages  such  as  ARE  YOU 
SURE?,  PRESS  ANY  KEY,  PLEASE  WAIT,  LOADING  FILE, 
and  so  on.  If  you  assign  a  number  to  each  message,  you  can 
print  any  one  of  the  messages  by  calling  this  routine. 

In  the  example  program,  PTABCT  is  used  to  print  a  word 
corresponding  to  a  number  0-9.  Only  the  number  keys  (see 
CHRGTR)  are  acceptable  input.  The  ASCII  value  of  the  num- 
ber you  choose  is  ANDed  with  15,  yielding  a  number  0-9. 

Before  JSRing  to  PTABCT,  the  address  of  the  string  table 
must  be  placed  in  the  X  and  Y  registers. 

string  table/character  by  characterfuntil  it  comes  upon  a  zero 
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byte,  which  indicates  the  end  of  another  entry.  At  this  point, 
the  counter  in  .X  is  decremented.  When  the  counter  value 
reaches  zero,  the  next  entry  is  the  chosen  string. 

After  printing  this  string,  the  program  waits  for  you 
to  press  another  number  key.  To  exit,  press  RUN/STOP- 
RESTORE. 

Note:  If  your  string  table  contains  a  considerable  number 
of  entries,  the  method  used  here — that  is,  counting  through  all 
the  entries — may  begin  to  slow  down  the  program.  In  that  case, 
use  PTABAD  where  individual  entries  are  addressed  separately. 

Routine 


cooo 
cooo 


CHROUT 
ZP 


COOO  20  E4    FF  WAFT 

C003  C9  30 

C005  90  F9 

C007  C9  3A 

C009  BO  F5 

CO0B  29  OF 

C00D  A2  46 

C00F  AO  CO 

con  20  ic  co 

COM  A9  0D 

CO  16  20  D2  FF 

CO  19  4C  00  CO 


JSR 

CMP  #48 

BCC  WAIT 

CMP  #58 

BCS  WATT 

AND  #15 

LDX  #<STRIAB 

LDY  #>STRTAB 

JSR  PTABCT 

LDA  #13 

|SR  CHROUT 

IMP  WAIT 


C01C 

56 

FB 

PTABCT 

STX 

ZP 

C01E 

84 

FC 

STY 

ZP+1 

C020 

AO 

00 

LDY 

#0 

C022 

AA 

TAX 
BEQ 

C023 

F0 

11 

STRLOP 

C025 

Bl 

FB 

LOOP 

LDA 

(ZP),Y 

DO 

03 

BNE 

INCZP 

COM 

DEX 

fO 

09 

BEQ 

STRCPT 

C02C 

FB 

INCZP 

INC 

ZP 

C02E 

F5 

BNE 

LOOP 

C03O 

E6 

FC 

INC 

ZP+1 

C032 

4C 

25  CO 

IMP 

LOOP 

C035 

C8 

STRCPT 

iNY 

C036 

Bl 

FB 

5TRLOP 

LDA 

(ZP).Y 

C038 

F0 

0B 

BEQ 

FINISH 

C03A 

20 

D2  FF 

1SR 

CHROUT 

;  Accept  only  keys  0-9  and  ) 
;  the  number  from  a  table. 
!  gel  ASCII  key 
;  compare  with  ASCII  0 
;  too  low,  so  get  another  keypress 
;  compare  with  ASCII  9  +  1 
;  too  high,  so  get  another  key 
f 

:  to  produce  value  0-9 

:  print  string  number  corresponding  to  .A 
|  print  RETURN 

:  get  another  number  key 

;  Enter  with  entry  number  in  ,A>  i 
;  address  in  .X  and  .Y. 
!  store  low  and  high  byte  of  string  table 
;  address  In  zero  page 

;  as  an  index  in  LOOP  or  SI 
;  use  .X  to  hold  input  number 
;  if  zero,  print  it 
;  load  character  from  table 
;  if  not  a  zero  byte 
;  if  zero  byte,  decrement  Ihe  counter 
;  counter  is  at  zero,  so  print  string  from  the 
;  table 

;  to  point  to  next  character 
;  If  not  on  a  | 
;  character 
;  otherwise, 
;  address 

;  and  continue  to  look  at  characters 

I 

;  Print  out  number  string  with  STRCPT 
;  since  string  begins  with  next  character. 
;  load  each  character  from  an  entry  in  str 
:  table 

j  if  zero  byte,  you're  finished 
;  print  character 


PTABCT 


C03D  C8 

DMY 

C03E  DO 

F6 

BNE  STRIOP 

C040  E6 

FC 

INC  ZP+1 

C042  4C 

36 

CO 

IMP  STRLOP 

- 

C046  5A 

45 

52  STRTAB 

ASC  "ZERO" 

C04A  00 

.BYTE0 

C04B  4F 

4E 

45 

.ASC  "ONE" 

C04E  00 

.BYTE0 

C04F  54 

57 

4F 

.ASC  'TWO" 
BYTEO 

C052  00 

48 

COS.?  54 

52 

.ASC  "THREE" 

C058  00 

'.ASC  "FOUR" 

C059  46 

4F 

55 

COSD  00 

.BVTE0 

C05E  46 

49 

56 

.ASC  "FIVE" 

C062  00 

-BVTE0 

C063  53 

49 

58 

.ASC  "SIX" 

C066  00 

.BYTE0 

C067  53 

45 

56 

.ASC  "SEVEN" 

C06C  00 

BYTEO 

C06D  45 

49 

47 

.ASC  "EIGHT" 

C072  00 

.BYTEO 

C073  4E 

49 

4E 

.ASC  "NINE" 
.BYTEO 

C077  00 

;  next  character 

;  if  .Y  is  not  zero,  get  another  character 
:  otherwise,  incremenl  high-byte  address 
;  pointer  to  entry 
:  and  continue  printing 


See  also  PTABAD,  STP128,  STP64,  STRCPT,  STOLEN. 
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Name 

Set  up  a  raster  interrupt 
Description 

This  routine  seemingly  performs  magic.  Instead  of  one  screen, 
suddenly  there  are  two  half-screens,  each  with  its  own  back- 
ground color  and  eight  sprites.  Running  the  sample  BASIC 
program  gives  you  a  total  of  16  independent  sprites  (each  lim- 
ited to  one  half  of  the  screen  or  the  other)  which  can  be  dis- 
played at  the  same  time. 

Prototype 

This  is  a  two-part  routine.  In  the  first  part,  RAS64: 


-  main  raster 

interrupt  routine  (MAIN). 

3.  Clear  the  ninth  bit  of  the  raster  compare  register  (bit  7  of 
location  53265). 

4.  Enable  the  raster  compare  IRQ  interrupt. 

5.  Create  two  sets  of  shadow  registers  for  the  VIC-II  chip  reg- 
isters (53248-53294)  by  copying  them  twice  into  free 
memory. 

6.  Then  RTS. 

In  MAIN: 

1.  Prevent  other  interrupts  from  occurring  by  clearing  the 
interrupt  condition. 

2.  Determine  where  the  last  raster  line  was  drawn  by  reading 
the  raster  compare  register  at  53266. 

3.  If  it  was  less  than  147,  store  a  147  into  the  raster  register  so 
the  next  raster  interrupt  occurs  at  this  line  (the  middle  of 
the  screen).  Otherwise,  store  a  one  in  this  register  so  the 
raster  interrupt  occurs  at  the  top  of  the  screen, 

4.  Allow  the  current  raster  line  to  finish  drawing  and  then 
copy  the  appropriate  set  of  shadow  registers  into  the  VIC-II 
chip  (representing  either  the  top  or  bottom  of  the  screen). 

5.  Check  the  interrupt  control  register  (CIAICR)  for  a  Timer  A 
interrupt.  If  one  has  occurred,  execute  the  normal  IRQ  ser- 
vice routine.  Otherwise,  restore  the  stack  and  RTI. 

Explanation 

On  the  64,  the  normal  hardware  interrupt  happens  60  times  a 
second  (50  times  per  second  on  European  64s).  One  of  the 
CIA  chips  is  given  the  responsibility  of  counting  down  and 
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triggering  an  interrupt  after  a  certain  period  of  time  has 
elapsed.  The  hardware  interrupt  is  a  maskable  interrupt  re- 
quest (IRQ),  not  a  nonmaskable  interrupt  (NMI).  Maskable 
means  it  can  be  turned  off. 

The  hardware  interrupt  is  important  because  it  causes  the 
CPU  (the  brains  of  the  64)  to  pause  what  it's  doing  and  ser- 
vice the  interrupt.  During  the  service  routine,  the  cursor 
blinks,  the  keyboard  is  checked  for  keypresses,  and  the  jiffy 
clock  is  updated. 

The  ML  program  below  first  turns  off  the  normal  inter- 
rupt. It  will  no  longer  be  triggered  by  the  CIA  clock.  Instead, 
we  turn  on  a  different  interrupt,  one  caused  by  the  position  of 
the  raster  on  the  screen.  North  American  TVs  and  monitors 
normally  use  525  raster  lines  per  screen,  but  the  64  draws 
only  half  this  many,  so  there  are  effectively  262.5  lines  per 
screen.  Of  these,  200  make  up  the  text  screen  and  the  addi- 
tional lines  form  the  top  and  bottom  borders.  The  raster  lines 
of  the  visible  screen  are  numbered  50-250.  The  halfway  point 
on  the  screen  is  raster  line  150. 

The  IRQVEC  at  788  normally  points  to  the  interrupt  ser- 
vice routine  (which  reads  the  keyboard  and  handles  the  other 
housekeeping  chores).  The  first  thing  we  do  after  disabling  the 
interrupt  is  change  the  vector  to  point  to  our  routine.  Next,  the 
raster  interrupt  is  turned  on  and  we  make  two  copies  of  the 
VIC  chip  registers,  one  at  $C100  (49408)  and  the  other  47 
bytes  higher. 

Now  interrupts  are  triggered  when  the  raster  beam 
reaches  a  certain  line  on  the  screen.  When  line  147  appears, 
suddenly  an  interrupt  occurs.  The  register  RASTER  does  two 
things,  if  you  read  it,  it  tells  you  which  line  is  being  drawn.  If 
you  write  to  it,  you  set  the  value  for  a  raster  interrupt.  If  the 
raster  is  in  the  middle  of  the  screen,  we  want  to  enable  a  new 
raster  interrupt  to  happen  at  line  1.  If  the  raster  is  at  line  1,  we 
change  the  interrupt  to  happen  at  line  147.  After  each  inter- 
rupt, the  main  routine  copies  one  of  the  two  shadows  of  the 
VIC  chip  to  the  VIC  chip. 

Since  there  are  two  complete  copies  of  the  VIC  chip,  you 
can  treat  the  two  halves  of  the  screen  as  two  separate  screens. 
One  could  be  in  multicolor  hi-res  mode  while  the  other  is 
displaying  normal  text.  You  can  give  each  half  separate  border 
and  background  colors.  Each  halfscreen  has  its  own  eight 
sprites,  with  which  you  can  do  what  you  please. 
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After  assembling  and  SYSing  to  the  RAS64  program,  type 
in  and  run  the  following  short  BASIC  program  to  see  the  ef- 
fects of  the  raster  interrupt: 

10  PRINT  CHR$(147):POKE  49408  +  33,0:POKE  49455+ 33,0 :REM 
BACKGROUND  BLACK 

15  FOR  A-832  TO  896:POKE  A,255:NEXT:REM  DEFINE  BLOCK  SPRITE 

20  FOR  A =2040  TO  2047:POKE  A,13:NEXT:REM  SET  SPRITE  POINT- 
ERS TO  BLOCK  SPRITE 

30  POKE  49408 +21,255:POKE  49455 +21,255:REM  ENABLE  SPRITES 
(TOP/BOTTOM) 

39  REM  HORIZONTAL  POSITION  (TOP/BOTTOM) 

40  FOR  A =49408  TO  49422  STEP  2:POKE 
A + 47,B*25  +  50:B = B + l.-NEXT 

49  REM  VERTICAL  POSITION  (TOP/BOTTOM) 

50  FOR  A  =  49409  TO  49423  STEP  2:POKE  A,100:POKE  A+47,200:NEXT 


cooo 


cooo 


VIC 

NEWVIC 

CIAICR 

SCROLY 


RASTER 
IRQVEC 
IRQNOR 
1RQEND 


A9 

7F 

RAS64 

LDA 

8D  0D  DC 

STA 

C005 

A9 

28 

LDA 

C007 

SD  14 

03 

STA 

C00A   A9  CO 
C00C    SD  15 

03 

LDA 

C00F 

A9 

CQ11 

8D 

11 

DO 

STA 

COM 

A9 

01 

LDA 

C016 

8D 

1A 

DO 

STA 

C019 

AO 

2E 

LDY 

C01B 

B9 

00 

DO 

COPY 

LDA 

C01E 

99 

00 

CI 

STA 

C021 

99 

2F 

CI 

STA 

C024 

88 

DEY 

C025 

10 

F4 

BPL 

C027 

60 

RTS 

C028 

A9 

01 

MAIN 

LDA 

53248 
49408 
56333 


.  start  of  VIC  chip  registers 
;  shadow  registers  for  VIC  chip 

:  interrupt  control  ri  

;  scrolling/control  r 


53266 
788 
59953 
65212 


#$7F 

CIAICR 

#<MAIN 

IRQVEC 

#>MAIN 

IRQVEC +1 

#%00011011 

SCROLY 

#1 

IRQMSK 
#46 
VIC,Y 


;  IRQ  mask  register 
j  VIC  interrupt  flag  register 
;  read/write  raster  compare  r 
;  IRQ  Interrupt  vector 
i  normal  IRQ  handler  routine 
;  end  of  IRQ  interrupt  h 
;  and  RTI) 


;  turn  off  CIA  #1  Interrupts 

;  redirect  IRQ  interrupt  vector  to  main,  low 

;  byte  first 

;  then  high  byte 

;  clear  high  bit  of  raster  compare  register 


NEWVIC.Y 


;  enable  raster  interrupts 
;  index  for  COPY 

j  copy  47  VIC  registers  as  two  sets  of 
;  Bhadow  registers 

;  initialize  shadow  registers  for  top  of 

NBWVrC+4^Y;Saeen,Setl, 

;  initialize  shadow  registers  for  bottom  of 
;  screen  (set  2) 
;  next  lower  VIC  register 
COPY  .area 


;  Main  raster  interrupt  routine  foUows. 


RAS64  (64  only) 


C02A   8D  19  DO 

C02D  A2  93 
C02F    AO  2E 


C031  AD  12 

C034  C9  93 

C036  90  04 

C03S  A2  01 

C03A  AO  5D 

C03C  8A 


DO 


TOP 


C03E  A2  03 

COM  CA  DELAY 

C041  DO  FD 

C043  EA 

C044  A2  2E 

C046  B9    00  CI 

C049  9D  00  DO 

C04C  88 

C04D  CA 

C04E  10  F6 

C051    8D   12  DO 
AD  OD  DC 

£„3 
C05A   4C    31  EA 


STA  VICIRQ 

LDX  #147 

LDY  #46 

LDA  RASTER 

CMP  #147 

BCC  TOP 

LDX  #1 

LDY  #93 

TXA 

PHA 

LDX  #3 
DEX 

BNE  DELAY 
NOP 

3A  NEW  VIC,  Y 

STA  VIQX 
DEY 
DEX 

BPL  COPYBK 
PLA 

STA  RASTER 

LDA  C1AICR 
LSR 

BCC  NOIRQ 

JMP  IRQNOR 


C05D  4C  BC  FE   NOIRQ       JMP  IRQEND 

See  ako  IRQINT,  NMHNT,  RAS128. 


;  prevent  normal  raster — clear  interrupt 
j  condition 

j  raster  line  in  the  middle  of  screen 

i  index  for  VIC  registers  to  copy  for  top  of 

;  the  screen  (set  1) 

;  get  the  current  raster  line  number 

■  determine  if  it's  on  the  top  half  of  screen 

;  If  so,  skip  to  TOP 

;  raster  line  for  top  of  screen 

;  index  for  set  2  registers  (bottom  of  screen 

;  registers) 

;  raster  line  becomes  1  (if  now  on  bottom) 

;  or  147  (if  now  on  top) 

;  save  it  temporarily 

;  wait  for  current  raster  line  to  finish 

;  drawing 


;  slight  adjustment  to  DELAY 
;  index  for  COPYBK 

;  copy  from  set  1  or  2  VIC  shadow  registers 
;  to  VIC  registers 


;  copy  47  values 

;  get  new  raster  line  (1  or  147) 

;  set  raster  for  next  interrupt 

;  bit  1  set  if  IRQ  interrupt  is  needed 

;  bit  is  clear  so  no  IRQ  interrupts 

;  otherwise,  call  normal  IRQ  interrupt 

;  routine 

;  clean  up  stack  and  RTI 
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RAS128  (128  only) 


Name 

Set  up  a  raster  interrupt 
Description 

This  is  the  128  version  of  RAS64.  It  splits  the  screen  in  two 
and  provides  two  shadows  of  the  VIC  chip,  which  can  be  set 
to  any  of  the  video  modes  (hi  res,  multicolor  hi  res,  or  text). 
Each  half  has  its  own  eight  sprites  as  well. 

Prototype 

This  is  a  two-part  routine.  In  the  first  part,  RAS128: 

1.  Disable  all  IRQ  interrupt  sources. 

2.  Redirect  the  IRQ  interrupt  vector  at  788  to  the  main  raster 
interrupt  routine  (MAIN). 

3.  Clear  the  ninth  bit  of  the  raster  compare  register  (bit  7  of 
location  53265). 

4.  Create  two  sets  of  shadow  registers  for  the  VIC-II  chip  reg- 
isters (53248-53294)  by  copying  them  twice  into  free 
memory. 

5.  Reenable  IRQ  interrupt  sources  and  then  RTS. 
In  MAIN: 

1 .  Clear  decimal  mode  as  required  by  the  normal  IRQ  inter- 
rupt handler. 

2.  Prevent  normal  raster  interrupts  from  occurring  by  clearing 
the  interrupt  condition. 

3.  Determine  where  the  last  raster  line  was  drawn  by  reading 
the  raster  compare  register  at  53266. 

4.  If  it  was  less  than  147,  store  a  147  into  the  raster  register  so 
the  next  raster  interrupt  occurs  at  this  line  (the  middle  of 
the  screen).  Otherwise,  store  a  one  in  this  register  so  the 
raster  interrupt  occurs  at  the  top  of  the  screen. 

5.  Allow  the  current  raster  line  to  finish  drawing  and  then 
copy  the  appropriate  set  of  shadow  registers  into  the  VIC-II 
chip  (for  either  the  top  or  bottom  of  the  screen). 

6.  Check  a  flag  to  see  if  the  cursor  needs  blinking  (every  other 
time  through  the  routine).  If  so,  execute  the  normal  IRQ 
interrupt  handler  routine  (except  for  the  any  raster-related 
routines).  Otherwise,  leave  through  the  common  interrupt 
exit  point  at  65331. 
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RAS128  (128  only) 


Explanation 

For  a  more  detailed  explanation  of  what  interrupts  are,  see  the 
RAS64  routine.  Much  of  this  program  is  very  similar  to 
RAS64.  It  assembles  to  $0C00  on  the  128,  and  the  shadows  of 
the  VIC  chip  are  at  3328  ($0D00). 

After  assembling  and  SYSing  to  the  ML  raster  interrupt 
routine,  run  this  short  BASIC  program  to  see  the  effects  of  the 
raster  split: 

10  SCNCLR:POKE  2564,0:REM  TURN  OFF  NORMAL  SPRrTE 
ROUTINES 

15  FOR  A-3584  TO  3647:POKE  A,255:NEXT:REM  DEFINE  BLOCK 
SPRITE 

20  FOR  A =2040  TO  2047:POKE  A,56:NEXT:REM  SET  POINTERS  TO 

BLOCK  SPRITE  DATA 
30  POKE  3328+21,255:POKE  3375+21,255:  REM  ENABLE  SPRITES  FOR 

TOP/BOTTOM 

39  REM  HORIZONTAL  POSITIONS  (TOP/BOTTOM) 

40  FOR  A =3328  TO  3342  STEP  2:POKE  A,B*25  +  50:POKE 
A + 47,B»25 + 50:B = B  +  1:NEXT 

49  REM  VERTICAL  POSITIONS  (TOP/BOTTOM) 

50  FOR  A=3329  TO  3343  STEP  2:POKE  A,100:POKE  A+47,200:NEXT 


Routine 


ocoo 
ocoo 
ocoo 


ocoo 
ocoo 


VIC 

NEWVIC 
VJCIRQ 
RASTER 
IRQVEC 


CRT) 
ZP 


53248 

3328 

53273 


65331 
251 


;  start  of  VIC  chip 
;  shadow  registers  for  VIC  chip 
;  VIC  interrupt  flag  register 
;  read/write  raster  com! 
;  IRQ  interrupt  vector 
,-  text-mode  portion  of  L.> 
;  entry  point  to  IRQ  h— " 
;  raster  hani" 
:  interrupt  c 


OCOO  78 
0C01    A9  IB 


RAS128 


OC03  8D  14  03 

0C06  A9  0C 

0C08  8D  15  03 

0C0B  AO  26 

0C0D  B9  00  DO  COPY 

0C10  99  00  0D 

0C13  99  2F  0D 


0O6  88 

0C17  10  F4 

0C19  58 

0C1A  60 


SEI 
LDA 

STA 
LDA 
STA 
LDY 
LDA 


#<MAIN 


IRQVEC 
#>MAIN 
IRQVEC +1 
#46 
V1C.Y 


;  disable  all  IRQ  interrupts 
;  redirect  IRQ  interrupt  vector  to  main,  low 
;  byte  f 


;  index  for  COPY 

;  copy  47  VIC  registers  as  two  sets  of 
;  shadow  registers 
STA     NEWVICY     ;  initialize  shadow  registers  for  top  of 

;  screen  (set  1) 
STA  NEWVIC+47.Y 

;  initialize  shadow  registers  for  bottom  of 
;  screen  (set  2) 
DEY  ;  next  lower  VIC  register 

BPL      COPY  ;  are  aU  copied? 

CL1 
RTS 
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RAS128  (128 


MAIN 


TOP 


0C1B  D8 

OCIC  A9  01 

0C1E  8D  19  DO 

0C21  A2  93 

0C23  AO  2E 

0C25  AD  12  DO 

0C28  C9  93 

OCZA  90  04 

0C2C  A2  01 

0C2E  AO  5D 

0C3O  HA 

0C31  48 

0C32  A2  OA 


0C34  CA  DELAY 

0C35  DO  FD 

0C37  A2  2E 

0C39  B9  00    OD  COPYBK 

0C3C  9D  00  DO 

OOF  88 

0C40  CA 

0C41  10  F6 

OC43  68 

0C44  8D  12  DO 

0C47  A5  FB 

0C49  49  80 

0C4B  85  FB 

OC4D  10  07 

0C4F  38 

0C50  20  E4  CI 


CLD 

LDA  #1 

STA  VIORQ 

LDX  #147 

LDY  #46 

LDA  RASTER 

CMP  #147 

BCC  TOP 

LDX  #1 

LDY  #93 

TXA 

PHA 

LDX  #10 


DEX 
BNE 
LDX 
LDA 
STA 
DEY 


DELAY 
#46 

NEWVIQY 


COPYBK 

RASTER 
ZP 
#128 
ZP 

NOCURS 


BPL 
PLA 
STA 
LDA 
EOR 
STA 
BPL 
SEC 
JSR  IRQTXT 


0C53    4C   6B    FA  JMP  IRQNRP 

0CS6    4C  33    FF   NOCURS    JMP  CRTI 

T,  NMIINT,  RAS64. 


;  Main  raster  interrupt  routine  follows. 
;  clear  decimal  mode  (required  by  normal 
;  IRQ  handler) 

;  prevent  normal  raster— clear  interrupt 
;  condition 

;  raster  line  in  the  middle  of  screen 

;  index  for  VIC  registers  to  copy  for  top  of 

;  the  screen  (set  1) 

;  get  the  current  ratter  line  number 

;  determine  if  it's  on  the  top  half  of  screen 

;  if  so,  skip  to  TOP 

;  raster  line  for  top  of  screen 

;  index  for  set  2  shadow  registers  (bottom 

;  of  screen  registers) 

;  raster  line  becomes  1  (if  now  on  bottom) 

:  or  147  (if  now  on  top) 

;  save  it  temporarily 

;  wait  for  current  raster  line  to  finish 

;  drawing 


;  index  for  COPYBK 

;  copy  from  set  1  or  2  VIC  shadow  registers 
;  to  VIC  registers 


copy  47  values 
get  new  raster  line  (1  or  147) 
set  raster  for  next  interrupt 
flag  for  cursor 

flip  it  to  positive  or  negative 
save  result  for  next  pass 
only  go  to  the  cursor  routine  half  the  time 
required  by  following  routine 
go  to  text-mode  portion  of  IRQ  editor 
routine,  slapping  raster 
continue  beyond  normal  raster  routine 
clean  the  stack  and  RT1  (common 
"  exit  point) 
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RD2BYT 


Name 

Generate  a  random  two-byte  integer  value  using  SID  voice  3 
Description 

RNDBYT  returns  a  one-byte  random  integer  using  voice  3  of 
the  SID  chip.  RD2BYT  also  relies  on  voice  3  to  generate  a 
random  integer  value.  This  time,  two  separate  bytes  are  re- 
turned. One  represents  the  high  byte  of  the  number;  the  other, 
the  low  byte.  A  random  two-byte  integer  value  in  the  range 
0-65535  is  produced. 

Prototype 

In  an  initialization  routine  (RDINIT): 

1.  Set  voice  3  to  a  high  frequency 

2.  Select  the  noise  waveform. 

3.  Turn  off  the  SID  chip  volume  and  disconnect  the  output  of 
voice  3. 

In  RD2BYT  itself: 

%  Load  a  random  byte  value  from  voice  3's  random  number 
generator  (RANDOM)  into  .X. 

2.  Cause  a  delay  of  two  jiffies. 

3.  Load  a  second  value  from  RANDOM  into  .A. 


In  the  example  program,  a  random  two-byte  integer  is  gen- 
erated by  RD2BYT  and  printed  on  the  screen. 

The  setup  for  RD2BYT  is  the  same  as  in  RNDBYT.  Voice 
3's  random  number  generator  is  first  initialized  by  JSRing  to 
RDINIT.  For  a  full  explanation  of  how  the  random  number 
generator  is  accessed,  refer  to  RNDBYT. 

After  the  random  number  generator  has  been  initialized, 
two  individual  random  byte  values  are  taken  from  RANDOM 
(54299)  within  RD2BYT.  One  is  returned  in  the  X  register, 
and  the  other  in  the  accumulator.  It  really  doesn't  matter 
which  is  which. 

Notice  that  between  taking  these  two  bytes,  a  delay  of 
two  jiffies  (a  total  of  2/60  second)  is  carried  out.  This  insures 
that  the  current  waveform  has  had  time  to  change  before  the 
next  byte  is  taken.  If  not  for  this  delay,  the  two  bytes  would  be 
very  close  in  value,  and  we'd  lose  our  randomness. 
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RD2BYT 


Routine 

cooo 
cooo 

GET1N 

65508 

L1NPRT 

cooo 

FREH13  = 

cooo 

VCREG3 

54290 

cooo 

SIGVOL  - 

54296 

cooo 

RANDOM  = 

54299 

cooo 

JIFFY 

162 

COOO    20    09    CO    MAIN  JSR  RDINIT 

C003    20    17    CO  LOOP  ISR  RD2BYT 

C006    4C  CD  BD  NUMOUT  JMP  LINPRT 


A9  FF  RDINIT       LDA  #$FF 


C00B 
COOE 
C010 


8D  OF  D4 

A9  80 

8D  12  D4 

8D  18 

60 


D4 


STA 
LDA 
STA 
STA 


FREHI3 
#%10000000 
VCREG3 
SIGVOL 


;  LINPRT  =  36402  on  the  128 

i  voice  3  frequency  control  (high  byte) 

:  voice  3  control  register 

;  volume  and  filter  select  register 

■  oscillator  3/  random  number  generator 

;  jiffy  dock  (jiffies) 

;  Generate  a  random  integer  (0-65535)  from 
;  SID  chip  voice  3. 

;  initialize  SID  voice  3  for  random  numbers 

;  get  a  random  two-byte  integer 

!  two  random  bytes  are  in  A  and  .X 

;  So  print  the  resulting  two-byte  integer  (see 

;  NUMOUT). 

.-  Routine  to  Initialize  SID  voice  3  for  random 
;  numbers. 

i  byte)  to 


;  select  noise  waveform  and  start  release 
i  turn  off  volume  and  disconnect  output  of 
;  voice  3 


C017  AE 

C01A  A5 

C01C  69 

C01E  CS 


IB    D4  RD2BVT 
A2 
02 
A2 


DELAY 


C020  DO  FC 
C022  AD  IB 
C025  60 


D4 


LDX 
LDA 
ADC 
CMP 

BNE 
LDA 
RTS 


RANDOM 
JIFFY 

JIFFY 

DELAY 
RANDOM 


See  also  RDBYRG,  RND1VL,  RNDBYT. 


,-  RD2BYT  returns  a  two-byte  integer  in  .X 
;  and  A. 

;  get  single-byte  random  number 
;  pseudorandom  delay 

i  wall  till  jiffy  clock  reads  the  original 

;  value  plus  2 

;  otherwise,  wait 

t  get  a  Becond  random  byte 
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RDBUFF 


Name 

Open  a  disk  channel,  read  a  sector,  copy  the  disk  buffer  to 
memory 

Description 

This  is  a  fairly  low-level  routine  for  reading  a  given  disk  sector 
into  a  buffer  inside  the  drive.  The  256  numbers  in  the  buffer 
are  then  read  byte  by  byte  into  the  computer's  memory. 

Prototype 

1.  Open  the  command  channel  (15,8,15). 

2.  Open  a  disk  buffer  (equivalent  to  BASIC  OPEN  1,8,3,"#"). 

3.  Read  the  buffer  by  sending  read  sector  command  to  channel 
15. 

4.  Perform  a  Kernal  CHKIN  to  logical  file  1. 

5.  Read  the  256  bytes  into  memory  with  CHRIN. 

6.  Close  all  channels  and  exit. 

Explanation 

The  example  program  reads  track  18,  sector  1  (the  first  of  the 
directory  sectors),  into  memory.  There  are  several  discrete  sec- 
tions of  the  routine. 

First,  the  disk  command  channel  must  be  opened 
($C044-$C05A)  using  secondary  address  15.  Next,  an  internal 
disk  buffer  is  allocated,  with  the  equivalent  of  OPEN 
1,8,3,"#",  at  $C05B-$C075.  The  secondary  address,  3  in  this 
case,  is  important.  It  must  be  used  in  commands  to  the  drive. 

The  string  Ul,3,0,18,l  sends  five  pieces  of  information  to 
channel  15  ($C006-$C01D).  ill  is  the  sector-read  command  to 
the  disk  drive.  The  3  corresponds  to  the  secondary  address  of 
the  buffer  (the  3  in  OPEN  1,8,3).  The  0  is  the  drive  number  (if 
you  have  an  MSD  dual  drive,  you  could  use  1).  The  18  and  1 
are  the  track  and  sector  numbers,  respectively,  for  the  block  to 
be  read. 

When  the  1541  or  1571  receives  the  Ul  command,  it 
copies  the  given  disk  sector  into  memory  inside  the  disk  drive. 
All  that  remains  is  to  read  the  data  into  the  computer's  mem- 
ory. At  this  point,  we  CHKIN  with  a  1  (the  1  in  OPEN  1,8,3) 
to  specify  logical  file  1  as  the  channel  to  be  read  and  then 
loop  256  times  with  CHRIN  to  read  the  bytes  and  store  them. 

Finally,  logical  files  1  and  15  are  closed  and  the  routine 
is  done. 
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RDBUFF 


cooo 
cooo 
cooo 


cooo 
cooo 
cooo 
cooo 


SETLFS 

5ETNAM 

OPEN 

CHKOUT 

CHKPN 

CHROUT 

CHRIN 

CLOSE 

CLRCHN 


COOO  20  44    CO  RDBUFF 

C003  20  5B  CO 

C006  A2  OF 

C008  20  C9  FF 

COOB  90  03 

COOD  4C  76  CO 

C010  AO  00  OUTOK 

C012  B9  8B    CO  LOOP1 

C015  FO  07 

C017  20  D2  FF 

COJA  C8 

C01B  4C  12  CO 

C01E  20  CC  FF  DONEBR 

C021  A2  01 

C023  20  C6  FF 

C028  90  03 

C028  4C  76  CO 

C02B  AO  00  INPOK 

C02D  20  CF  FF  GETEM 

C030  99  B2  CO 

C033  C8 

C034  DO  F7 

C036  A9  01  FINIS 

C038  20  C3  FF 

C03B  A9  OF 

C03D  20  C3  FF 

0  20  CC  FF 


C044    A9  OF 

C046    A2  08 

C048    AO  OF 

C04A  20  BA  FF 

C04D  A9  00 

C04F    20  BD  FF 

"    20  CO  FF 

90  03 

4C  76  CO 
C05A  60 


OPEN1S 


- 


OK15 


LDX 

JSR 

BCC 

JMP 

LDY 

JSR 

STA 

INY 

BNE 

LDA 

JSR 

LDA 

JSR 

RTS 

LDA 

LDX 

LDY 

JSR 

LDA 

ISR 

JSR 

BCC 

JMP 


$FFBA 
$FFBD 
SFFCO 
SFFC9 
SFFC6 


$FFCC 

JSR  OPEN15 

JSR  OPNBUF 

LDX  #15 

JSR  CHKOUT 

BCC  OUTOK 

JMP  ERROR 

LDY  #0 

LDA  BLKRD.Y 

BEQ  DONEBR 

JSR  CHROUT 
INY 

JMP  LOOP1 

JSR  CLRCHN 


GETEM 
#1 

CLOSE 
#15 
CLOSE 
CLRCHN 


#15 

#8 

W15 

SETLFS 
#0 

SETNAM 
OPEN 
OK15 
ERROR 


;  ready  to  send  to  logical  file  15 
;  carry  dear  if  no  error 
;  else  print  error  message 
;  initialize  index 
;  send  the  command 

;  if  0  we're  done  setting  up  the  block  read 
;  command 

;  else  send  the  next  character 
;  increment  index 
;  and  go  back  (or  another 
;  back  to  normal  I/O 

|  open  logical  file  1 
;  for  input 

;  carry  clear  if  no  error 

;  otherwise,  print  error  message 

;  start  counter  at  zero 

;  get  a  character  from  the  buffer 

;  store  (indexed)  to  memory 

;  count  0-255 

;  wraps  around  to  0  at  end 

;  close  logical  file  1 

;  and  the  command  channel 
i  and  clear  the  channels 

;  Subroutines 
;  file  number 

;  device  number  for  disk  drive 
;  secondary  address  for  command 
;  15,8.15  is  sel  lo  be  opened 


;  open  I  _ 
;  check  for  error 
i  print  message  if  there's  a  problem 


C05B 
C05D 
C05F 
C061 
C064 
C066 
C068 


A9  01 


FF 


A2 
AO 
20 
A9 
A2 

AO  CO 
C06A  20    BD  FF 
-   20    CO  FF 


08 

03 

BA 

01 

8A 


OPNBUF 


LDA 

LDX 

LDY 

JSR 

LDA 

LDX 

LDY 

JSR 

JSR 


=  1 

m 

#3 

SETLFS 
*1 

*<BUFNAM 
*>BUFNAM 
SETNAM 
OPEN 


;  OPNBUF  opens  a  c 
;  logical  file  number 
;  disk  drive 
|  secondary  address 

;  one  character 

;  the  *  specifies  a  drive  buffer 

;  set  up  the  name 
;  now  it's  ready 


RDBUFF 


C070    90  03 

C072    4C   76  CO 

C075    60  OKBUF 


C076   20   CC  FF  ERROR 


C079 
C07B 
C07E 
C080 
C083 


AO 
B9 
F0 
20 
C8 

4C   7B  CO 

4C   36    CO  MSGEND 


98  CO 
D2  FF 


C08A  23 

55  31 


C096    OD  00 
C098    41  20 
C0B1  00 
C0B2 
C1B2 


BUFNAM 


2C 


44  ERRMSG 


BCC 
IMP 
RTS 


JSR 

LDY 

LDA 


JMP 
(MP 


CLRCHN 
*0 

ERRMSG.Y 
CHROUT 


FINIS 


:  to  OKBUF  if  no  error 

:  jump  to  ERROR  if  there  is 


j  ERROR  prints  a  message  if  a  disk  error 
.-  occurs 

;  dose  down  and  clear  channels 
:  initialize  index 

;  message  ends  with  zero  byte 
;  print  the  character 
;  increment  the  index 


.ASC 

-asc  -'uu.o.is.r 

;  Ul  is  block  read 
;  3  is  secondary  address, 
;  0  means  drive  zero 
;  track  18,  sector  1 

.BYTE  13,0 

.ASC    "A  DISK  ERROR  HAS  OCCURRED" 
BYTE  0 


MEMORY  - 


+  256 


;  Reserve  256  bytes  for  data  from  sector  read 
!  from  disk. 


See  also 
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RDBYRG 


Name 

Generate  a  random  one-byte  integer  in  a  range 
Description 

A  routine  for  generating  a  random  one-byte  value  in  the  range 
0-255  has  been  provided  (RNDBYT).  Frequently,  though,  a 
random  value  must  be  limited  to  a  particular  range. 

For  example,  in  a  game,  you  might  wish  to  position  a 
sprite  or  a  character  randomly  within  a  certain  range  of  rows 
or  columns.  Or  in  an  educational  program,  you  might  want  to 
pick  two  numbers  in  the  range  11-20  (for  adding  or  multiply- 
ing, say). 

Prototype 

In  an  initialization  routine  (RDINIT): 

1.  Set  voice  3  to  a  high  frequency. 

2.  Select  the  noise  waveform. 

3.  Turn  off  the  SID  chip  volume  and  disconnect  the  output  of 
voice  3. 

In  RDBYRG  itself: 

1.  Load  a  random  byte  value  from  voice  3's  random  number 
generator  (RANDOM)  into  .A, 

2.  Determine  whether  this  value  lies  within  the  acceptable 
range  (here,  delimited  by  LOWLIM  and  UPPLIM-1). 

3.  If  not,  branch  to  step  1  for  another  value. 

4.  Otherwise,  return  this  suitable  integer  in  .A. 

Explanation 

Ten  random  integers  in  the  range  30-45  are  generated  by  the 
example  program  and  are  printed  to  the  screen. 

In  RNDBYT,  a  random  byte  value  is  generated  by  using 
voice  3  of  the  SID  chip.  A  similar  approach  is  taken  here  ex- 
cept that  we  limit  the  range  of  the  number. 

Again,  a  two-part  routine  is  required.  The  first  part 
(RDINIT)  is  responsible  for  irutializing  the  random  number 
generator  of  voice  3  (RANDOM).  This  is  done  by  selecting  the 
noise  waveform  and  setting  it  to  its  maximum  frequency.  For  a 
more  detailed  description  of  how  this  is  accomplished,  refer  to 
RNDBYT. 

Once  the  random  number  generator  has  been  initialized  at 
the  outset  of  your  main  program,  random  values  can  be  taken 
from  RANDOM  within  RDBYRG.  If  a  value  falls  within  the 
range  set  by  LOWLIM  and  UPPLIM  (minus  1),  it's  accepted 


RDBYRG 


and  returned  in  the  accumulator.  Otherwise,  another  random 
number  is  fetched. 

In  using  RDBYRG  within  your  own  programs,  be  sure  to 
define  the  range  delimiters  before  the  routine  is  entered.  For 
instance,  to  generate  a  random  integer  in  the  range  1-10, 
change  LOWLIM  to  1,  and  UPPLIM  to  1 1  (1  plus  the  actual 
upper  limit). 

Routine 


cooo 
cooo 
cooo 
cooo 
cooo 
cooo 


CHROUT  = 
UNPRT 

FREHI3  = 

VCREC3  = 

SIGVOL  = 

RANDOM  - 


48589 
54287 
54290 
54296 
54299 


COOO  20  1C  CO  MAIN 

C003  A9  OA 

C005  8D  38  CO 

COOS  20  2A  CO  LOOP 

C00B  AA 

C00C  A9  00 

C00E  20  CD  BD 

C011  A9  0D 

C013  20  D2  FF 

C016  CE  38  CO 

C019  DO  ED 

CO  IB  60 


JSR  RDINIT 

LDA  slO 

STA  TEMCNT 

ISR  RDBYRG 

LDA  #0 

ISR  UNPRT 

LDA  #13 

JSR  CHROUT 

DEC  TEMCNT 


COIC    A9  FF 


D4 


C01E  8D  OF 

C021  A9  80 

C023  8D  12  D4 

C026  8D  18  D4 

C029  60 


RDINTT       LDA  #SFF 

STA  FREHI3 

LDA  MA  O0OO0O0 

STA  VCREG3 
STA 

RTS 


C02A  AD  IB    D4  HDBYRG 

C02D  CD  39  CO 

COM  90  F8 

C032  CD  3A  CO 

C035  BO  F3 

C037  60 


C039 
C03A 


TEMCNT 
LOWLIM 
UPPLIM 


LDA  RANDOM 

CMP  LOWLIM 

BCC  RDBYRG 

CMP  UPPLIM 

BCS  RDBYRG 
RTS 

.BYTE  0 

.BYTE  30 


;  UNPRT  =  36402  on  the  128 

;  voice  3  frequency  control  (high  byte) 

;  voice  3  control  register 

;  volume  and  filter  select  register 

:  oscillator  3/random  number  generator 

;  Generate  ten  random  byte  values  using  SID 
;  chip  voice  3  in  a  range  (30-45) 
j  and  print  them. 


;  save  counter 

:  get  random  byte  in  a  range 

;  move  value  to  .X 

:  zero  lor  high  byte  (in  .A) 

;  print  the  number 

;  print  a  RETURN 

;  decrement  counter 

"  es,  then  loop 


;  Initialize  SID  voice  3  for  random  numbers. 
;  set  voice  3  frequency  (high  byte)  to 


;  select  noise  waveform  and  start  release 
;  nam  off  volume  and  disconnect  output  of 
;  voice  3 


:  Returns  a  random  I 
;  get  single-byte  i 
;  lower  limit  of  range 


;  upper  limit  of  range 


;  temporary  storage  for  counter 
;  lowest  possible  number 


See  also  RD2BYT, 
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Name 


Check  the  I/O  status  by  using  the  Kernal  READST  routine 
Description 

Although  some  Kernal  routines  have  their  own  ways  of  flag- 
ging errors,  the  READST  routine  is  a  general  routine  that  re- 
turns an  error  flag  if  something  has  gone  wrong  with  an  input 
or  output  operation.  It's  most  often  used  to  check  the  status  of 
the  disk  drive. 

Prototype 

1.  JSR  to  the  READST  routine. 

2.  If  the  equal  flag  is  set,  everything's  okay.  Otherwise,  an  er- 
ror has  occurred. 

Explanation 

The  following  program  deliberately  causes  a  disk  error  by  try- 
ing to  open  a  file  with  no  name.  Then  it  calls  READST  to  see 
if  anything's  wrong.  If  an  error  has  occurred,  the  letter  A 
prints  to  the  screen.  Otherwise,  the  program  ends. 

Note  that  RDSTAT  is  similar  to  CHK144.  Both  return  a 
zero  as  long  as  the  situation  is  in  hand.  When  an  error  occurs, 
the  result  is  a  nonzero  value. 


cooo 
cooo 
cooo 


SETLFS  = 

SETNAM  - 

OPEN  = 
READST 

CHROUT  = 


SFFBA 
$FFBD 
■$FFC0 
$FFB7 
$FFD2 


cooo 
cooo 


CHKOUT  = 


COOO    A9  02  LDA  »2 

CD02    A2  08  LDX  #8 

C004    AO  02  LDV  #2 


i  no  name 
i  open  ii 


;  and  dose  file  2 


;  print  a  letter  A 
;  clear  all  channels 


J  get  ready  to  print 
;  check  the  status 
;  if  equal  to  zero,  OK 

j  dear  channels  before  printing 


RE80CO,  WR80CO  (128  only) 


Name 

Read  and  write  to  the  80-column  video  chip 
Description 

These  two  short  routines,  RE80CO  and  WR80CO,  read  values 
from  or  write  values  to  the  VDC  chip's  internal  registers. 

Prototype 

1.  Enter  either  routine  with  .X  holding  the  register  number. 

2.  Store  it  into  the  first  gateway  byte  $D600. 

3.  Wait  for  bit  7  of  the  gateway  byte  to  go  high. 

4.  LDA  from  or  STA  to  the  second  gateway  byte. 

Explanation 

The  128's  VDC  chip  has  36  internal  registers  and  16K  of  pri- 
vate RAM.  But  the  only  way  to  access  the  chip  is  through 
locations  54784  and  54785  ($D600  and  $D601).  You  must 
store  into  the  first  gateway  byte  the  number  of  the  register  you 
wish  to  get  to.  The  second  gateway  byte  can  then  be  PEEKed 
or  POKEd  to  read  or  write  the  value  from  the  register  whose 
number  you  put  in  the  first  byte. 

The  example  program  POKEs  the  values  1-5  to  the 
screen.  You  should  see  the  letters  A-E  appear  on  your  monitor 
(if  it  is  set  for  an  80-column  display).  First,  the  internal  ad- 
dress of  the  screen  is  read  from  VDC  registers  12-13.  This 
value  is  stored  into  the  memory  access  registers  (18-19).  Once 
the  memory  access  registers  know  the  place  to  read  or  write, 
the  values  from  MESSAGE  are  sent  to  the  read/write  register 
(31). 


ocoo 
ocoo 
ocoo 
ocoo 
ocoo 


OCOO    A2  OC 


oc 


0C02  20  24 

0C05  A2  12 

0C07  20  30  OC 

0C0A  A2  0D 

0C0C  20  24  OC 

0C0F  A2  13 

0C11  20  30  0C 


=  12 
13 

=  18 
19 
31 

=  SD600 

m  $D601 
=  • 

LDX  #SCRHIR 

JSR  RE80CO 
LDX  aMEMHIR 
WR80CO 
#SCRLOR 
RE80CO 


JSR 

LDX 

ISR 


X  m 


WR80CO 


;  high  and  low  bytes  of  ihe  register  for  screen 
,-  memory 

;  high  and  low  bytes  for  getting  to  memory 


;  find  the  high  byte  of  screen  memory  from 
j  register  12  ($0C) 
;  read  it  from  12 
:  now  send  it  to  memory  write  ( 
;  write  .A  to  the  register  in  .X 
;  now  do  the  low  byte 
:  read  It 

:  low  byte  of  memory-write 
;  and  write  it 

; 

;  Now  the  internal  registers  are  set  up. 
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LDY 
LDX 
LDA 


0C14  AO  00 

0C16  A2  IF  MORE 

0C18  B9  3C  OC 

0C1B  FO  06 

MB  i  30  oc  M 

OC20  C8  TNY 

0C21  DO  F3  BNE 

0C23  60  ALLDONE  RTS 


#0 

#GATE 
MESSAGE.Y 
ALLDONE 
WR80CO 

MORE 


0C24  8E    00    D6  RE80CO 

0C27  AE  00    D6  LOOP1 

0C2A  10  FB 

0C2C  AD  01  D6 

0C2F  60 


0C3O 
0C33 
0C36 
0C38 
0C3B 
OC3C 
0C41 


8E 

AE 

10 

8D 

60 

01 

00 


00 
00 
Hi 
01 


D6 
D6 


D6 


WR80CO 
LOOP2 


02    03  MESSAGE 


LDX  VDCADR 

BPL  LOOP! 

LDA  VDCDAT 

RTS 


STX  VDCADR 

LDX  VDCADR 

BPL  LOOP2 

STA  VDCDAT 
RTS 

•BYTE  1.2,3.4,5 

.BYTE  0 


;  the  index 

;  sel  up  the  gateway  byte 
;  get  a  screen  code 
;  if  zero,  we're  finished 
;  write  to  register  31 


8 


;  Enter  RE80CO  with  the  internal  register 
;  in  .X. 

;  (ell  the  8563  we  want  to  access  a  register 
;  check  the  door 

;  if  bit  7  is  clear,  the  door  Is  locked 
;  else,  get  the  byte  from  the  internal 
;  register 

;  Exit  with  the  value  in  .A. 

;  Enter  WR80CO  with  the  register  in  .X,  the 

!  v*lu<!  to  POKE  in  .A, 

;  ask  for  an  audience 

;  check  whether  we  can  get  in 

j  not  yet,  branch  back 

;  store  the  character 


See  also  CUST80,  VDCCOL. 
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READBF 


Name 


Read  bytes  from  a  sequential  or  program  file  into  a  buffer 
Description 

READBF,  with  the  aid  of  three  routines— OPENFL,  READFL, 
and  CLOSFL — reads  in  either  a  sequential  file  or  a  program 
file  from  disk  and  stores  it  in  a  data  buffer.  The  address  of  this 
buffer  is  passed  from  the  calling  program  in  the  X  (low  byte) 
and  Y  (high  byte)  registers. 

Prototype 

In  the  calling  program  (MAIN  below): 

1.  Define  the  address  of  the  data  buffer  (as  BUFFER)  in  the 


2.  On  the  128,  set  the  bank  to  15.  On  both  machines,  load  the 
buffer  address  in  .X  (low  byte)  and  .Y  (high  byte).  Then  JSR 
to  READBF. 

In  READBF  itself: 

1.  Store  the  buffer  address  in  .X  and  .Y  to  zero  page. 

2.  Open  a  sequential  or  program  filename  with  OPENFL. 

3.  Read  in  data  from  the  open  file  into  the  buffer  using 
READFL. 

4.  Close  the  open  file  with  CLOSFL.  Return  the  ending  ad- 
dress of  the  file  in  .X  (low  byte)  and  .Y  (high  byte). 

Explanation 

The  example  program  reads  a  sequential  file  (called  SEQUEN- 
TIAL) from  disk  into  a  buffer  located  at  16384.  To  read  in  a 
program  file,  change  the  suffix  on  the  filename  from  ,S,R  to  ,P,R. 

To  locate  the  incoming  file  data  at  a  location  other  than 
16384,  simply  change  the  buffer  address  (BUFFER)  in  the 
equates.  Alternatively,  you  could  change  the  LDX  and  LDY  at 
the  very  start  of  the  framing  routine. 

READBF  itself  is  a  short  routine  (the  various  support 
routines  for  opening,  reading,  and  closing  the  file  take  up  most 
of  the  space).  The  X  and  Y  registers  containing  the  buffer  ad- 
dress are  first  stored  to  a  free  location  in  zero  page  (ZP).  The 
three  routines  OPENFL,  READFL,  and  CLOSFL  are  then 
called  to  read  in  the  file.  Before  returning  to  the  main  pro- 
gram, the  ending  address  of  the  file  is  stored  in  the  X  (low 


This  routine  is  a  good  example  of  modular  programming. 


The  main  routine  calls  READBF,  which  in  turn  calls  three  in- 


equates. 
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READBF 


dependent  subroutines  for  opening,  reading,  and  closing  a  file. 
If  you  want  to  read  a  file  and  print  it  to  the  screen,  add  an- 
other JSR  to  the  main  routine.  If  you  want  to  alphabetize,  just 


" "  —  "»■-  i  luuiuit.  uy    willing  me  piVJglcUH  11 1 

small,  easy-to-handle  modules,  you  will  retain  a  lot  of  flexibility. 
Note:  You  can  add  disk  error  checking  to  this  program  by 
'"*inn  "unorif  at  the  piaces  marked  in   J~ 


cooo 
cooo 

cooo 


cooo 


SETLFS 
SETNAM 
OPEN 
CHKIN 
CHRIN 
CLOSE 
CLRCHN 
STATUS 
ZP 

BUFFER 


MAIN 


COOO  A2  00 

C002  AO  40 

C004  20  08  CO 

C007  60 


65472 

65478 

65487 

65475 

65484 

144 

251 

16384 


LDX  b<BUFFER 

LDY  *>  BUFFER 

JSR  READBF 
RTS 


!  sta 

:  be  stored 

;  SETBNK  =  65384;  Kemal  bank  number  for 

i  data  and  filename  (128  only) 

;  MMUREG  =  65280;  MMU  configuration 


;  READBF  uses  I 
:  to  read  characters 
;  OPENFL  to  open  th< 
;  file 

;  READFL  to  read  in  characters  from  the  file 
;  CLOSFL  to  close  the  file  a  1 
;  default  input  device 


;  LDA  #0;  set  bank  15  (128  only) 
.-  STA  MMUREG;  (128  only) 
i  low  byte  of  buffer  address 
:  and  high  byte 
,-  go  read  data  from  file 


C008  86  FB 

C00A  84  FC 

C0OC  20  1C  CO 

C00F  20  32  CO 

C012  A9  01 

C014  20  49  CO 

C017  A6  FB 

C019  A4  FC 

C01B  60 


READBF 


STX  ZP 
STY  ZP+1 


JSR 
)SR 


OPENFL 
READFL 


LDA  ffl 

JSR  CLOSFL 

LDX  ZP 

LDY  ZP+1 
RTS 


;  READBF  opens  a  SEQ  or  PRG  f: 
i  reads  all  data  into  a  buffer. 
;  Enter  witii  of  storage  buffer  "  X 

.  Upon  return,  ,X  and  ,Y  will  hold  the  end-of- 
;  buffer  address. 

;  store  low  byte  of  storage  buffer 
;  store  high  byte  also 
;  open  file 

;  read  data  from  open  file  and  store  in 

;  buffer 

;filel 

;  dose  file  and  restore  default  devices 
;  low  byte  of  «nd-«f-fik-  address 
j  high  byte  of  address  for  EOF 
;  return  to  MAIN 

.; 
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C01C 


OPENFL 


i  Open  channel  15  here  if  you  include  error 


C01C  A9  01 

C01E  A2  08 

C020  AO  02 

C022  20  BA  FF 


C025  A9  10 

C027  A2  4F 

C029  AO  CO 

G02B  20  BD  FF 

C02E  20  CO  FF 


C031  60 


LDA  »1 
LDX  #8 
LDY  #2 


LDA 
LDX 
LDY 
)SR 


RTS 


*FN1.ENG 

»<F1LENM 

#>FILENM 

SETNAM 

OPEN 


J  file  1 

;  device  number  lor  disk  drive 


;  set  file  to  be  opened 

;  Include  the  following  three  instructions  on 
;  the  128  only. 

i  LDA  BNKNUM;  bank  number  for  data 

;  LDX  BNKFNM;  bank  containing  filename 

;  JSR  SETBNK 

I  length  of  filename 

;  address  of  filename 

;  set  up  filename 

:  open  the  File  for  reading 

i  ISR  DERRCK;  insert  for  disk  error  checking 

:  return  to  READBF 


32  A2  01  READPL 

34  20  C6  FF 

37  AO  00 

39  20  CF  FF  RDLOOP 

3C  91  FB 

3E  E6  FB 


LDX 

JSR 

LDY 
JSR 
STA 
INC 


0 


FC 


C044  A5  90 
C046    F0  El 

C048  60 


STATCK 


i  20  C3  FF  CLOSFL 
C04C   4C   CC  FF 


INC 


LDA 
BEQ 

RTS 


JSR 
IMP 


CHKIN 
#0 

CHRIN 

(ZP),Y 
ZP 

STATCK 
ZP+1 


STATUS 
RDLOOP 


CLOSE 

CLRCHN 


:  READFL  reads  characters  from  a  sequential 
;  Or  program  file 

;  and  stores  them  in  a  buffer  whose  address 
i  is  in  zero  page. 

I  take  input  from  File  1 
;  index  into  t" 
:  get  a  byte  from  open  file 
:  put  it  in  the  storage  bailee 
;  increment  low  byte  of  buffer  address 
;  low  byte  hasn  t  rolled  over,  so  skip  forward 
;  otherwise,  increase  high  byte 

!  STATCK  checks  the  I/O  status  flag  for  end 
:  of  file. 

:  check  for  EOF 

;  a  zero  indicates  there  is  more  remaining,  so 
i  continue  reading 
I  return  to  READBF 

! 

I  CLOSFL  closes  tl 
;  .A  and  restores  default  devices. 
:  close  file  in  .A 

I  dear  all  channels,  restore  default  devices. 


;  Insert  DERRCK  roi 
:  including  error  chec 


,e  here  if  you're 


C04F    30    3A   53    FILENM       .ASC  "0:SEQUENTlAt,S,R" 

i  example  sequential  file  to  rea 


to  read  a 
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C05F  FNLENG  = 


See  also  OPENFL,  READFL. 


-FILENM      i  length  of  filename 

- 

!  Include  the  next  two  variables  on  the  128 
;  only. 

;  BNKNUM  .BYTE  0;  bank  number  where 
:  data  is  to  be  stored 

;  BNKFNM  .BYTE  0;  bank  number  where 
j  ASCII  filename  is  located 


READFL 


Name 

Read  characters  from  a  sequential  or  program  file 
Description 

With  READFL,  you  can  read  characters  into  memory  from 
either  a  sequential  or  a  program  disk  file.  The  routine  stores 
this  incoming  data  in  a  buffer  named  by  a  zero-page  pointer. 

Prototype 

1.  Before  accessing  READFL,  call  OPENFL  to  open  a  channel 
from  which  to  read  data. 

2.  Define  the  input  channel  as  the  one  opened  with  Kernal 
CHKIN. 

3.  Read  bytes  one  at  a  time  from  this  channel,  storing  them  in 
a  memory  buffer  using  zero-page  addressing. 

4.  Check  the  status  flag  (STATUS)  for  the  last  byte  in  the  in- 
coming file. 


to  the  calling 


Explanation 

The  subroutine  below  is  not  a  complete  program;  it's  designed 
to  be  used  in  conjunction  with  several  other  subroutines.  (See 
the  complete  program  under  READBF,  which  reads  a  file  into 
a  buffer.)  Before  coming  into  READFL,  you  must  do  two 
things— open  an  input  channel  with  OPENFL  and  store  the 
address  of  the  memory  buffer  into  zero  page. 

Once  in  READFL,  data  is  continuously  read  until  the 
STATUS  flag  at  location  144  contains  a  nonzero  value.  When 
this  occurs,  the  routine  returns  to  the  calling  program. 

Note:  The  routine  as  written  takes  input  from  logical  file  1. 
To  read  in  data  from  another  channel,  load  the  appropriate 
channel  number  into  the  X  register  at  $C000-$C001. 

Routine 


cooo 
cooo 


CHKIN 


65478 


144 

251 


COOO  A2  01         READFL     LDX  #1 

C002  20  C6  FF  JSR  CHKIN 

C005  AO  00  LDY  #0 

C007  20  CF  FF    RDLOOP     JSR  CHRIN 


,-  READFL  reads  characters  from  a  sequential 
;  or  program  file  and 

;  stores  them  to  a  buffer  whose  address  is  in 
;  zero  r 


;  take  input  from  file  1 
;  Index  into  the  storage 
;  get  a  byte  from  open  file 
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STA  (ZP),Y 

INC  ZP 

BNE  STATCK 

INC  ZP+1 

C012    AS  90  STATCK      IDA  STATUS 

C0I4    F0    Fl  BEQ  RDLOOP 

C016    60  RTS 

See  also  OPENFL,  READBF, 


;  put  It  in  the  storage  buffer  using  zero- 
;  page  addressing 

;  Increment  low  byte  of  butter  address 
;  low  byte  hasn't  rolled  over,  bo  skip 
;  forward 

;  otherwise,  increase  high  byte 

i 

;  STATCK  checks  the  I/O  status  flag  for 
;  end-of-file. 
;  check  for  EOF 

;  a  zero  indicates  there  is  more  remaining, 
;  so  continue  reading 
;  return  to  main  program 


READFL 


C0OA  91  FB 

C0OC  E6  FB 

C0OE  DO  02 

C0I0  E6  FC 
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Name 

Rename  a  disk  file 

This  routine  renames  a  file  by  opening  channel  15  and  send- 
ing the  command  "RO:newname=0:oldname" .  You  may  note 
that  it's  very  similar  in  structure  to  the  other  DOS  commands. 

Prototype 

1.  Open  the  disk  command  channel  (SETLFS,  SETNAM, 
OPEN). 

2.  Provide  the  rename  command  as  the  filename  in  SETNAM. 

3.  Close  things  up. 

Explanation 

The  rename  command  is  provided  in  the  data  area  at  the  end 
of  the  routine.  If  you  were  to  use  this  example  program  your- 
self, you'd  probably  want  build  the  command  from  an  old 
name  and  new  name  requested  from  the  user. 

Routine 


SETLFS 

SFFBA 

SETNAM 

$FFBD 

OPEN 

$FFC0 

CLOSE 

$FFC3 

CLRCHN 

SFFCC 

cooo 

A9  OJ 

RENAME 

LDA 
LDX 

#1 

C002 

A2 

08 

#8 

;  device  number  for  disk  drive 

C0O4 

AO 

OF 

LDY 

#15 

;  secondary  address  for  drive  command 

;  channel 

C006 

20 

BA 

FF 

JSR 

SETLFS 

;  prepare  to  open  it 

cow 

A9 

15 

LDA 

#BUFLEN 

;  length  of  buffer 

COOB 

A2 

IE 

LDX 

#<BUFFER 

;  .X  and  .Y  hold  the 

COOD 

AO 

CO 

LDY 

#>BUFFER 

;  address  of  the  buffer 

COOF 

20 

BD 

FF 

JSR 

SETNAM 

j  get  up  command  as  name 

C012 

20 

CO 

FF 

JSR 

OPEN 

;  open  it 

C015 

A9 

01 

LDA 

#1 

;  and  immediately 

C017 

20 

C3 

FF 

JSR 

CLOSE 

;  close  the  command  channel 

C01A 

20 

CC  FF 

JSR 

CLRCHN 

;  clear  the  channels 

C01D 

60 

RTS 

;  all  done 

;  Data  area 

.ASC 

"R0:NEWNAME  =  0:OLDNAME" 

;  substitute  your  own  filenames  here 

C032 

0D 

.BYTE 

13 

i  RETURN  character 

C033 

BUFLEN 

•  -  BUFFER 

See  also  CONCAT,  COPYFL,  FORMAT,  INITLZ,  SCRTCH,  VALIDT. 
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Name 

Simple  renumber  routine  (line  numbers  only) 
Description 

Changing  the  line  numbers  of  a  BASIC  program  is  relatively 
easy.  What's  difficult  is  revising  the  GOTOs,  GOSUBs,  and 
other  references  within  the  various  lines.  This  routine  changes 
only  the  actual  line  numbers;  the  other  references  remain  as 
they  were. 

Prototype 

1.  Using  two  zero-page  locations,  set  up  a  pointer  to  the 
beginning  of  the  BASIC  line. 

2.  Load  the  line  link,  which  points  to  the  next  line  in  memory. 
If  the  line  link  contains  two  zeros,  exit  the  routine. 

3.  Copy  the  desired  line  number  into  the  current  line. 

4.  Update  the  line  number,  adding  the  STEP  value. 

5.  Copy  the  line  link  to  the  first  zero-page  location  and  loop 
back  to  step  2. 

Explanation 

Before  the  text  of  a  BASIC  line  in  memory,  there  are  four 
bytes — two  2-byte  pointers.  The  first  is  the  line  link  that 
points  to  the  beginning  of  the  next  line  (which,  in  turn,  points 
the  next  line  link,  and  so  on,  to  the  end  of  the  program).  The 
next  two  bytes  provide  the  line  number  in  low-byte/ high-byte 
format. 

A  pointer  at  location  43  (location  45  on  the  128)  contains 
the  address  of  the  beginning  of  the  BASIC  program.  The  end 
of  the  BASIC  program  is  marked  by  a  line  link  of  $0000. 

To  renumber,  get  the  TXTTAB  pointer  and  copy  it  to  a 
zero-page  location  (Z2,  in  the  example).  The  main  loop  starts 
by  copying  the  contents  of  Z2  to  Zl.  Then,  .Y  is  loaded  with  a 
0  and  a  1,  and  the  next  line  link  is  copied  indirectly  from  Zl 
to  Z2.  Finally,  .Y  is  increased  to  2  and  then  to  3  (to  point  to 
the  line  number  in  memory),  and  the  desired  line  number  is 
stored  in  memory. 

The  line  number  is  incremented  by  the  STEP  value,  and 
the  process  repeats.  As  soon  as  a  line  link  of  $0000  is  discov- 
ered, the  program  ends  and  the  renumbering  is  complete. 

Note:  To  ensure  that  this  routine  works  properly  on  the 
128,  enter  the  BASIC  line  BANK  0  before  you  SYS  to  the  pro- 
gram. Unlike  most  other  programs,  which  have  to  be  in  bank 
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15  to  be  able  to  call  Kernal  routines,  this  routine  needs  to  be 
in  bank  0. 


cooo 
cooo 
cooo 

COOO    4C   09  CO 

C003  14  00 
C005  OA  00 
C007    00  00 


TXTTAB 
Zl 


$FB 
$FD 


;  TXTTAB  -  45  on  the  128 


JMP     RENUM1        ;  jump  around  the  able 


FIRST  BYTE  20,0 

STEP  .BYTE  10,0 

CURRENT    .BYTE  0,0 


COM  A2  01  RENUM1 

COOB  B5    2B  COPY 

COOD  95  FD 

COOF  BD  03  CO 

C012  9D  07  CO 

C015  CA 

C016  10  F3 

C016  20    2B    CO  BEGIN 

C01B  20    34  CO 

C01E  A5  FB 

C020  OS  FC 

C022  DO  01 

C024  60 

C02S  20    41    CO  AHEAD 

C028  4C   18  CO 


C02B  A5  FD 

C02D  85  FB 

C02F  A5  FE 

C031  85  FC 

C033  60 


C034 
C036 
C03S 
C03A 
C03B 
C03D 

C03F 
C040 

C041 
C041 
C044 
C046 


AD  00 

Bl  FB 

85  FD 
C8 

Bl  FB 

85  FE 

C8 
60 


CPZ2Z1 


LLINK 


AD  07 
91  FB 
AD  08 
C8 

91  FB 


CO 
CO 


LDX 
LDA 
STA 
LDA 
STA 
DEX 
BPL 


LDY 

LDA 

STA 

INY 

LDA 

STA 

INY 
RTS 


LDA 
STA 
LDA 
INY 

STA 


#1 

TXTTAB.X 
Z2.X 


LDA 
ORA 
BNE 

RTS 


JMP 


COPY 

CPZ2Z1 
LLINK 

Zl 

Zl  +  1 
AHEAD 


LDA  7.2 

STA  Zl 

LDA  Z2+1 

STA  Zl+1 
RTS 


<Z1),Y 
Z2 

(Zll.Y 
Z2+1 


CURRENT 
(Zl).Y 


:  first  line  number 
:  renumber  by  tens 
;  current  line  number 

;  do  some  copying 

;  Ihe  start  of  BASIC  text 


';  goes  into  CURRENT 
; loop  back 

';  copy  the  pointer  from  Z2  to  Zl 

;  and  set  up  the  Hne  link  for  the  next  line 

;InZ2 

;  two  zeros 

;  in  Zl 

;  mean  that 

;  we're  done  and  can  quit 

;  else  renumber  Ihe  line 
;  and  go  back  for  another 

,-  copy  22 
;  to  Zl 

;  high  byte,  too 

;  and 

I  thafs  all 

;  get  Z2  ready 
;  low  byte 
;  into  Z2 

i  high  byte 

;  into  Z2+1;  now  Z2  is  ready  for  the  next 
;line 

;  INY  one  more  time,  so  if  s  2 


,  from  LLINK  above 


k 
; 

;  remember,  .Y  1b  now  : 
;  low  byte  of  CURREN 
:  into  the  program 


CURRENT+1  ;  high  byte 

<Z1),Y  ;  also 

! 


441 


RENUM1 


CMC  18 

C04D  AD  05  CO 

C050  6D  07  CO 

C053  8D  07  CO 

C0S6  AD  06  CO 

C059  6D  08  CO 

C05C  8D  08  CO 

C05F  60 

See  also  DATAMK. 


CLC  ;  now  add  the  STEP  to  CURRENT 

LDA  STEP 

ADC  CURRENT  ;  add  it 

STA  CURRENT  ;  store  It 

LDA  STEP+I^+  :  MB*  byte 

STA"  CURRENT  +  1  ;  save 

RTS  ;  and  that's  that 
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RND1VL 


Name 

RND(l)  function  §?  S 

Description 

Random  integer  values  can  be  generated  with  RNDBYT  (one- 
byte)  or  RDBYRG  (two-byte).  At  times,  though,  you  may  wish 
to  generate  a  random  floating-point  number. 

RND1VL  uses  BASIC'S  own  RND  function  to  produce  a 
random  floating-point  number  in  the  range  0-0.999999999. 
You  can  place  this  number  in  any  numeric  range,  just  as  if  you 
were  in  BASIC,  by  multiplying  it  and  adding  some  base  value. 
For  instance,  if  you  needed  floating-point  numbers  from  5.0 
through  15.0,  you  would  multiply  the  number  returned  by 
RND1VL  by  10  and  add  5. 

Prototype 

JMP  into  BASIC'S  RND  function  to  cause  a  random  value  from 
0  through  0.999...  to  be  placed  in  floating-point  accumulator  1 
(FAC1). 

Explanation 

Ten  random  floating-point  numbers  in  the  range  0-0.999...  are 
generated  by  the  example  program  and  printed  to  the  screen. 

A  random  number  is  first  placed  in  floating-point  accu- 
mulator 1  by  RND1VL.  Using  FOUT,  the  contents  of  FAC1 
are  converted  to  an  ASCII  string  and  are  stored  in  the 
workspace  area  at  the  top  of  the  stack  (beginning  at  $100).  Fi- 
nally, with  FACPRT,  the  string  within  the  workspace  is 
printed  to  the  screen.  This  process  is  repeated  for  each  of  the 
ten  values. 

RND1VL  itself  is  very  short.  In  it,  we  jump  midway  into 
BASIC'S  RND  function  routine  at  57534  on  the  64  (33877  on 
the  128).  This  causes  a  random  floating-point  number  to  be 
transferred  from  the  seed  value  in  RNDX  (location  139  on  the 
64  or  location  4635  on  the  128)  to  FAC1. 

Routine 

C000  CHROUT     =  65490 

C000  FAC1  97  :  FAC1  =  99  on  the  128 

G000  FOUT  =         48605  ;  FOUT  =  36418  on  the  128 — converts  FAC1 

;  to  ASCII 

C000  ST  WORK     =        256  .- workspace  at  top  of  the  stack 
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RND1VL 


cooo 

RNDI 

= 

57534 

C000  A2 

OA 

LDX 

#10 

C002  8E 

2D 

CO 

5TX 

TEMPX 

C005  20 

1C 

CO 

LOOP 

JSR 

RND1VL 

C008  20 

DD 

BD 

)SR 

TOUT 

COOB  20 

If 

CO 

JSR 

FACPRT 

COOE  A9 

OD 

LDA 

•13 

C01D  20 

D2 

FF 

ISR 

CHROUT 

C013  CE 

2D 

CO 

DEC 

TEMPX 

C016  AE 

2D 

CO 

LDX 

TEMPX 

CO  19  DO 

EA 

BNE 

LOOP 

C01B  60 

RTS 

CMC  4C 

BE 

EO 

RND1VL 

JMP 

RNDI 

i  RNDI  =  33877'" on  the  128.  RND(l) 
;  function 

1  Generate  ten  numbers  (0-0.999...)  using  the 

;RND(1)  function  and  print  them. 

;  initialize  counter  .X  to  give  ten  random 

;  numbers 

;  save  .X 

:  get  random  number  using  RND(l) 
;  convert  contents  of  FAC1  to  ASCII  string 
;  string  Is  ir 
:  print  the  I 
;  print  I 

;  decrement  counter 
:  and  put  in  .X  for  branch 
,  if  we  haven't  done  ail  ten,  continue 


.  fetches  a  random  number  using 
I)  and  places  it  in  FAC1. 
;  get  random  number 


C01F  AO  00 

C021  B9  00 

C024  F0 

C026  20 

C029  C8 

C02A  DO  F5 

C02C  60 


06 

D2  FF 


FACPRT 

MORE 


OUT 


LDY 

LDA 

BEQ 

JSR 

1NY 

BNE 

RTS 


OUT 
CHROUT 

MORE 


BYTE  0 

See  also  RD2BYT,  RDBYRG,  RNDBYT. 


;  FACPRT  prints  the  number  in 
;  point  accumulator  1. 
;  as  an  index 


;  temporary  storage  for  .X 


RNDBYT 


Name 

Generate  a  random  one-byte  integer  value  (0-255) 
Description 

Many  programs,  especially  games  and  educational  programs, 
require  randomness.  Often,  what  is  called  for  is  a  one-byte 
random  integer  in  the  range  0-255.  This  routine  lets  you  gen- 
erate such  a  number  from  the  random  oscillations  of  the  noise 
waveform. 

Prototype 

In  an  initialization  routine  (RDINIT): 

1 .  Set  voice  3  to  a  high  frequency. 

2.  Select  the  noise  waveform. 

3.  Turn  off  the  SID  chip  volume  and  disconnect  the  output  of 
voice  3. 

In  RNDBYT  itself: 

4.  Take  a  random  byte  value  from  voice  3's  random  number 
generator  (RANDOM)  and  return  it  in  .A. 

Explanation 

In  the  example  program,  an  interesting  visual  effect  is  created 
by  repeatedly  placing  a  random  color  value  somewhere  in  the 
first  256  bytes  of  screen  color  RAM.  Pressing  any  key  exits  the 
routine. 

RNDBYT  is  actually  a  two-part  routine.  In  the  first  part, 
labeled  RDINIT,  voice  3  of  the  SID  chip  is  initialized  so  as  to 
generate  random  numbers  in  RANDOM  (location  54299).  This 
is  done  by  setting  the  high  byte  of  the  frequency  register  for 
voice  3  (FREHI3)  to  255  and  selecting  the  noise  waveform  by 
setting  bit  7  of  voice  3's  control  register  (VCREG3).  Since  we 
don't  want  to  actually  hear  the  noise,  we  turn  off  the  SID  chip 
volume  and  disconnect  the  audio  output  of  voice  3  by  storing 
a  128  to  SIGVOL,  the  volume  and  filter  select  register.  Select- 
ing a  frequency  value  high  byte  of  255  insures  that  the  values 
in  RANDOM  change  very  rapidly. 

RDINIT  need  be  accessed  only  once  early  in  your  main 
program.  After  that,  you  can  take  random  values  as  needed 
from  RANDOM.  This  is  exactly  what  RNDBYT  does,  return- 
ing the  random  byte  in  the  accumulator. 
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RNDBYT 


Routine 

cooo 
cooo 
cooo 

cooo 


GET1N 


VCREG3 
SIGVOL 
RANDOM 


65508 
5S296 
54287 

54290 
54296 


COOO  20  13   CO  MAIN 

C003  20  21    CO  LOOP 

C006  A8 

C007  20  21  CO 

COOA  99  00  D8 

COOD  20  E4  FF 

C010  FO  Fl 

C012  60 


JSR 
JSR 
TAY 
JSR 
STA 


RTS 


RDINTT 
RNDBYT 

RNDBYT 

COLRAM.Y 

CETIN 

LOOP 


C013 

A9  FF  RDIN1T 

LDA 

mm 

C015 
C018 
COIA 

8D  OF  D4 

A9  80 

8D  12  D4 

STA 
LDA 
STA 

FREHI3 

#%10000000 

VCRF.G3 

C01D 
C020 

8D  18  D4 
60 

STA 
RTS 

SIGVOL 

C021 
C024 

AD  IB    D4  RNDBYT 
60 

LDA 
RTS 

RANDOM 

;  start  of  screen  color  memory 

i  voice  3  frequency  control  register  (high 


ue  from  SID 


'rate  a  random  b 
;  chip  voice  3. 
:  Put  a  random  color  anywhere  in  first  256 
;  bytes  of  screen 
;  Quit  when  any  key  is  pressed. 
;  initialize  SID  voice  3  for  random  numbers 
;  get  a  random  byte  for  screen  offset 
;  store  offset  in  ,Y 
;  gel  random  number  for  color  byte 
;  store  color  byte  randomly  in  first  quarter 
;  check  for  a  keypress 
;  no  keypress,  so  continue 
•  else,  quit 

!  Routine  to  initialize  SID  voice  3  for  random 
;  numbers 

:  set  voice  3  frequency  (high  byte)  to 
;  maximum 


;  select  noise  waveform  and  start  release  for 
;  voice  3 

!  tum  off  volume  and  disconnect  output  of 
;  voice  3 


;  RNDBYT  returns  a  random  byte  value 

;  in  .A. 

!  get  .ingle-byte  random  number 


See  also  RD2BYT,  RDBYRG,  RND1VL, 
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Name 

Set  the  repeat  key  flag 
Description 

In  certain  applications,  such  as  a  word  processor  or  a  game 
featuring  keyboard  control,  you'll  need  to  let  the  keys  repeat. 
But  at  other  times  you'll  want  to  fetch  only  one  keypress  at  a 
time. 

For  instance,  suppose  you  need  to  ask  the  user  a  series  of 
questions.  If  keypresses  can  repeat,  and  if  the  user  lets  a  finger 
tarry  on  the  RETURN  key,  several  questions  can  easily  be 


Prototype 

jt.  Define  RPSTAT  as  0,  64,  or  128. 

2.  Load  and  store  RPSTAT  in  the  repeat  flag. 

Explanation 

The  accompanying  program  makes  all  keypresses 
nonrepeating. 

Note:  The  repeat  flag  (RPTFLG)  is  located  at  650  on  the 
64  and  at  2594  on  the  128.  It  can  contain  either  a  0,  a  64,  or  a 
128.  A  value  of  0  causes  only  certain  keys  to  repeat  (specifi- 
cally the  cursor  keys,  the  INST/DEL  key,  and  the  space  bar). 
As  illustrated,  a  value  of  64  prevents  all  keys  from  repeating, 
while  128  allows  all  keys  to  repeat. 

The  default  value  for  this  location  is  different  on  the  64 
and  the  128.  On  the  64,  it's  0;  on  the  128,  the  default  value 
is  128. 


Routine 

cooo 


RPTFLG  = 


650 


;  RPTFLG  =  2594  on  the  128— repeat  key 


COOO 
C003 
C006 


AD  07 
8D  8A 
60 


RPTKEY 


LDA  RPSTAT 
STA  RPTFLG 
RTS 


C007  40 


RPSTAT       .BYTE  64 


;  disable  all  r 
.  0  allows  cei 
i  128  enables  all  i 
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Name 


registers  from  memory 


After  using  SVREGM  to  save  the  re 
can  get  them  back  with  RSREGM. 


to  memory,  you 


1.  Load  the  processor  status  (.P)  and  push  it  onto 

2.  Load  the  A,  X,  and  Y  registers  from  memory. 

3.  Pull  .P  (PLP)  from  the  stack. 

Explanation 

Operations  such  as  loading  from  memory  (LDA,  LDX,  and 
LDY)  affect  both  the  zero  and  the  minus  flags  in  the  processor 


register  must  be  pushed  onto  the  stack  by  .A  and  then  pulled 
with  the  PLP  instruction.  Apart  from  this  one  little  shuffling 
step,  the  rest  of  the  routine  !"  ' 


cooo 

C003 

AD  12 

CO 

RSREGM 

LDA 

TEMPP 

48 

PHA 

COM 

AD  OF 

CO 

LDA 

TEMPA 

C007 

AE  10 

CO 

LDX 

TEMPX 

COOA 

AC  11 

CO 

LDY 

TEMPY 

COOD  28 

PLP 

COOE 

60 

RTS 

COOF 

00 

TEMPA 

-BYTE  00 

C010 

00 

TEMPX 

.BYTE 

00 

con 

00 

TEMPY 

.BYTE 

00 

C012 

00 

TEMPP 

.BYTE 

00 

;  first  gel  the  J>  status  register 
;  push  it  temporarily 

m  A 

;  get  .X 
;  get  -Y 

'}  8**  -P  from  the  stack  (where  it  was 
;  pushed  from  .A) 
\  we're  done 

J. 

;  variables 

j  nole— these  were 

1  SVREGM  routine 


See  also  SVREGM,  SVREGS. 


Name 

Restore  all  Kernal  indirect  vectors 
Description 

RSTVEC  reinitializes  the  16  Kernal  vectors  in  RAM  beginning 
at  location  788  to  their  default  warm-start  values.  This  routine 
is  useful  in  situations  where  you  have  altered  these  vectors — 
so  that  they  point  to  your  own  RAM-based  routines — and 
later  want  to  change  them  back  en  masse. 

Prototype 

1.  Disable  IRQ  interrupts  with  an  SEI. 

2.  JSR  to  the  Kernal  RESTOR  routine,  reenable  IRQ  interrupts 
with  a  CLI,  and  RTS  to  your  calling  program. 

Explanation 

RSTVEC  relies  on  the  Kernal  routine  RESTOR  to  reset  the 
interrupt  and  Kernal  I/O  (Input/Output)  vectors  at  locations 
788-819.  Since  the  IRQ  interrupt  vector  is  among  those  being 
restored,  it's  best  to  prevent  any  IRQ  interrupts  from  being 
serviced  while  you're  changing  these  vectors.  This  is  accom- 
plished here  with  an  SEI  prior  to  calling  RESTOR. 

For  an  example  of  how  to  use  RSTVEC  in  your  own  pro- 
grams, take  a  look  at  ALARM2.  This  routine  sets  the  alarm  for 
the  second  time-of-day  clock.  When  the  alarm  goes  off,  an 
NMI  interrupt  occurs.  At  this  point,  we  completely  disable  the 
alarm  function  with  RSTVEC. 

You  might  note  that  the  RESTOR  routine  is  normally 
accessed  when  either  a  cold  or  a  warm  start  is  carried  out  (see 
COLDST  and  WARMST).  In  both  instances,  the  Kernal  in- 
direct vectors  are  reset. 

The  same  cannot  be  said  of  the  BASIC  indirect  vectors. 
This  series  of  vectors,  occupying  locations  768-779  on  the  64 
(768-785  on  the  128),  are  reinitialized  only  during  the  cold- 
start  procedure.  You  can  reset  the  BASIC  vectors  yourself  by 
JSRing  to  location  58451  in  Kernal  ROM  on  the  64  or  to  16977 
in  BASIC  ROM  on  the  128. 


RSTVEC 


Routine 

cooo 


RESTOR 


COOO    78  RSTVEC  SE1 

C0O1    20    8A  FF  JSR  RESTOR 

C004  58  CLI 
C005    60  RTS 

See  also  DISRSR,  DISTOP,  ERRRDT. 


Keraai  routine  to  restore  I/O  RAM  vectors 
to  default  values 

disable  IRQ  interrupts  while  resetting 
IRQ  vector 

reset  page  3  RAM  vectors  to  ROM  table 
valuc-9 

reeiuble  IRQ  interrupts 
we're  done 


SAVEBS 


Name 

Save  a  BASIC  program 
Description 

SAVEBS  saves  a  BASIC  program  to  disk,  regardless  of  where 
the  BASIC  workspace  is  located  at  the  time  of  the  save. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  Set  up  the  parameters  as  1,8,0  for  a  save  (SETLFS, 
SETNAM). 

3.  On  the  128,  call  SETBNK  to  specify  the  bank  containing  the 
program  you  intend  to  save  and  the  bank  containing  its 
filename. 

4.  Load  A  with  the  address  of  TXTTAB  (the  location  of  the 
zero-page  pointer  to  the  start  of  BASIC  text). 

5.  Load  .X  and  .Y  with  the  values  in  end-of-BASIC  text 
pointer. 

6.  JSR  to  SAVE. 

Explanation 

SAVEBS,  relying  on  several  Kernal  routines,  saves  a  copy  of 
the  contents  of  the  BASIC  program  text  area  to  disk.  As  with 
all  saves,  a  secondary  address  of  zero  is  required. 

Before  executing  SAVE,  we  set  the  zero-page  pointer  to 
the  start  of  BASIC  text  (TXTTAB)  in  the  accumulator.  The  X 
and  Y  registers  are  loaded  with  the  two-byte  ending  address  of 
the  BASIC  program  at  VARTAB.  On  the  128,  replace  VARTAB 
with  TEXTTP. 

To  use  this  routine  to  save  your  own  BASIC  programs, 
substitute  for  "BASIC  PROGRAM"  the  name  of  the  program 
you  wish  to  save. 

Note:  SAVEBS  currently  lacks  disk  error  checking.  You 
can  add  this  feature  if  you  like  bv  incorporating  tine  subroutine 
DERRCK  into  the  code.  Place  DERRCK  just  before  FILENM 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  the  JSR  SAVE  instruction.  Furthermore,  be  sure  to  open 
the  error  channel  (15)  at  the  beginning  of  the  program  (also 
rioted  in  the  source  listing). 

On  the  128,  include  BNKNUM  and  BNKFNM  at  the  end 
of  your  program. 

Routine 

C000  SETLFS        =  65466 

C000  SETNAM     =  65469 

C000  SAVE  -  65496 
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cooo 
cooo 
cooo 
cooo 


TXTTAB  =  43 
VARTAB       =  45 


;  TXTTAB  =  45  on  the  128— start  of  BASIC 
;  pointer 

.  end-of-BASIC  pointer — substitute 

:  TEXTTP  =  4624  for  the  128 

i  SETBNK  =  65384;  Kemal  bank  number  for 

;  data  and  filename  (128  only) 

:  MM L! REG  =  65280;  MMU  configuration 

;  register  (128  only) 


,  Save  a  BASIC  program  to  disk 


;  Open  channel  15  here  if  you 
:  error  checking  (DERRCK). 


include  disk 


COOO 


SAVEBS  - 


COOO  A9  01 

C002  A2  08 

C004  AO  00 

C006  20  BA  FF 


LDA  #1 
LDX  #B 
LDY 


C009  A9  OF 

COOB  A2  1C 

COOD  AO  CO 

COOF  20  BD  FF 

C012  A9  2B 


C014  A6  2D 
C016  A4  2E 
C018    20    D8  FF 


C01B  60 


RTS 


C01C   30    3A   42    F1LENM  .ASC 


FNLENG 


SETLFS 


LDA 

LDX  #<FILENM 

LDY  #>FILENM 

JSR  SETNAM 

LDA  #TXTTAB 


LDX  VARTAB 
LDY  VARTAB+1 
JSR  SAVE 


LDA  #0;  set  bank  15  (128  only) 
STA  MMUREG;  (128  only) 
logical  file  1 

device  number  for  disk  drive 
for  all  saves 
set  for  a  save 

Include  the  following  three  instructions 
on  the  128  only. 

LDA  BNKNUM;  bank  number  in  which 
program  text  i9  located 
LDX  BNKFNM;  bank  containing  the 
filename 
JSR  SETBNK 
length  off 


;  set  up  filename 

;  address  of  zero-page  pointer  to  the  start  of 
;  the  program 

;  Change  VARTAB  in  the  next  two 
;  instructions  to  TEXTTP  on  the  128. 
;  low  byte  for  end  of  BASIC  program 
1*  ' ' 


;  save  the  BASIC  file  to  disk 


;  JSR  DERRCK;  insert  for  disk  error 
i  checking 


;  Insert  DERRCK  here  if  you're  including 
;  error  checking. 

"0:BASIC  PROGRAM" 

;  substitute  your  filename  here  (<=  16 

:  characters) 
*— FILENM       ;  length  of  filename 

;  Include  the  next  two  variables  on  the 

;  128  only. 

;  BNKNUM  .BYTE  0;  bank  number  where 
;  program  to  be  saved  is  located 
;  BNKFNM  .BYTE  0;  bank  number  where 
;  program's  filename  is  located 


See  also  SAVEML,  VERIFY. 
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Name 

Save  an  ML  program 

Description 

SAVEML  is  quite  versatile.  With  it,  you  can  save  to  disk  an 
ML  program  or  any  block  of  binary  data  such  as  sprite  pat- 
terns, custom  characters,  hi-res  screens,  and  so  on,  from  any 
memory  location  specified. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  Store  the  starting  address  of  the  ML  program  (STPROG)  in 
zero  page. 

3.  Set  up  the  parameters  for  a  save  (SETLFS,  SETNAM). 

4.  On  the  128,  prior  to  SETNAM,  load  .A  with  the  number  of 
the  bank  containing  the  program  to  be  saved  and  .X  with 
number  of  the  bank  containing  its  filename.  Then  JSR  to 
SETBNK. 

5.  Load  immediately  the  zero-page  pointer  to  STPROG. 

6.  Load  .X  and  .Y  with  the  ending  address  of  the  ML  program 
(ENDPRG). 

7.  JSR  to  SAVE. 

Explanation 

The  example  routine  is  set  up  to  save  an  ML  program  named 
"ML  PROGRAM",  which  runs  from  location  49152  (STPROG) 
through  location  50000  (ENDPRG  -  1),  or  alternatively,  on  a 
128,  to  save  an  ML  program  residing  in  memory  from  3072 
through  3920  (when  STPROG  and  ENDPRG  are  set  in  the 
source  listing  accordingly).  Notice  that  whether  you're  on  the 
64  or  128,  you  must  always  add  one  to  the  value  of  the  last 
byte  in  your  code.  The  SAVE  routine  saves  up  to  (but  not 
including)  the  last  byte  specified. 

To  save  your  own  ML  program,  just  substitute  its  filename 
for  "ML  PROGRAM"  and  specify  its  starting  and  ending  ad- 
dress (plus  1)  as  STPROG  and  ENDPRG,  respectively,  in  the 
equates.  Furthermore,  the  secondary  address,  when  the  file 
parameters  are  set  up,  must  contain  a  zero  for  all  saves. 

Note:  SAVEML  currently  lacks  disk  error  checking.  You 
can  add  this  feature  if  you  like  by  incorporating  the  subroutine 
DERRCK  into  the  code.  Place  DERRCK  just  before  FILENM, 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  the  JSR  SAVE  instruction.  Be  sure  to  open  the  error  chan- 
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nel  (15)  at  the  beginning  of  the  program  (also  noted  in  the 
source  listing). 

On  the  128,  you  must  define  and  include  BNKNUM  and 
BNKFNM  at  the  end  of  the  program. 

Routine 


cooo 
cooo 
cooo 
cooo 
cooo 


SETUS 
SETNAM 


COOO 


■ 

cm 
coos 
coos 

COOA 

cooc 

COOE 


SETBNK 
MMUREG  - 


SAVE  Ml 


AO 
84 


FC 


A9  01 

A2  08 

AO  00 

20  BA  FF 


A9  OC 

A2  24 

AO  CO 

20  BD  FF 

A9  FB 

A2  51 

AO  C3 

20  D8  FF 


LDX 

STX 

STY 
I. DA 
LDX 
LDY 


LDA 
LDX 
LDY 


LDX 
LDY 
JSR 


65466 

65469 

65496 

251 

49152 


65384 
65280 


#<STPROG 

Iff** 
#1 
#8 
#0 


#FNLENG 

#<FILENM 

#>FILENM 

SETNAM 

#ZP 

#<ENDPRG 
#>ENDPRG 
SAVE 


:  starting  address  of  ML  program  (perhaps 
;  3072  on  128) 

J  ending  address  of  ML  program  plus  1 
;  perhaps  3921  on  128) 
;  Kemal  bank  number  for  SAVE  and  filename 
;  (128  only) 

;  MMU  configuration  register  (128  only) 

;  Save  an  ML  program  from  49152  through 
;  50000  (3072-3920  on  the  128). 
;  Open  channel  15  here  if  you  include  disk 
;  error  checking  (DERRCK). 


;  LDA  #0;  set  the  128  to  bank  15  (128  only) 

;  STA  MMUREG;  (128  only) 

;  low  byte  of  program  address 

;  store  in  zero-page 

;  high  byte  of  program  addres6 

;  also  store  in  zero-page 

;  logical  file  number  (value  doesn't  matter) 

;  device  number  for  disk  drive 

;  secondary  address  for  all  saves 

;  set  parameters  for  save 

:  Include  the  following  three  Instructions 

;  for  the  128  only. 

;  LDA  BNKNUM;  bank  containing  the 

;  LDX  BNKFNM;  bank  containing  the 

;  ASCII  filename 

;  JSR  SETBNK 

;  length  of  filename 

;  address  of  filename 

;  set  up  filename 

;  zero-page  pointer  to  start  of  ML  program 
;  low-byte  address  for  end  of  ML  program 
;  high-byte  address  for  end  of  ML  program 
;  save  the  ML  file 

;  JSR  DERRCK;  Insert  here  for  disk  error 
;  checking 


454 


C024    30    3A   4D   FILENM       .ASC    "0:ML  PROGRAM" 

;  Substitute  your  own  filename  here  (<=16 
;  characters) 

C030  FNLENG      -         *-—  FILENM     ;  length  of  filename 

•  Include  the  next  two  variables  on  the  128. 
;  BNKNUM  .BYTE  0;  bank  number  where 
;  data  lo  be  saved  is  located 
;  BNKFNM  -BYTE  0:  bank  number  where 
;ASCH  filename  is  located 


See  also  SAVEBS,  VERIFY. 


SCRCAS 


Name 

screen  codes  to 


Commodore  computers,  including  the  64  and  the  128,  repre- 
sent characters  in  different  ways.  When  characters  are  printed 
(with  CHROUT),  they  are  represented  by  Commodore  ASCII 
codes.  When  they  are  stored  directly  to  screen  memory  (with 
5TA),  so-called  screen  codes  are  used.  Fortunately,  there  are 
some  patterns  between  the  two  sets  of  codes.  As  a  result,  the 
actual  conversion  routine  can  be  relatively  short. 

You'll  probably  find  a  number  of  uses  for  SCRCAS.  Many 
word  processing  programs  (COMPUTEI's  SpeedScript  and  Pro- 
Line's  WordPro,  among  others)  store  characters  in  their  files  in 
the  form  of  screen  codes.  At  some  point,  you  may  wish  to 
examine  the  contents  of  a  file  that's  in  screen-coded  format  by 
printing  it  to  the  screen.  Or  you  may  simply  want  to  print  por- 
tions of  screen  memory  elsewhere  on  the  screen.  In  either 
case,  a  routine  like  SCRCAS 


Prototype 

h  CMP  the  screen  code  in  .A  with  zero,  setting  the  N  flag  if 
the  code  is  greater  than  127. 

2.  Store  the  processor  status  register  on  the  stack. 

3.  AND  with  127,  giving  a  screen  code  from  0  through  127. 

4.  Determine  in  which  range  of  values  the  screen  code  lies 
(0-31,  32-63,  64-95,  or  96-127)  and  flip  the  necessary 
bit(s). 

5.  Restore  the  N  flag  with  PLP  and  RTS. 


The  example  program  converts  characters  within  a  file  that's 
been  saved  in  screen-coded  format  to  Commodore  ASCII  and 
prints  them  to  the  screen. 

This  is  really  a  two-step  process.  First,  the  file  (entitled 
SCREEN  CODES)  is  loaded  into  a  buffer  (LOADAD)  on  an 
even-page  boundary  by  using  LOADRL.  Each  code  within  the 
buffer  is  then  converted  to  a  Commodore  ASCII  character 
with  SCRCAS  and  is  printed. 

In  order  to  see  the  program  in  action,  you'll  need  to  ini- 
tially create  a  file  containing  screen  codes.  As  we've  suggested, 
you  can  do  this  with  SpeedScript  or  with  any  other  program 
that  saves  in  this  format.  Change  the  ASCII  string  in  FILENM 
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to  match  the  filename  you've  chosen.  Then  run  the  program, 
changing  LOAD  AD  if  you  wish. 

SCRCAS  performs  the  conversion  based  on  the  particular 
range  in  which  the  screen  code  resides.  The  second  half  of  the 
screen  code  set  is  identical  to  the  first.  The  only  difference  is 
that  characters  above  127  are  in  reverse.  If  the  screen  code 
passed  in  A  exceeds  127,  SCRCAS  sets  the  N  flag  to  indicate 
that  the  character  is  in  reverse.  So,  upon  returning  from  the 
routine,  you  can  print  the  {RVS  ON}  character— CHR$(  18)— if 
you  wish,  before  printing  the  actual  converted  character. 

All  codes  coming  to  the  routine  are  ANDed  with  127  and 
are  handled  as  if  they  were  in  the  lower  half  of  the  set.  Once 
this  has  been  done,  SCRCAS  determines  in  which  range  the 
screen  code  lies,  with  the  aid  of  the  table  UPPLIM.  There  are 
four  ranges— 0-31,  32-63,  64-95,  and  96-127— each  sharing 
similarities  in  their  bit  patterns.  These  similarities  make 
conversion  possible. 

This  setup  is  best  represented  in  a  table  where  the  bit  pat- 
terns of  characters  in  each  range  are  shown  before  and  after 
the  conversion: 

After: 
Range      Bit  Pattern 

64-95     %010x  xxxx 
32-63     %00\XXXXX    (the  same) 
96-127  %0UXXXXX 
160-191  %101xxxxx 

Within  each  bit  pattern,  a  0  designates  bits  that  are  always 
off,  and  a  1,  bits  that  are  always  on.  The  x  represents  bits  that 
may  be  on  or  off. 

Converting  a  screen  code  in  the  range  0-31  to  the  range 
64-95  requires  that  you  flip  bit  6.  The  second  range  stays  the 
same.  To  go  from  the  range  64-95  to  the  range  96-127,  you 
turn  on  bit  5.  Screen  codes  within  the  final  range  require  that 
both  bits  6  and  7  be  flipped. 

This  is  exactly  what  occurs  within  SCRCAS.  A  lookup 
table  of  values  (FLIPT3)  is  used  with  EOR  to  convert  a 
particular  screen  code.  5o,  the  routine  returns  an  equivalent 
Commodore  ASCII  value  m  A  with  the  N  flag  set  for  reverse 
characters. 

Note:  Since  SCRCAS  corrupts  .Y,  you  should  save  it  to 
some  temporary  location  (as  is  done  in  the  example  program) 
before  entering  SCRCAS. 
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Before: 
Range      Bit  Pattern 

0-31  %000.r  xxxx 
32-63  %001x  xxxx 
64-95  %010x  xxxx 
96-127     %011x  xxxx 


SCRCAS 


Also,  if  you're  using  a  128  with  this  program,  be  sure  to 
replace  the  instruction  at  PRTLOP  with  the  three  instructions 
following  it.  This  enables  the  128  to  access  the  incoming 
screen  codes  stored  in  bank  0.  The  Kernal  routine  INDFET  is 
used  for  this  task.  INDFET  performs  an  LDA  (zero  paee),Y 
from  within  the  bank  indicated  by  the  X  register. 
Routine 

C000  CHROUT     =  65490 

C000  SETLFS        =  65466 

C0OO  9ETNAM      =  65469 

C0OO  LOAD  =  65493 

C0OO  LOADAD     =        16384  ;  buffer  for  incoming  file,  positioned  oh  eWa 


C000  ZF  =  251 

SETBNK       =         65384  ;  Kernal  bank  number  for  LOAD  and 

;  filename  (128  onlv) 
INDFET       =         65396  ;  Kernal  routine  to  "fetch  a  byte  from  any 

:  bank  (128  only) 
*  * 
;  LOAD  a  file  containing  screen  codes, 
;  convert  them  to  Commodore  ASCII 
;  characters,  and  print  them, 

2»<>    A.9  22  L?A     *<LOADAD     ■  store  buffer  address  in  zero 


STA  ZP 


C004    AO  40  LDV  o>LOADAD 

C006    84    FC  5TY  ZP+1 

r°Z   ,2   £    "  ,SR  LOADRL  ;  LOAD  in  the  file  at  16384 

COOB    8E    8B    CO  STX  EOF  :  LOADRL  returns  end-of-file  address  in  .X 

s  s  G0  S  Wm  ipS^Rr^1^ 

C013    20    D2  FF  |SR  CHROUT  ? 


Mi    ||  00  LDV     »0  :  as  an  index  in  PRTLOP 


DI8    8C   8D  CO 


,i=   ™    ;~  —  """'»"  .save.Y 

118    F0    02  BEQ     CHKLOP  :  first  check  whether  buffer  is  less  than  256 

_     _„  ;  bytes  in  length 

TOP    A  I  rwZ      W     ™V  :  increment  hU  byte  of  buffer  address 

C021    CD  8C  CO   CHKLX)P  on  the  last  page  of  buffer 

M    9°   0A  BCC     PRTLOP  ;  if  not,  print  a  full  page 

C026    D0   ,E  EXTT  ,-  exit  if  we're  one  page  beyond  .he  end  of  the 

i  buffer 

nwe     .rs  „„  ^»  :  We're  on  ,he  la5<  F«l?e  of  the  buffer. 

C028    AD  8B  CO  LDA     EOF  j  check  the  low  byteln  case  buffer  ends  on 

C02B    F0    .9  BEQ     EXTT  .---Page  boundary 

8D  8D  co  STA      MAX1MY  ;  otherwise,  store  last  page  counter  m 

i  MAXIMY 

Bl    FB  PRTLOP      LDA     (ZP).Y  ;  get  a  character  from  the  buffer 

• 

.  instructions  on  the  128. 
;  PRTLOP  LDX  #0;  store  ,X  and  .A 
j  beforehand 
;  LDA  <tZP 

;  JSR  INDFET;  load  (.A),.Y  from  bank  .X 

! 


20  47  CO 

AC  8E  CO 

C03B  20  D2  FF 
C03E  CB 

C03F   CC  8D  CO 


C042  DO  EC 
C044  FO  D7 
C046    60  EXIT 


C047    C9  00 

C049  08 
C04A  29  7F 


STY  TEMPY 

JSR  SCRCAS 

LDY  TEMPY 

JSR  CHROUT 
1NY 

CPY  MAXIMY 


BNE  PRTLOP 
BEQ  OUTLOF 
RTS 


SCRCAS  CMP 


PHP 

AND  #127 


C04C  AO  04 

C04E  88  LOOP 

C04F  D9  59  CO 

C052  BO  FA 

C054  59    5D  CO 

C057  28 

C0S8  60 


;  since  SCRCAS  comipts  Y 

;  convert  it  from  screen  code  to  Commodore 

;  AS.CII  (both  in  -A) 

;  restore  .Y 

;  print  it 

;  for  next  character 

;  have  we  reached  the  last  byte  in  the  current 

;  page  (  Y  =  0)  or 

:  the  final  byte  in  the  last  page? 

:  if  not,  continue 

.  otherwise,  check  page  number 


!  SCRCAS  converts  screen  codes  In  A  to 

:  Commodore  ASCII  characters  in  .A. 

;  The  N  flag  is  set  if  character  was  in  reverse 

;  video  prior  to  conversion. 

;  sets  N  flag  if  result  is  >-128  (if  .A 

;  >=128) 

;  save  N  flag  status 

;  0-127  and  128-255  are  the  same,  except 
;  128-255  is  to  reverse  video 
;  Index  goes  3-2-1-0 

;  Is  character  greater  than  upper  limit 
;  value? 

;  yes,  so  check  next  limit 
;  flip  corresponding  bitts) 
;  restore  N  flag  (as  normal/reverse 


RTS 


;  Upper  limit  plus  one  of  each  i 

— — — '  ' -~>  to  r  - 


C059    80    60    40  UPPLIM 
C05D  CO   20    00  FL1PTB 
C061  LOADRL 


C061  A9  0! 

C063  A2  08 

C065  AO  00 

C067  20  BA  FF 


A9  0E 

A2  7D 

AO  CO 

20  BD  FF 

A9  00 


C070 
C073 
C075    A2  00 


C079    20    D5  FF 


.BYTE  128,96.64.32 
.BYTE  192.32,0,64 


LDA  *] 
I.DX  #8 
LDY  »0 


LDA  fFNLENG 

LDX  o<FILENM 

LDY  #>FILENM 

JSR  SETNAM 

LDA  #0 

LDX  #<LOADAD 
LDY 
JSR 


,-  LOAD  a  binary  file  from  disk 

:  OPEN  channel  15  here  if  you  include  disk 
j  error  checking  (DEHRCK). 

;  logical  file  1 

;  device  number  of  disk  drive 

;  secondary  address  of  zero  causes  relative 

;  LOAD 

;  1,8.0  is  set  for  relative  LOAD 

;  include  the  following  three  instructions  on 

;  the  128. 

!  LDA  BNKNUM  bank  number  for  data 

;  LDX  BNKFNM;  bank  containing  the  ASCII 

:  filename 

;  JSR  SETBNK 

;  length  of  filename 

i  address  of  filename 

;  set  up  filename 

;  flag  for  load 

;  set  the  load  address 

;  load  the  file  at  LOADAD 


j  JSR  DERRCK:  Insert 
;  checking 


error 


SCRCAS 


C07C  60 


RTS 


I  Insert  DERRCK  here  if  you're  including 
;  e— 


C07D  30    3A  53    F1LENM  .ASC 


FNLENG 


"0:5CREEN  CODES" 

;  name  of  file  stored  in  form  of  screen  codes 
•  -  FILENM     ;  lenglh  of  filename 

;  Include  the  next  two  variables  on  the  128. 

i  BNKNUM  .BYTE  0:  bank  number  where 

;  program  is  to  be  loaded 

:  BNKFNM  .BYTE  0;  bank  number  where 

i  ASCII  filename  is  located 


C08B 
C08D 
C08E 


>■ 1  •  •>:':■  ;  two-byte  end-of-buffer  pointer 

;  low  byte  counter  for  buffer 
;  temporary  storage  for  .Y 

See  also  CASSCR,  CASTAS,  CNVERT,  TASCAS. 


oo 

00 
00 


EOF 

MAX1MY 
TEMPY 


-WORD0 
.BYTE0 
.BYTE0 
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Name 

Scroll  down  a  line  with  INST  character 
Description 

This  is  the  first  of  several  scroll-down  routines.  The  technique 
of  scrolling  lines  from  top  to  bottom  is  most  often  used  in 
games  where  you  need  to  have  bombs  dropping  from  the  sky 
(action  in  space),  trees  falling  toward  you  (skiing/dodging  ac- 
tion), or  road  signs/highways  moving  toward  you  (automobile 
action).  The  basic  idea  is  that  the  player  resides  at  the  bottom 
of  the  screen,  and  things  are  scrolling  toward  the  hapless  hero. 

Prototype 

1.  Unlink  the  first  and  second  screen  lines. 

2.  Get  to  the  top  left  corner  by  printing  a  {HOME}  character. 

3.  Print  {DOWN}  to  move  the  cursor  to  line  2. 

4.  Back  up  with  {LEFT}. 

5.  Print  the  {INST}  character,  which  opens  up  a  line. 
Explanation 

On  the  64,  the  width  of  a  physical  screen  line  is  40  characters. 
A  logical  line,  on  the  other  hand,  can  contain  up  to  80  charac- 
ters. A  logical  line  may  thus  consist  of  one  or  two  physical 
lines.  A  table  that  starts  at  location  217  indicates  whether  a 
specific  physical  line  is  linked  to  the  previous  line  as  part  of  a 
single  logical  line.  If  the  high  bit  of  a  lines  entry  in  the  table  is 
zero,  the  line  in  question  is  connected  to  the  previous  line. 

This  program  puts  the  cursor  in  the  top  left  corner,  moves 
down  to  the  second  line,  backs  up,  and  inserts  a  character.  If 
the  top  logical  line  is  fewer  than  40  characters  long,  the  tech- 
nique works;  it  opens  up  a  second  physical  line.  If  the  logical 
line  at  the  top  of  the  screen  consists  of  two  physical  lines,  the 
technique  won't  work.  So  we  make  sure  the  the  top  two  lines 
are  unlinked  by  ORing  location  218  with  128  at  the  start  of 
the  routine.  The  rest  is  just  loading  ASCII  characters  and 
printing  them. 

Routine 

C000  LDTB1        =  217 

CO0O  CHROUT     =  $FFD2 
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SCRDN1  (64  only) 


COM    A5  DA 


C002 
COM 
C006 
C008 
COOB 
COOD 
C010 
C012 


09  80 

85  DA 

A9  13 
20 


D2  FF 

A9  11 

20  D2  FF 

A9  9D 

20  D2  FF 

C015    A9  94 

C017    20  D2  FF 


C01A  60 


SCRDN1  LDA 
ORA 
STA 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 

RTS 


LDTB1+1 
#%10000000 
LDTB1+1 
#19 

CHROUT 
#17 

CHROUT 
#157 
CHROUT 
#148 

CHROUT 


;  entry  for  second  screen  line 
;  undo  Ihe  line  link 

i  HOME  character 

;  CURSOR  DOWN  character 

;  CURSOR  LEFT— to  end  of  first  line 

;  INSERT  character 

;  Now  lines  2-25  have  scrolled  down. 


See  also  BIGMAP,  SCRDN2,  SCRDN3. 
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SCRDN2  (64  only) 


Scroll  the  screen  down  a  line  with  the  ROM  insert  routine 
Description 

A  built-in  BASIC  ROM  routine  (on  the  64)  inserts  a  line  and, 
at  the  same  time,  scrolls  the  lines  below  it  down  one  notch.  By 
calling  this  routine,  you  can  cause  the  whole  screen  (except 
the  top  line)  to  scroll  down. 

Prototype 

1.  Unlink  the  top  line  from  the  second  line. 

2.  Print  the  {HOME}  character  to  get  to  the  top  left  corner. 

3.  Call  the  ROM  routine  that  inserts  a  line. 

Explanation 

BASIC  needs  the  INSLINE  routine  when  a  programmer  hap- 
pens to  type  beyond  the  fortieth  character  on  a  line  (see 
SCRDN1  for  a  fuller  explanation  of  physical  lines  and  logical 
lines).  So,  if  we  can  unlink  the  two  lines  and  put  the  cursor  in 
place,  it's  quite  easy  to  call  the  ROM  routine  that  opens  up  a 


Note:  For  the  same  effect  on  the  128,  you  may  use  the 
ESC-I  sequence  to  insert  a  blank  line  or  the  ESC-W  seq — 
to  scroll  the  whole  screen  down  by  one  line. 


Ron  line 

cooo 
cooo 


LDTBI  = 
CHROUT  = 
INSLIN 


217 
$FFD2 


COOO  A5  DA 

C0O2  09  80 

C004  85  DA 

C006  A9  13 

COOS  20  D2  FF 

COOB  20  65  E9 

COOE  60 


LDA  LDTBI +1 

ORA  #%10000000 

STA  LDTBI +1 

LDA  #19 

JSR  CHROUT 

JSR  INSLIN 

RTS 


;  ROM  routine  to  insert  a  line 

;  entry  for  second  screen  line 
;  undo  the  line  link 

;  HOME  character 
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SCRDN3 


Name 

y  copying  screen  and  color 


Description 

This  is  one  of  three  scroll-down  routines,  and  it's  by  far  the 
longest.  The  other  two  routines  depend  on  built-in  ROM 
routines,  while  this  is  a  stand-alone  program  that  by  it 
copies  characters  (and  color  memory)  byte  by  byte. 


L  Set  up  a  zero-page  pointer  to  the  second- to-the- last  screen 
line. 

2.  Set  up  a  pointer  to  the  last  screen  line. 

3.  Copy  40  characters  (and  40  color  bytes)  from  one  line  to  the 
next. 

4.  Subtract  40  from  each  pointer. 

5.  Continue  the  loop  until  24  lines  have  been  copied. 

6.  Clear  the  first  line  with  spaces. 

Explanation 

The  key  to  this  routine  is  using  zero-page  pointers.  The  FROM 
and  the  TO  pointers  tell  the  subroutines  where  to  copy  from 
and  where  to  put  the  result.  The  most  important  subroutine  is 
COPYFT  ($C040),  which  does  four  things:  It  copies  40  charac- 
ters of  screen  memory  (FROM  to  TO),  changes  the  pointers  so 
they  point  to  screen  memory,  copies  40  bytes  of  color  memory 
(FROM  to  TO  again),  and  changes  the  pointers  so  they  point 
back  to  the  screen. 

The  FRTOTO  subroutine  is  very  general.  It  copies  40  bytes 
from  the  pointer  at  FROM  to  the  pointer  at  TO.  Because  it's 
generic,  it  can  be  used  for  copying  both  screen  memory  and 
color  memory. 

The  main  program  initially  sets  up  the  pointer  at  FROM 
($C000-$C013)  and  then  calls  FROMTO,  which  creates  the 
second  pointer  at  TO.  The  X  register  starts  at  24  and  counts 
down  to  zero  because  24  lines  must  be  copied. 

You'll  see  the  heart  of  the  program  at  BIGLOP 
($C01A-$C022).  JSR  to  the  copy  routine  (COPYFT),  which 
copies  a  line  down.  Next,  JSR  to  MINUS40,  which  backs  up 
the  pointers  to  the  previous  line.  Then,  DEX  and  BNE  to  com- 
plete the  loop. 

The  final  task  is  to  fill  the  top  line  v 
(screen  code  32)  by  storing  directly  to  screen  i 
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SCRDN3 


Routine 


cooo 
cooo 
cooo 
cooo 
cooo 


cooo 

A9 

00 

C002 

85 

FB 

C004 

A9 

04 

C006 

85 

FC 

FROM 
TO 


SCKON3 


C008  A9  98 

COOA  18 

COOB  65  FB 

COOD  85  FB 

COOF  A9  03 

COll  65 


^  20    4D  CO  BIGLOP 
9  20    3C  CO 
:020  CA 

DO  F7 


p  R  s 

C027  99  00    04  CLIN 

C02A  88 

C02B  10  FA 


LDA 
STA 
LDA 
STA 


LDA 
CLC 
ADC 
STA 
LDA 


LDX 


DEX 
BNE 


$FB 
$FD 
1024 


;  pointer  to  copy  from 

:  copy  to  this  area 

:  screen  memory  base  address 


COLOR— SCREEN 

j  the  difference 


#<SCREEN 
FROM 
#>SCREEN 
FROM+1 


FROMTO 
#24 


M1NUS40 
BIGLOP 


LDY  #39 

LDA  #32 

STA  SCREEN,Y 
DEY 

BPL  CLLN 
RTS 


C02E 

AS 

FB 

C030 

18 

C031 

69 

28 

C033 

85 

FD 

C035 

A5 

FC 

C037 

69 

00 

C039 
C03B 

85 
60 

FE 

CQ3C  A5 

FB 

C03E 

38 

C03F 

E9 

28 

C041 

85 

FB 

C043 

A5 

FC 

C045 

E9 

00 

C047 

85 

FC 

C049 

20 

2E  CO 

C04C 

60 

FROMTO     LDA  FROM 
CLC 

ADC  «40 

STA  TO 

LDA  FROM  +  1 

ADC  #0 

STA  TO+1 
RTS 


MINUS40 


SEC 
SBC  u40 
STA  FROM 
LDA     FROM  -r  1 
SBC  #0 
STA  FROM-1 
JSR 
RTS 


;  low  byte  of  screen  address 

;  high  byte  of  screen  address 

;  FROM  now  points  to  the  screen, 

;  but  we're  scrolling  down,  so  we  have  to 

i  adjust  by  adding  23  lines  of  40. 

1  23  times  40 


;  FROM  is  set  up — points  to  second-to-the- 
i  last  line. 

;  subroutine  to  add  40  to  FROM 
:  number  of  lines  to  copy 

y  a  line  (screen  and  color) 
i  up  a 


The  lines  are  copied. 
Now  dear  the  Hist  line. 


;  Subroutines 
:  add  40  to  f 


,  add  zero  in  case  of  a  carry 


.this  subroutine  subtracts  40 


:  subtract  zero  to 
;  now  ad|usl  TO  pointer 


!0  5A  CO  COPYFT  J5R  FRTOTO 
20    64    CO  |SR  — • 
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SCRDN3 


C053 

20  5A 

CO 

CO  56 

20  75 

C059 

60 

RTS 

An  57 

L.L'  . 

cnv 

C03E 

Ol  CO 

L.h?n 

91  FT) 

CTA 
O  \  Ft 

(TCl\  V 

C060 

88 

DEY 

C061 

10  F9 

BPL 

FTTLOP 

C063 

60 

RTS 

C064 

A5  FB 

n  AV_  LJ\ 

LL'n 

1  ft 

10 

LA 

C067 

69  00 

Anr 

C069 
C06B 

83  FB 

CTA 
Jin 

FROM 

A5  FC 

r  da 

r  rvv^ivi  t  i 

C06D 

69  D4 

ADC 

C06F 

85  FC 

STA 

PROM  + 1 

20  2E 

CO 

JSR 

FROMTO 

60 

RTS 

C075 

A5  FB 

FIXSCN 

LDA 

FROM 

C077 

38 

SEC 

C078 

E9  00 

SBC 

#<OFFSET 

C07A 

85  FB 

STA 

C07C 

A5  FC 

LDA 

FROM+1 

C07E 

E9  D4 

SBC 

*>OFF5ET 

C080 

85  FC 

STA 

FROM  +  1 

C082 

20  2E 

CP 

JSR 

FROMTO 

C085 

60 

RTS 

:  copy  color  memory  from  FROM  to  TO 
;  change  back  to  screen 


;  get  ready  to  copy  40  bytes  (0-39) 


;  count  down 

;  branch  on  plus  because  we  wahl  *0 
I  add  offset  to  FROM  and  TO 


;  add  40  to  adjust  TO 


|  fix  color  back  to  screen  memory 


;  not  i 


See  also  BIGMAP,  SCRDN1,  SCRDN2. 
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Name 

Scratch  (erase)  a  disk  file 


This  routine  erases  a  disk  file  using  the  DOS  scratch 
command. 

Prototype 

1.  Open  the  command  channel  to  the  drive  (SETLFS, 
SETNAM,  OPEN). 

2.  As  part  of  the  SETNAM  routine,  send  the  scratch  command. 

3.  Close  the  file. 


The  first  three  lines  set  up  the  A,  X,  and  Y  registers  for  the 
call  to  SETLFS.  Before  calling  SETNAM,  we  have  to  put  the 
length  of  the  filename  into  A  and  a  pointer  to  the  filename 
into  .X  and  .Y.  But  when  the  command  channel  (15)  is  being 
opened,  the  filename  is  really  a  DOS  command.  When  the 
Kernal  OPEN  routine  is  called,  the  scratch  information  is  sent 
to  the  disk  drive.  All  that  remains  is  the  channel  closing. 


Routine 

cooo 
cooo 
cooo 
cooo 
cooo 

COOO    A9  01 


SETLFS 
SETNAM 


SFFBA 
$FFBD 
SFFCO 


C002 
C004 
COM 


SCRTCH 


A2  08 

AO  OF 

20  BA  FF 

C009    A9  0C 

COOB    A2  IE 

C00D  AO  CO 

COOF    20  BD  FF 

C012    20  CO  FF 

C015    A9  01 

C017    20  C3  FF 

C01A  20  CC  FF 
C01D  60 


LDA 

LDX 

LDY 

JSR 

LDA 

LDX 

LDY 

JSR 

JSR 

LDA 

JSR 


TS 


SETNAM 

OPEN 

#1 

CLOSE 
CLRCHN 


;  tog! til  file  number 

;  device  number  for  disk  drive 

;  command  channel  15 

j  prepare  to  open  it 

;  length  of  buffer 

;  .X  and  .Y  hold  the 

;  address  of  the  buffer 

;  set  name 

;  open  it 

;  and  immediately 

;  close  the  command  channel 

;  dear  the  channels 

;  all  done 


CO  IE    53    30    3A   BUFFER       .ASC  "S0:FILENAME" 

;  replace  FILENAME  with  the  name  of  the 
j  file  to  be  scratched 
0D  BYTE  13  .-return  < 

BUFLEN      =        '  -  BUFFER 


C02A 

See  also 


INITLZ,  RENAME,  VALIDT. 


467 


Name 

Check  the  status  of  the  shift  keys 
Description 

The  shift  key  flag  (SHFLAG)  at  location  653  (location  211  on 
the  128)  can  be  checked  to  see  whether  the  SHIFT,  Com- 
modore, or  CTRL  keys  are  being  pressed.  On  the  128, 
SHFLAG  can  also  tell  you  whether  the  ALT  or  CAPS  LOCK 
keys  are  being  pressed. 

Pressing  SHIFT  returns  a  value  of  1  in  SHFLAG;  pressing 
the  Commodore  key  returns  a  2;  and  pressing  CTRL,  a  4.  On 
the  128,  ALT  returns  an  8;  CAPS  LOCK,  a  16.  If  two  or  more 
of  these  keys  are  pressed  simultaneously,  SHFLAG  returns  the 
sum  of  these  values.  For  example,  pressing 
together  result  in  a  value  of  5  in  SHFLAG. 

Prototype 

;  contents  of  the  SHIFT  flag  in  .A. 


Explanation 

In  the  example  routine,  the  current  contents  of  SHFLAG  are 
continually  printed  on  the  screen.  Press  the  SHIFT,  Com- 
modore, and  CTRL  keys  (also  the  ALT  and  CAPS  LOCK 
on  the  128),  either  alone  or  together,  to  see  the  effect  on 
SHFLAG.  Press  Q  to  exit  (quit)  the  routine. 


SHFLAG 
CHROUT  -= 
GETIN 

CLRHOM  - 
LTNPRT 


S  SHFLAG  =  211  on  (he  128-shift  key  flag 


.  CLRHOM  =  49 

'36402  on  the  J  28 


cooo 

20   44    E5  CLRROM 

JSR 

CLRHOM 

C003 

20    19    CO  LOOP 

JSR 

SHFCHK 

C006 

AA 

TAX 

A9  00 

LDA 

#0 

20    CD  BD 

JSR 

LINPRT 

cooc 

A9  0D 

LDA 

#13 

C00E 

20    D2  FF 

(SR 

CHROUT 

con 

20    E4  FF 

JSR 

GETIN 

CO  14 

C9  51 

CMP 

#81 

C016 

DO  EB 

BNE 

LOOP 

C018 

60 

RTS 

COW 
C01C 

AD  8D  02  SHFCHK 
60 

LDA 

SHFLAG 

RTS 

See, 

also  STPFLG,  STPJ 

:er. 
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:  Check  shift  flag.  Print  result.  Quit  when  Q 

;  is  pressed. 

:  clear  screen 

;  check  shift  flag 

;  use  flag  value  as  low  bvte 

:  zero  in  the  high  byte 

,  print  a  two-byte  integer  to  screen  (see 

N^MRETIJRN 

:  get  a  key 
i  is  it  Q? 
:  no,  so  LOOP 
i  yes.  so  return 


in  ,A. 


SIDCLR 


Name 

Clear  the  SID  chip 


SIDCLR  stores  a  zero  in  each  of  the  SID  chip's 
registers,  thereby  cancelling  all  sound  output. 

Prototype 

In  a  loop,  store  zeros  in  memory  in  the  range 
'  RTS. 


Explanation 

Generally,  the  first  step  you  take  in  writing  any  sound  routine 
is  to  clear  the  SID  chip  so  that  parameters  remaining  from  a 
previous  use  of  the  chip  won't  affect  the  current  sound. 

A  minor  problem  with  the  SID  chip  is  that  it  sometimes 
continues  to  echo  the  last  frequency  output  even  after  the  in- 
tended sound  has  finished.  This  effect,  though  barely  audible, 
may  annoy  the  user.  If  it  does,  you  can  silence  the  chip  al- 
together by  JSRing  to  SIDCLR  at  the  end  of  your  sound 
routines. 

Note:  The  SID  chip  is  addressed  at  locations  54272-54300, 
a  total  of  29  registers.  The  first  25,  cleared  in  SIDCLR,  are 
write-only  registers,  meaning  they  can't  be  read.  In  contrast, 
the  remaining  4  are  read-only  registers;  writing  to  them  has  no 


Routine 


cooo 

C002 

C0O4  99 

C007  88 

C008  10 

COOA  60 


A9  00 
AO  18 


SIDCLR 


FRELOl        =  54272  j  starting  address  o!  the  5ID  chip 

LDA  #0  i  fill  wilh  zeros 

LDY  #24  ;  as  the  offset  from  FRELOl 

STA  FRELOl. \  ;  store  zero  in  each  SID  register 

DEY  ;  for  next  lower  ad  " 

BPL  SIDLOP  ;  fill  25  bytes 

RTS  we're  done 


00    D4  SIDLOP 


FA 


See  also  BEEPER,  BELLRG,  EXPLOD,  1NTMUS,  MELODY,  NOTETB, 
SIDVOL,  SIRENS. 
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SIDVOL 


Name 

Set  the  SID  chip  volume  register 
Description 

SIDCLR  sets  the  SiD  chip  volume  register  to  the  level  (0-15) 
specified  in  the  accumulator. 

Prototype 

1.  Enter  this  routine  with  the  chosen  volume  level  in  the 
accumulator. 

2.  Store  this  value  into  the  volume  and  filter-select  register  at 
54296  (SIGVOL)  and  return  to  the  calling  program. 

Explanation 

SIGVOL  (location  54296)  is  a  multifaceted,  write-only  register 
for  the  SID  chip.  With  it,  you  can  choose  the  volume  of  the 
sound  that's  output  (bits  0-3),  select  filtering  (bits  4-6),  or  dis- 
connect the  output  of  voice  3.  In  this  routine,  the  register's 
sole  purpose  is  to  determine  the  volume  level  for  the  chip. 
The  range  of  the  volume  level  is  0  (minimum)  through  15 
(maximum). 

SIDVOL  is  easy  to  use.  Just  load  a  number  representing 
the  volume  into  the  accumulator  and  JSR  to  the  routine.  In  the 
example,  we  set  the  chip  to  its  maximum  volume  level  of  15. 

Note:  Some  programmers  attempt  to  silence  the  SID  chip 
by  storing  a  zero  in  54296,  but  this  is  not  always  effective.  A 
better  approach  is  to  store  a  zero  in  the  frequency  registers  or 
turn  the  chip  off  completely  with  SIDCLR. 


C000  SIGVOL      «        54296  :  volume  and  filler-select  register 


cooo 

C002 

A9  OF 
4C  05 

MAIN 

CO 

LDA 
JMP 

=15 

SIDVOL 

;  Set  the  volume  to  15. 

;  load  .A  with  the  volume,  0  (minimum) 

:  through  15  (maximum) 

;  set  the  volume  to  A 

COOS 

8D  18 

D4  SIDVOL 

STA 

SIGVOL 

;  Enter  with  the  volume  in  .A. 

;  store  the  volume  value  in  .A  Into  the 

coos 

60 

RTS 

;  volume  register 

See  also  BEEPER,  BELLRG,  EXPLOD,  INTMUS,  MELODY,  NOTETB, 
SIDCLR,  SIRENS. 
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Name 

Produce  a  siren  sound 
Description 

SIRENS  causes  the  SID  chip  to  emit  an  extended  sirenlike 
sound.  At  certain  intervals  in  a  game,  you  could  use  it  to  sig- 
nal to  the  user  that  he's  reached  a  higher  level  or  achieved  bo- 
nus points.  Or  you  could  use  it  as  fanfare  at  the  conclusion  of 
the  game. 

Prototype 

L  Clear  the  SID  chip  with  SIDCLR. 

2.  Set  up  the  necessary  SID  chip  parameters  for  voice  L  Set 
sustain/release  to  $F0,  select  a  sawtooth  waveform,  and 
gate  the  sound. 

3.  Assign  a  low  frequency  and  a  triangle  waveform  to  voice  3. 

4.  Disconnect  output  from  voice  3.  At  the  same  time,  select 
band-pass  filtering  and  the  volume. 

5.  Store  %00000001  in  the  filter/resonance  control  register  to 
filter  voice  1  without  resonance. 

6.  Select  a  band-pass  filter  cutoff  frequency. 

7.  In  SIRLOP,  multiply  the  output  of  voice  3  by  32  and  add  in 
a  base  frequency  of  15000.  Store  the  low  and  high  bytes  of 
the  resulting  frequency  in  voice  1. 

8.  Pause  four  jiffies  before  getting  another  frequency  value  for 
voice  3. 

9.  Repeat  SIRLOP  256  times.  Then  clear  the  chip  and  RTS. 
Explanation 

In  this  routine,  the  output  from  voice  3  modulates  the  fre- 
quency of  voice  1.  In  the  process,  voice  3  is  not  actually  heard. 
As  a  result,  no  SID  attack/decay  or  sustain /release  parameters 
are  required  for  this  voice.  Its  only  use  is  in  providing  a  fre- 
quency value  for  voice  1. 

After  disconnecting  the  audio  output  of  voice  3,  the  wave- 
form (high  byte  only)  for  this  voice  is  read  from  RANDOM. 
Since  a  triangle  waveform  is  selected  for  voice  3,  the  numbers 
returned  by  RANDOM  increase  gradually  from  0  to  255,  and 
then  work  down  to  0  again.  In  order  to  get  a  suitable  fre- 
quency range  for  voice  1,  these  values  are  multiplied  by  32 
and  then  added  to  a  base  frequency  of  15000. 

Another  feature  of  SIRENS  is  its  use  of  band-pass  filter- 
ing. With  the  band-pass  filter  implemented,  frequencies  on 
either  side  of  a  cutoff  frequency  are  diminished  in  volume. 
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Since  only  11  bits  on  the  two-byte  cutoff  register  are  ad- 
dressed, the  cutoff  filter  value  can  range  from  0-2047.  Al- 
though the  number  stored  in  this  register  is  proportional  to  the 
cutoff  frequency  (in  this  case,  616),  the  value  itself  does  not 
represent  an  actual  frequency.  Probably  the  best  way  to 
achieve  the  effect  you're  looking  for  with  this  register  is 
through  experimentation. 


Routine 

cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 


ZP 
JIFFLD 


FREHI1 

VCREG1 

SUREL1 

FREL03 

VCREG3 

CUTLO 

CUTHI 

RF.SON 

SIGVOL 

RANDOM 


COOO  20  64  CO 

C003  A9  fO 

COOS  8D  06  D4 

COOS  A9  2) 

COOA  8D  04  D4 

COOD  A9  02 

COOF  8D  OE  D4 

C012  A9  10 

COM  8D  12  D4 

C017  A9  AF 

C019  8D  18  D4 

C01C  A9  01 

C01E  8D  17  D4 

C021  A9  00 

C023  8D  15  D4 

C026  A9  4D 

m  s  s 04 


C02D  A9  00  SIRLOP 

C02F  85  FC 

C031  AD  IB  D4 

C034  85  FB 

C036  06  FB 

C038  26  FC 

C03A  06  FB 

C03C  26  FC 

C03E  06  FB 

C040  26  FC 

C042  06  FB 
26  FC 


C046    06  FB 


STA  VCREG1 

LDA  #2 

STA  FREL03 

LDA  #%O00100O0 

STA  VCREG3 

LDA  #%10101111 

STA  SIGVOL 

LDA  #%O00O0001 

STA  RESON 

LDA  #0 

STA  CUTLO 

LDA  #77 

STA  CUTHI 

LDX  #0 


LDA  #0 

STA  ZP+1 

LDA  RANDOM 

STA  ZP 

ASL  ZP 

ROL  ZP+1 

ASL  ZP 

ROL  ZP+1 

ASL  ZP 

ROL  ZP+1 

ASL  ZP 

ROL  ZP+1 

ASL  ZP 


,  low  byte  of  jiffy  clock 

;  voice  1  frequency  control  (low  byte) 

;  voice  1  frequency  control  (high  byte) 

;  voice  1  control  register 

:  voice  1  sustain/reiease  register 

;  voice  3  frequency  control  (low  byte) 

;  voice  3  control  register 

;  lower  three  bits  of  filter  cutoff  frequency 

;  filter  cutoff  frequency  (high  byte) 

;  filter/resonance  control  register 


;  base  frequency  to  add  to  voice  3 

;  go  clear  the  SID  chip 

;  set  full  sustain/fastest  release 


;  select  sawtooth 
i  gate  sound 


!  1)  and 


;  give  voice  3  a  frequency 

;  select  triangle  waveform  (voice  3) 

;  disconnect  voice  3  output/select  band- 
|  pass/max.  volume 

;  no  resonance  and  filter  voice  1 

;  select  band-pass  cutoff  frequency  of  616 


;  as  an  Index  in  SIRLOP 

;  Calculate  voice  1  frequency  from  voice  3 

;  frequency  (high  byte). 

;  initialize  voice  1  frequency  (high  byte) 

;  get  voice  3  frequency  (high  byte) 
;  store  in  zero  page  as  low  byte 

yit  by  32,  double  low  byte 
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C048 

26  FC 

KOL 

ZP  +  1 

C04A 

AS  FB 

LDA 

ZP 

C04C 

18 

CLC 

C04D 

69  98 

D4 

ADC 

#<BASFRE 

C04F 

8D  00 

STA 

FRELOl 

C052 

A5  FC 

LDA 

ZP+1 

C0S4 

69  3A 

ADC 

#>BASFRE 

C056 

8D  01 

D4 

STA 

FREHI1 

C059 

A9  04 

LDA 

#4 

C05B 
C05D 

65  A2 

ADC 

JTFFLO 

C5  A2 

DELAY 

CMP 

JIFFLO 

C05F 

DO  FC 

BNE 

DELAY 

C061 

CA 

DEX 

C062 

DO  C9 

BNE 

SIRLOP 

C064 

A9  00 

SIDCLR 

LDA 

#0 

C066 

AO  18 

LDY 

#24 

C068 

99  00 

D4 

SIDLOP 

STA 

FRELOl, Y 

C06B 

88 

DEY 

C06C 

10  FA 

BPL 

SIDLOP 

C06E 

60 

RTS 

;  Add  a  base  frequency  of  15000  to  this. 
;  low  byle  first 
;  for  addition 

;  add  low  byte  of  base  frequency 
;  and  store  in  voice  1  frequen 
;  (low  byte) 
;  then  high  byte 

;  add  high  byte  of  base  frequency 
;  and  store  in  voice  1  frequency  register 
;  Delay  four  jiffies. 
;  add  four  jiffies  to  jiffy  dock  reading 

;  and  wait  for  four  jiffies  to  elapse 

;  for  next  note 
J  repeat  SIRLOP  256  times 

;  Fall  through  to  SIDCLR  to  stop  sound  and 
;RTS.  ^  ^  ^ 

:  fill  with  zeros 
;  as  the  offset  from  FRELOl 
:  store  0  in  each  SiD  chip  address 
;  for  next  lower  address 
i  fill  25  bytes 
i  we're  done 

See  also  BEEPER,  BELLRG,  EXPLOD,  INTMUS,  MELODY,  NOTETB, 
SIDCLR,  SIDVOL. 
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Name 

Sprite  interrupt  routine— automatic  sprite  movement 
Description 

In  a  situation  where  you  need  sprites  to  travel  automaticc.„ 
from  one  spot  to  another,  this  routine  may  be  helpful.  It 
makes  a  sprite  operate  like  a  battery-powered  toy  car.  Turn  it 
on,  and  it  moves  forward  without  any  further  attention  from 
you.  The  sprite  position  is  updated  60  times  a  second,  regard- 
less of  what  the  main  program  is  doing. 

Prototype 

First,  install  the  routine: 

1 .  Create  the  sprite  shape  and  set  up  the  necessary  pointers. 

2.  Set  the  interrupt-disable  flag  (SEI). 

3.  Change  the  interrupt  vector  to  point  to  the  SPRINT  routine. 

4.  Clear  the  interrupt  flag  (CLI)  and  return. 

Within  the  routine: 

5.  Slow  down  the  movement  by  checking  a  flag  (if  necessary). 

6.  Change  the  sprite  shape  (optional). 

7.  Update  the  x  and  y  positions,  and  store  them  in  registers. 

8.  Jump  to  the  normal  interrupt-handling  routine. 


In  machine  language,  sprite  movement  can  be  something  of  a 
headache.  One  problem  is  that  ML  is  very  fast;  a  sprite-mover 
routine  can  easily  move  a  single  sprite  from  one  edge  of  the 
screen  to  another  in  the  blink  of  an  eye.  A  delay  loop  is  an 
unsatisfactory  solution — you  want  the  sprites  to  slow  down, 
not  the  whole  program.  A  second  problem  is  that  updating 
sprite  positions  can  take  a  large  number  of  instructions  that 
clutter  up  the  main  loop  within  a  program. 

Putting  the  sprites  on  the  interrupt  is  a  workable  answer 
to  both  difficulties.  Every  1  /60  second,  the  wedge  takes  over 


.  copies  two  sprite 
shapes  from  the  program  down  to  the  cassette  buffer  (to  put 
them  in  the  realm  of  the  VIC  chip's  default  16K  video  memory 
bank).  Then  the  code  at  locations  $C00B-$C026  sets  up  the 
initial  x  and  y  positions,  sets  the  sprite  color  to  white,  turns  on 
the  sprite,  and  sets  the  sprite  pointer. 

Next,  the  wedge  is  installed.  It's  necessary  to  use  the  SEI 
instruction  to  disable  interrupts  while  the  installation  is  in  the 
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works.  Otherwise,  an  interrupt  may  occur  during  the  change, 
and  the  6510/8502  may  jump  to  an  unusual  location  in  mem- 
ory. The  IRQ  vector  at  locations  788-779  is  changed  to  point 
to  SPRINT.  Henceforth,  all  IRQ  interrupts  will  move  to  our 
own  routine  before  continuing  to  the  normal  interrupt-han- 
dling  routine.  When  the  wedge  is  complete,  CLI  clears  the 
flag,  and  RTS  returns  the  program  to  BASIC  (or  to  the  ML 
routine  that  called  it). 

The  SPRINT  routine  is  now  called  60  times  a  second. 
Only  one  time  in  four  does  it  actually  do  something  (15  times 
a  second  is  plenty  fast).  This  portion  of  the  program  could  be 
eliminated  or  modified. 

First,  at  $C03A,  SPRINT  checks  the  current  shape  of  the 
sprite.  If  it's  SI,  the  shape  is  changed  to  S2  and  vice  versa. 
You're  not  required  to  change  the  shapes;  this  section  could 
also  be  eliminated.  Next,  at  $C04E,  the  x  and  y  positions  are 
updated.  In  this  example,  the  x  position  is  increased  by  two, 
and  one  is  added  to  the  y  position  (this  could  be  changed, 
depending  on  the  program).  The  x  and  y  positions  are  vari- 
ables stored  in  memory.  After  they're  changed,  they  must  be 
copied  to  the  appropriate  sprite  registers  (at  $C068-$C079). 

The  routine  finishes  up,  not  with  an  RTS,  but  with  a  JMP 
to  the  normal  IRQ  handler  (NORIRQ,  $EA31  on  the  64).  This 
routine  scans  the  keyboard  and  generally  keeps  things 
running. 

Note:  The  XHI  variable  is  copied  directly  to  SPXM  because 
only  sprite  0  is  being  moved.  If  you  use  sprites  1-7,  it  will  be 
necessary  to  shift  the  bits  to  the  left  to  put  the  high  bit  in  the 
correct  position. 

On  the  128,  you  must  disable  the  sprite  control  com- 
mands of  BASIC.  Before  SYSing  to  this  routine,  enter  POKE 
4861,1  (or  use  any  other  non-zero  value).  Alternately,  you 
could  LDA  and  STA  at  the  start  of  the  program. 

Warning:  It's  important  not  to  overload  the  interrupt  rou- 
tine with  too  many  instructions.  The  interrupt  handler  is  called 
every  1/60  second,  which  seems  very  fast  to  us.  But  to  the 
computer,  which  works  in  millionths  of  a  second,  it's  a  long 
time.  If  you  write  an  extremely  long  interrupt  wedge,  it  may 
possibly  require  more  than  1/60  second  to  run.  If  this  hap- 
pens, the  interrupt  routine  will  run  in  the  background,  and,  by 
the  time  it's  done,  another  interrupt  will  have  occurred.  The 
main  program  will  never  have  a  chance  to  execute. 
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Routine 

cooo 

I1F 

$A2 

cooo 

SPR1 

$0340 

cooo 
cooo 

SPR2 

$0380 

cooo 

SI 
S2 

14 

cooo 

5PCOLR 

53287 

cooo 

SPX 

53248 

cooo 

SPY 

53249 

cooo 

SPXM 

53264 

cooo 

SPE 

53269 

cooo 

srr 

2040 

cooo 
cooo 

1RQVEC 

788 

NORIRQ 

$EA31 

COOO  A2  80 

C002  BD  80    CO  COPY 

COOS  9D  40  03 

C008  CA 

C009  10  F7 

COOB  A9  64 

COOD  8D  7D  CO 

C010  8D  7F  CO 

C0I3  A9  01 

C015  8D  27  DO 

C018  A9  00 

C01A  8D  7E  CO 

C01D  A9  01 

COIF  8D  15  DO 

C022  A9  OD 

C024  8D  F8  07 


C027  78 

C028  A9  34 

C02A  8D  14  03 

C02D  A9  CO 

C02F  8D  15  03 

C032  58 

C033  60 


COM 


C03F 
C041 
C043 
C046 
C049 
C04B 
C04E 
C051 
C052 
COM 
C057 
C05A 
C05C 


SPRINT 

A5  A2 

29  03 

DO  40 

AD  F8  07 

C9  OD 

DO  08 

A9  OE 

8D  F8  07 

4C   4E  CO 

A9  OD  DOl 

8D  F8  07 

AD  7D  CO  XY 

18 

69  02 
8D  7D  CO 
AD  7E  CO 
69  00 
C9  02 


LDX  *128 

IDA  SHAPEl.X 

STA  SPR1,X 
DEX 

BPL  COPY 

LDA  -100 

STA  XLO 

STA  YLO 

LDA  #1 

STA  SPCOLR 

LDA  #0 

STA  XH1 

LDA  *\ 

STA  SPE 

m  m 

STA  SPP 
SEI 

LDA  #<SPRINT 

STA  IRQVEC 

LDA  #>SPRINT 

STA  IRQVEC +1 
CU 
RTS 


j  lowest  byte  of  the  jiffy  clock 

;  SPR1  ='$0E00  on  the  128 

;  SPR2  -  $0E40  on  the  128 

i  SI  =  56  on  the  1 28— pointer  1  to  $0340 

;  S2  =  57  on  the  128— pointer  2  to  $0380 

;  sprite  0  color 

;  x  position 

;  y  position 

;  MSB  bit  of  x  position 
;  sprite  enable 


;  handling  routine 
j  two  SP£&  =  128  bytes 
';  tollable  memory 
;  cutting  it  thin  ( 


.  128 


;  put  it  in  x-position  shadow 
;  and  y-position  shadow 
;  the  color  white 
;  into  the  color  register 
•  no  MSB 

j  into  the  shadow  register 
:  enable  sprite  0 


„ '  *e  IRQ  vector  now 
;  first  stop  Interrupts 
.-  change  the  vector 


j  clfictr  the  i ni'.'rr'jp i r» 

.  and  we're  done  with  setup 

;  this  is  the  interrupt  routine 
;  every  fourth  interrupt 
;  AND  it  with  3 
;  if  a  bit's  on,  quit 
J  get  the  pointer 
;  is  it  shape  1? 
:  no,  do  shape  1 
;  load  shape  2 
;  and  store  it 
;  go  ahead  to  x  and  y 
;  get  shape  1 


;  add  Iwo 
;  and  store  it  back 
;  check  the  high  byte 
;  add  zero  or  one 
;if  it's  not  two 
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C05E  DO  02 

C060  A9  00 

C062  8D  7E  CO  STHI 

C065  EE   7F  CO 

C068  AD  7E  CO 

C06B  8D  10  DO 

C06E  AD  7D  CO 

C071  8D  00  DO 

C074  AD  7F  CO 

C077  8D  01  DO 

C07A  4C  31  EA  ENSPRIN 


C07D  00 
C07E  00 
C07F  00 


C080  35 
C083  1A 
C086  OD 
C089  46 
C08C  21 

C095  06 
"  OE 
06 
01 
01 
00 
C0A7  El 
COAA  El 
COAD  62 
COBO  2E 
C0B3  ID 
C0B6  00 
C0B9  00 
COBC  00 
COBF  00 


COCO  00 

C0C3  3B 

C0C6  2B 

C0C9  46 

COCF  00 

C0D5  02 
CODS  06 
CODB  02 
CODE  01 
C0E1  01 
C0E4  00 
C0E7  01 
COEA  01 
COED  00 
COFO  03 
C0F3  18 
C0F6  70 
C0F9  00 
COFC  OC 


00  00 

7C  00 

66  00 

42  06 

42  IE 

24  70 

58  CO 

3F  00 

3C  00 

3C  00 

7C  00 

7C  00 

7C  00 

7F  00 

78  80 

20  CO 

40  60 

40  70 

03  CO 

07  80 

02  CO 


00  00 
78  00 
4C  00 


XLO 
XH1 

m 

SHAPE! 


00 
00 
70 


5B  F8 

3F  BO 

38  00 

3C  CO 

7D  EO 

7C  00 

7C  00 

7F  00 

78  80 

23  CO 

73  80 

7B  CO 

3F  80 

3D  80 

02  CO 


BNE  STH1 
LDA  #0 
STA  XHJ 

INC  YLO 

LDA  XH1 

STA  SPXM 

LDA  XLO 

STA  SPX 

LDA  YLO 

STA  SPY 

JMP  NORIRQ 

BYTE  0 
BYTE  0 
BYTE  0 


;  branch  ahead 

;  otherwise,  make  it 


;  add  one  to  the  y  position 
;  Now  change  the  positions. 


;  do  the  normal  IRQ  stuff 


BYTE 
.BYTE 
.BYTE 
.BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
.BYTE 
.BYTE 
-BYTE 
.BYTE 
.BYTE 
BYTE 
BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
BYTE 
-BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
-BYTE 
.BYTE 
.8YTE 

BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
-BYTE 
.BYTE 

BYTE 

BYTE 
-BYTE 
.BYTE 
.BYTE 
.BYTE 

BYTE 


%00110101.%0000000,%00000000 
%000 1 1010,%  1 1 1 1 1 00,%00000000 
%00001101,%1100110,%00000000 
%01000110,%1000010,%00000110 
%00100001,%1000010,%00011110 

%oooooiio!%oiiim!%oooooooo 

%0000 1 1 1 0,%0 11 11 00,%00000000 
%00000110,%0111100,%00000000 
%00000001.%  1 1 1 1 100.%00000000 
%00000001 ,%  1 1 1 1 1 00,%00000000 
%00000000,%1 1 11 100,%00000000 

%mooooi,%imm,%oooooooo 

%11100001,%1111000,%l0000000 
%01100010,%0100000,%11000000 
%0010U10,%1000000,%01 100000 
%0001 1 101,%1000000,%01 1 10000 
%00000000,%0000011,%1 1000000 
%00000000,%00001 1 1,%10000000 
%00000000,%0000010,%1 1000000 
0  ;  zero  to  make  it  even 


%00000000,%0000000, 
%oonioii,%niiono. 

%00101011,%1001100, 
%01000110,%1000100, 
%00100001,%1000010, 
%00000000,%0100100, 
%00000001,%1011011, 
%00000010.%0111111, 

%ooooono,%oinooo, 

%00000010,%OU1100, 
%00000001,%1 111101, 
%00000001,%1111100, 
%00000000,%1 111100, 
%oooooooi,%imin. 
%oooooooi,%miooo 

%00000000,%0100011. 
%00000011,%1110011. 
%00011000,%11110ll, 

%onioooo.%onun, 

%00000000.%01 11101, 
%00001100,%0000010. 


%00000000 
%00000000 
%00000000 
%00000000 
%00000000 
%01 110000 
%11111000 
%10110000 
%00000000 
%  11000000 
%1 1 100000 
%00000000 
%00000000 
%00000000 
%10000000 
%1 1000000 
% 10000000 
%  11000000 
%  10000000 
%10000000 
%  11000000 


See  also  MOVSAB. 
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Name 

Calculate  the  integer  square  root  of  an  integer  value 
Description 

Because  squares  follow  a  definite  pattern,  it's  fairly  easy  to 
find  the  integer  square  root  of  a  given  number.  Note  that  this 
routine  doesn't  handle  the  fractional  part  of  a  square  root.  For 
example,  it  will  return  3  as  the  square  root  for  all  the  numbers 
in  the  range  9-15  and  ignore  the  fractional  component. 

Prototype 

1.  Store  the  value  of  which  you  want  to  find  the  square  root 
in  VAL. 

2.  Initialize  ADDBT  and  SQUARE  to  one,  and  ROOT  to  neg- 
ative one. 

3.  Increment  ROOT  (so  it  starts  as  zero). 

4.  Compare  SQUARE  to  VAL. 

5.  If  SQUARE  is  equal  or  larger,  exit  the  routine.  The  result  is 
in  ROOT. 

6.  If  SQUARE  is  smaller,  add  2  to  ADDBT. 

7.  Add  ADDBT  to  SQUARE  and  loop  back  to  step  3. 

Explanation 

Normally,  finding  the  square  root  of  a  number  is  a  fairly  in- 
volved process.  But  if  you're  working  with  integers,  you  may 
not  care  about  the  fractional  part  of  the  result.  In  that  case,  we 
can  use  a  mathematical  property  of  squares  to  find  the  integer 
portion  of  the  square  root. 

Write  down  the  first  six  squares  and  underneath  write 
down  the  first  six  odd  numbers;  then  add  up  the  columns: 

0  1    4    9    16  25 

1  3  5  7  9  11 
1     4    9  16    25  36 

Note  the  pattern  of  squares  is  exactly  echoed  in  the  sums 
underneath.  It  can  be  proven  mathematically  that  this  se- 
quence continues  to  infinity.  To  calculate  squares,  then  it  be- 
comes a  matter  of  keeping  a  counter  (ADDBT  in  the  program 
below)  that  starts  at  1  and  increments  by  2  during  each  loop. 
SQUARE  also  starts  at  1  and  has  ADDBT  added,  to  yield  4,  9, 
16,  and  so  on.  The  answer,  held  in  ROOT,  lags  one  number 
behind  the  actual  square  root  because  we  want  to  find  a 
square  that's  larger  than  VAL,  the  number  from  which  we're 
extracting  a  root. 
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The  example  program  prints  a  bad  facsimile  of  the  square- 
root  symbol,  and  then  the  number  from  VAL  and  an  equal 
i  answer  is  calculated  and  printed. 


cooo 


cooo 

C002 

coos 

C007 
COOA 
COOD 
C010 
C013 
C015 
C018 
C01B 
C01E 
C021 
C024 


LINPRT  - 
CHROUT  = 


A9  CD 

20  D2  FF 

A9  CF 

20  D2  FF 

AE  81  CO 

AD  82  CO 

20  CD  BD 

A9  3D 

20  D2  FF 

20  25  CO 

AE  87  CO 

AD  88  CO 

20  CD  BD 
60 


C025 

C02S  A2  01 

C027  8E  85  CO 

C02A  8E  83  CO 

C02D  CA 

C02E  8E  86  CO 

C031  8E  84  CO 

C034  CA 

C035  8E  87  CO 

C038  8E  88  CO 


C03B  EE  87    CO  LOOP 

C03E  DO  03 

COW  EE   88  CO 

C043  NOH1 

C043  AD  82  CO 

C046  CD  84  CO 

C049  FO  03 

C04B  BO  09 

C04D  60  QUIT 

C04E  AD  81    CO  MAYBE 

C0S1  CD  83  CO 

COM  90  F7 

C056  20    72    CO  MORE 

C059  18 

C05A  AD  83  CO 

C05D  6D  85  CO 

C060  8D  83  CO 

C063  AD  84  CO 

C066  6D  86  CO 

C069  BD  84  CO 

C06C  BO  03 

C06E  4C  3B  CO 


SQROOT 


LDA 

)SR 

LDA 

J5R 

LDX 

LDA 

JSR 

LDA 

JSR 

JSR 

LDX 

LDA 

JSR 

RTS 


LDX 
STX 


SFFD2 

#205 

CHROUT 

*207 

CHROUT 

VAL 

VAL+1 

LINPRT 

#61 

CHROUT 
SQROOT 

ROOT 


#1 
ADDBT 


STX  ADDBT+1 

STX  SQUARE +1 
DEX 

STX  ROOT 

STX  ROOT+1 


INC  ROOT 
BNE  NOH1 
INC  ROOT+1 


LDA 
CMP 


RTS 

LDA 

CMP 

BCC 

JSR 

CLC 

LDA 

ADC 

STA 

LDA 

ADC 

STA 

BCS 

JMP 


VAL+1 
SQUARE +1 

m 

VAL 

SQUARE 
QUIT 

ADD2 

SQUARE 

ADDBT 

SQUARE 

SQUARE+1 

ADDBT+1 

SQUARE+1 

END  IT 

LOOP 


;  LINPRT  =  $8E32  on  the  128 


;  backslash  character 
;  print  it 

;  upper-left-corner  character 

;  print  il  (to  make  a  square-root  symbol) 

t  print  the  value 

;  high  byte 

;  equal  sign  character 
:  print  it 

i  calculate  the  square  root 
;  print  the  square  value 


!  start  with  1  in  ADDBT  and  SQUARE 


;  .X  =  0,  Ihe  high  byte 


;  net  result  of  —1  in  ROOT 

;  also  a  255  Into  the  high  byte  of  ROOT 

;  Start  by  incrementing  ROOT. 


;  Now  compare  VAL  to  SQUARE. 


;  «  equ^cheek  low^byte  ^  ^ 

"•  look  at  VAL  again  (low  byte) 
;  quit  if  smaller 


;  double  add 
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C071 

60 

ENDIT 

RTS 

C072 

AD  85 

CO  ADD2 

IDA  ADDBT 

C075 

18 

CLC 

C076 

69  02 

ADC  #2 

C078 

8D  85 

CO 

STA  ADDBT 

C07B 

90  03 

BCC  NOMO 

C07D 

EE  86 

CO 

INC     ADDBT +  1 

C080 

60 

NOMO 

RTS 

C4  32 

VAL 

-WORD  12996 

C085 

00  00 
00  00 

SQUARE 
ADDBT 

C087 

00  00 

ROOT 

-BYTE  oio 

Add  2  to  ADDBT. 


;  the  square  of  1 14 
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Name 

Binary  search  of  a  sorted  list 
Description 

The  good  news  about  a  binary  search  like  SRCBIN  is  that  it's 
by  far  the  fastest  way  to  find  an  item  in  a  list.  The  bad  news  is 
that  for  it  to  work  correctly,  the  list  must  already  be  in  alpha- 
betic order.  For  a  static  list  that  doesn't  change  much — like  a 
dictionary — a  binary  search  is  ideal.  For  a  volatile  list  that 
changes  often,  you'll  have  to  spend  a  significant  amount  of 
time  keeping  it  in  order. 

Prototype 

1.  Start  by  setting  up  pointers  to  the  beginning,  the  end,  and 
the  midpoint  of  the  list. 

2.  Compare  the  midpoint  to  the  search  string. 

3.  If  it's  equal,  skip  forward  to  step  5. 

4.  If  the  midpoint  value  is  higher  than  the  search  string,  set 
the  end  of  the  list  to  the  midpoint  and  calculate  a  new  mid- 
point. Branch  back  to  step  2. 

5.  If  the  midpoint  is  lower  than  the  sought- for  string,  set  the 
beginning  to  the  current  midpoint  and  fix  the  new  mid- 
point. Return  to  step  2. 

6.  When  the  search  string  is  found,  step  backward  on  the  list 
until  the  first  occurrence  is  discovered. 

Explanation 

The  binary  part  of  a  binary  search  means  that  the  list  is  di- 
vided into  two  parts.  To  illustrate  how  it  works,  let's  first  look 
at  how  it  doesn't  work.  Imagine  that  you  live  in  a  city  that  has 
a  phone  directory  containing  100,000  names,  listed  in  alpha- 
betic order.  To  find  the  number  for  someone  named  Milt 
Young,  it  would  be  madness  for  you  to  start  searching  at  the 
beginning  of  the  phone  book  (this  is  a  sequential  search). 
You'd  have  to  look  at  many  thousands  of  names  before  you 
found  the  one  you  wanted. 

For  a  binary  search,  you'd  open  the  phone  book  halfway 
and  check  the  name  there.  Let's  say  it's  Meeks.  Immediately, 
you  know  that  the  search  string  (Young)  is  in  the  second  half 
of  the  phone  book.  With  one  comparison,  you've  eliminated 
half  the  names  on  the  list.  Next,  you  split  the  remaining  pages 
in  two  and  check  the  name.  Again,  half  the  names  are  dis- 
carded. Each  pass  through  the  loop  cuts  in  half  the  number  of 
names  to  be  checked.  For  a  list  of  256  items,  you'd  need  at 
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most  8  comparisons  to  find  the  target  name.  For  64K  items, 
you'd  need  a  maximum  of  16  comparisons. 

The  dark  side  of  the  binary  search  is  that  maintaining  the 
list  requires  a  good  deal  of  effort  since  it  must  be  in  alphabetic 
or  numeric  order. 

The  SRCBIN  routine  is  long,  but  relatively  simple  to 
understand.  There  are  three  possibilities:  The  search  string  is 
on  the  list,  it's  on  the  list  several  times,  or  it's  not  on  the  list. 
If  the  target  is  found,  the  binary  search  is  successful,  but  just 
in  case  there  are  others,  SRCBIN  moves  backward  in  memory 
to  find  the  first  occurrence.  If  it's  not  found,  a  value  of  zero  is 
stored  into  MID.  If  it  is  found,  a  pointer  to  the  first  matching 
string  is  stored  in  MID. 

The  example  program  first  reads  an  ASCII  file  into  mem- 
ory (in  READFTLE)  and  then  alphabetizes  it  (ALPHA).  For  a 
database  application,  it  shouldn't  be  necessary  to  alphabetize 
before  the  search  routine  is  called.  You  should  keep  the  list  in 


Routine 

cooo 

STATUS 

144 

cooo 

PI 

= 

$F9 

cooo 

ZF 

$FB 

cooo 

Z2 

$FD 

cooo 

UNPRT 

$BDCD 

CHROUT 

$FFD2 

BUFFER 

as 

$5000 

cooo 

POINTR 

cooo 

20 

29  CI 

ISR 

READFILE 

C003 

20 

E4  CI 

JSR 

ALPHA 

C006 

AO 

00 

GLOOP 

LDY 

#0 

coos 

CF  FF 

NLOOP 

ISR 

CHRIN 
#13 

CO0B 

1 

0D 

CMP 

COOD 

F0 

06 

BEQ 

FINDFT 

COOF 

99 

76  C2 

STA 

SEARCH.Y 

C012 

C8 

1NY 

C013 

DO 

F3 

BNE 

NLOOP 

CO  15 

A9 

00 

FIND  FT 

LDA 

#0 

C017 

99 

oo  C2 

STA 

SEARCH.Y 

C01A 

CO 

CPY 

#0 

C01C 

F0 

BEQ 

NLOOP 

C01E 

20 

2D  CO 

JSR 

SRCBIN 

C021 

AE 

E2  CI 

LDX 

MID 

C024 

AD  E3  CI 

LDA 

MID  +  1 

20 

CD  BD 

JSR 

LINPRT 

C02A 

4C 

06  CO 

IMP- 

GLOOP 

C02D 

20 

51  CO 

SRCBIN 

ISH 

SETUP 

C030 

20 

BC  CO  SBLOOP 

JSR 

CHKMID 

;  LINPRT  =  S8E32  on  the  128 

;  where  the  words  are 

;  where  the  pointers  to  the  words  are 

»' 

;  get  the  words  into  memory  and  set  up  the 
;  pointers 

;  alphabetize  the  list 


;  end  it  with  a  zero 

;  was  there  anything  (or  too  much)? 


;  Now  find  the  word. 


;  print  the  address  of  the  string 

';  set  up  the  TOP,  BOX  and  MID  pointers  to 
;  the  pointer* 
;  look  at  MID 
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C033 

FO  10 

BEQ 

MOVEDN 

C035 

30  02 

BMI 

HALFO 

C037 

10  06 

BPL 

HALF1 

C039 

20  FO 

CO 

HALFO 

JSR 

MIDTOP 

C03C 

4C  30 

CO 

JMP 

SBLOOP 

C03F 

20  F4 

CO 

HALF1 

JSR 

MIDBOT 

C042 

4C  30 

CO 

JMP 

SBLOOP 

C045 

20  OS 

CI 

MOVEDN 

JSR 

MIDMIN 

C048 

20    BC  CO 

CHKM1P 

C04D 

FO  F8 

BEQ 

MOVEDN 

20  17 

Cl 

MIDPLS 

C050 

60 

RTS 

C051 

A2  03 

SETUP 

LDX 

#3 

C053 

BD  DA  CI  SET01 

LDA 

SB,X 

C0S6 

9D  DE 

CI 

STA 

BOT,X 

C059 

CA 

DEX 

C05A 

10  F7 

BPL 

SET01 

cose 

A0  EO 

Cl 

MIDSET 

LDA 

TOP 

C05F 

38 

SEC 

C060 

ED  DE 

ci 

SBC 

BOT 

C063 
C06S 

29  FC 

Cl 

AND 

#%mnioo 

8D  E2 

STA 

MID 

C068 

AD  El 

Cl 

LDA 

TOP+1 

C06B 

ED  DF 

Cl 

SBC 

BOT+1 

C06E 

8D  E3 

Cl 

STA 

MID  +  1 

C071 

4E  E3 

Cl 

LSR 

MID  +  1 

C074 

6E  E2 

Cl 

ROR 

MID 

C077 

AD  E2 

Cl 

LDA 

MTD 

C07A 

OD  E3 

Cl 

ORA 

MID+1 

C07D  FO  13 

BEQ 

PANIC 

C07F 

AD  E2 

Cl 

LDA 

MID 

C082 

6D  DE 

Cl 

ADC 

BOT 

C085 

8D  E2 

Cl 

STA 

MID 

C088 

AD  E3 

Cl 

LDA 

MID+1 

6D  DF 

Cl 

ADC 

BOT+1 

C08C 

8D  E3 

Cl 

STA 

MID+1 

60 

RTS 

C092 

AD  DE 

Cl 

PANIC 

LDA 

BOT 

C095 

8D  E2 

Cl 

STA 

MID 

C098 

AD  DF 

Cl 

LDA 

BOT+1 

C09B 

8D  E3 

Cl 

STA 

MID+1 

C09E 

20  BC 

CO 

JSR 

\_MKIW1jL' 

C0A1    FO  18 

NOPROB 

C0A3 

AD  EO 

a 

LDA 

TOP 

C0A6 

8D  E2 

a 

STA 

MID 

C0A9 

AD  El 

Cl 

LDA 

TQP+I 

COAC 

8D  E3 

ci 

STA 

MID+1 

COAF 

FO  OA 

BEQ 

NOPROB 

C0B1 

68 

FLA 

C0B2 

68 

PLA 

C0B3 

A9  00 

LDA 

C0B5 

8D  E2 

a 

STA 

MID 

COBS 

8D  E3 

a 

STA 

COBB 

SO 

NOPROB 

RTS 

COBC 

AD  E2 

Cl 

CHKM1D 

LDA 

MID 

COBF 

85  FB 

STA 

ZP 

;  found  it,  now  back  up  a  little 
i  In  the  first  half 
;  in  the  second  half 

;  MID  is  the  new  TOP 
;  go  back 

;  MID  is  the  new  BOT 
;  and  loop 

;  MID  minus  two 
!  check  it 

;  move  down  one  more 
;  mid  plus  two 


;  copy  SB  and  EB 
;  to  BOT  and  TOP 
;  count  down  to  255 


;  find  midpoint 
;  subtract  BOT 

;  make  sure  It  will  be  even  after  the  rotate 

;  store  in  MTD  temporarily 

;  high  byte,  too 

;  subtracts 

;  into  MID 

;  cut  in  half  lhe  high 

;  and  low  bytes  of  MID 

;  The  halfway  point  is  ready. 

;  better  check  it 

;  are  any  bits  on? 

i  no,  and  we  haven't  found  It 

;  carry  is  always  clear 

;  add  to  BOT 

;  high  byte,  too 

j  MID  is  ready 

;  so  we  can  go  back 

i 

;  Maybe  if s  not  on  the  list 


;  check  it 
;  found  UV 


;  found  it 

;  get  rid  of  the  address 
;  from  the  JSR 
;  zero  out  MID 


,-  get  the  pointer 
,-  to  the  string 
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COCl  AD  E3  CI 
C0C4  85  FC 
C0C6  AO  01 
C0C8  Bl  FB 
COCA  85  FE 
COCC  88 
COCD  Bl  FB 
COCF  85  FD 


LDA  MID+1 

STA  ZP+1 

LDY  #1 

DEY 

LDA  (ZP),V 

STA  Z2 


and  store  in 

ZF 

next, 

the  string  address 
goes  into  Z2 
.Y  is  zero 


C0D1    B9    76    C2  CMTHEM 
C0D4  DO  05 
C0D6  11  FD 
C0D8   DO  10 
CODA  60 

CODB  AA  CKM1 

CODC  Bl  FD 

CODE  FO  OD 

COEO  8A 

C0E1    Dl  FD 

C0E3    90  05 

C0E5    DO  06 

C0E7  CB 

C0E8    DO  E7 


COEA  A9  FF 

COEC  60 

COED  A9  01 

COEF  60 


LDA  SEARCH,* 

BNE  CKM1 

ORA  (Z2),Y 

RTS 
TAX 

LDA  <Z2>,Y 

BEQ  TOOLOW 
TXA 

CMP  (Z2),Y 

BCC  TOOHI 

BNE  TOOLOW 
INY 

BNE  CMTHEM 


TOOHI        LDA  #255 
RTS 

TOOLOW    LDA  #1 
RTS 


;  Compare  them. 

;  get  a  character 

;  if  not  zero,  check  more 

;  is  the  string  also  a  zero? 

j  "L!hRTSr^hStht'4uJ  flag  set 
;  save  it 

;  if  Z2  is  zero,  mid  is  too  low 
;  get .A  back 

:  compare  search  to  Z2.  which  is  MID 
;  MID  is  too  high 
;  MID  is  loo  low 
;  they're  equal,  so 
;  go  back  for  another 
■ 

;  make  sure  the  minus  flag  is  on 
;  return 
;  plus  flag 


A2  03 

DO  02 

A2  01 

AO  01 

B9  E2  CI 

9D  DE  a 
CA 
88 

10  F6 

4C  5C  CO 


MIDTOP 
MIDBOT 


LDX 
BNE 
LDX 
LDY 
LDA 
STA 
DEX 
DEY 
BPL 
JMP 


C105    AD  E2    CI  MIDMIN 

CI 08  38 

C109    E9  02 

C10B    8D  E2  CI 

C10E    AD  E3  CI 

Clll     E9  00 

CI  13    8D  E3  CI 

C116  60 

CI17    AD  E2    CI  MIDPLS 

C11A  18 

C11B    69  02 

CUD  8D  E2  CI 

C120    AD  E3  CI 

C123    69  00 

CL25    8D  E3  CI 

C128  60 

READFILE 
SETLFS 
SETNAM 
OPEN 
CHK1N 


#3 

ALWAYS 

#1 

#1 

MTD.Y 
BOT.X 


ALWLOP 

MIDSET 


LDA  MID 

SBC  #2 

STA  MID 

LDA  MID+1 

SBC  #0 

STA  MID+1 
RTS 

LDA  MID 
CLC 

ADC  #2 

STA  MID 

LDA  MID+1 

ADC  #0 

STA  MID+1 
RTS 


65469 


;  copy  from  MID  to  TOP 
;  go  forward 

;  else  copy  from  MID  to  BOT 


;  -X  is  either  3  or  1  to  start 
;  count  down 

;  go  back 

;  set  a  new  MID  and  (maybe)  return 
;  subtract  2  from  MID 


;  add  2  to  MID 
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C129  CHRIN 
CI  29  CLOSE 
C129  CLRCHN 

CI 29  A9  01 

C12B  A2  08 

C12D  AO  02 

C12F  20  BA  FF 

CI  32  A9  08 

C134  A2  D2 

C136  AO  CI 

C138  20  BD  FF 

C13B  20  CO  FF 

C13E  A2  01 

CMC  20  C6  FF 

C143  A9  00 

CMS  85  FB 

CM7  8D  00  50 

CMA  A9  60 

CMC  85  FC 

CME  8D  01  50 

C151  A9  00 

C153  8D  DA  CI 

C156  18 

C157  69  02 

C159  85  FD 

C15B  A9  50 

C15D  8D  DB  CI 

CI  60  69  00 

CI  62  85  FE 

C164  AO  00 

C166  20  CF  FF  GETCHR 

C169  C9  OD 

C16B  FO  35 

C16D  C9  20 

C16F  90  09 

C171  FO  2F 

C173  91  FB 

C175  C8 

C176  DO  02 

C178  F6  FC 
C17A 


= 

65487 

= 

65475 

= 

65484 

LDA 

#1 

•  logical  file  number 

;  device  number  for  disk  drive 

LDX 

#8 

LDY 

#2 

;  secondary  address  (2-14  are  C 

JSR 

SETLFS 

LDA 

#FNLEN 

;  length  o(  Filename 

LDX 

#<FNAME 

;  address  of  filename 

LDY 

ISR 

SETNAM^ 

)SR 

OPEN 

LDX 

»1 

j  logical  file  number 

JSR 

CHK1N 

;  set  for  input 

LDA 

#<BUFFER 

;  set  up  a  pointer 

STA 

ZP 

:  in  ZP 

STA 

POINTR 

;  and  in  the  pointer  table 

LDA 

#>BUFFER 

;  high  byte 

STA 

ZP  +  1 

STA 

POINTR+ 1 

LDA 

#<POINTR 

; 

;  POINTR  points  to  the  buffer 

STA 

SB 

;  put  it  In  the  starting  byte  SB 

CLC 

ADC 

#2 

.-add  2 

STA 

Z2 

j  and  store  in  Z2 

LDA 

#>POINTR 

:  high  byte 

STA 

SB+1 

:  into  SB 

ADC 

#0 

:  handle  the  carry 

STA 

Z2+1 

LDY 

-0 

JSR 

CHRIN 
*13 

;  get  a  character 

CMP 

!  check  for  <RETURN> 

A6  90 

C17C  FO  E8 

C17E   A9  00 

C180   91  FB 

C182    20  B0  CI 

C185    91  FB 
C187  C8 

C188    91  FB 

C18A  A9  01 

C18C   20  C3  FF 

C18F    20  CC  FF 

C192    A5  ED 
C194  38 

C195    E9  06 

C197    8D  DC  CI 

C19A  A5  FE 

C19C   E9  00 

8D  DD  CI 
60 


DELIMIT 
#32 

CHKEND 
DELIMIT 
(ZP),Y 

CHKEND 
ZP+1 


GETCHR 
#0 

(ZP),Y 

ADDYZP 

(ZP).Y 


(ZP),Y 


C1A1 


LDA  Z2+1 
SBC  #0 
STA      EB  +  1 


C1A2  CO   00  DELIMIT     CPY  wO 


;  look  for  a  s 
■  eliminate  c 


;  check  for  the  end 
;  increment  the  pointer 

:  if  equal,  get  more  chf 
;  close  it  up  wit" 
I  store  it 
;  reset  ZP 


;  close  the  file 

;  dear  channels 

;  save  the  end  of  the  buffer 

:  which  is  six  bytes  too  high 
:  in  end  buffer  EB 


:he  end  of 


:  is  this  the  first  character? 
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C1A4   FO  D4 


C1A6   A9  00 

C1A8  91  FB 

C1AA  20  BO  CI 

C1AD  4C  7A  CI 


C1B0 
C1B1 
C1B2 
C1B4 
C1B6 
C1B8 
C1B9 
C1BB 
C1BD 
C1BE 


C1C1 
C1C3 
C1C5 
C1C7 
C1C8 
C1CA 
C1CC 
C1CE 
C1D0 
CID1 


38 
98 

65  FB 
85  FB 
A9  00 
A8 

65  FC 
85  FC 
C8 

91  FD 
88 

A5  FB 

AS  FD 
IB 

69  02 

85  FD 

90  02 

E6  EE 
98 


ADDYZP 


C1D2  46    49    4C  FNAME 


BEQ 

CHKEND 

LDA 

#0 

STA 

(ZP).Y 

JSK 

ADDYZP 

IMP 

CHKEND 

SEC 

TYA 

ADC 

ZP 

STA 

ZP 

LDA 

#0 

TAY 

ADC 

ZP+1 

STA 

ZP+1 

[NY 

STA 

(Z2),Y 

DEY 

LDA 

ZP 

STA 

mm 

LDA 

22 

CLC 

ADC 

#2 

STA 

Z2 

BCC 

SS 

BYEBYE 
Z2+! 

RTS 
ASC 

"FILE.S.R" 

;  yes.  go  back 

;  Enter  this  routine  if  a  space  or  carriage 
;  return  is  found  after  a  word. 
;  zero  marks  the  division 
i  put  a  zero 
i  add  .Y  to  i 
j  and  check  for  end  ol 

;  add  one  to  .Y 
I  put  it  hi  .A 
;  add  to  ZP 
i  fixZP 

|  handle  the  high  byte 
:  and  store 

:  store  the  high  byte  of  ZP 
:  into  the  POINTR  table 
;  and  the  low  byte 


;  now  add  2 

:  to  Z2,  the  pointer  to  POINTR 
;  if  carry  set 

!  increment  the  high  byte 
;  exit  with  zero  in  .A 


C1DA 

C1DA  00  00 

C1DC  00  00 

C1DE  00  00 

C1E0    00  00 

C1E2    00  00 


FNLEN 

SB 

EB 

BOT 

TOP 

MID 


C1E4  ALPHA 

C1E4  AD  DC  CI 

C1E7  8D  74  C2 

C1EA  AD  DD  CI 

C1ED  8D  75  C2 

C1F0  AD  DA  CI 

C1F3  85  F9 

C1F5  AD  DB  CI 

C1F8  85  FA 

C1FA  A9  2A 

C1FC  20    D2  FF 

C1FF  AO  03  BUBLP2 

C201  Bl    F9  ZLOOPY 

C203  AA 

C204  96  FB 

C206  88 

C207  10  F8 


BUBLP3 


•-FNAME 
.BYTE  0.0 
.BYTE  0,0 
.BYTE  0,0 
.BYTE  0,0 
.BYTE  0,0 


LDA  EB 

STA  ENDBUB 

LDA  EB+1 

STA  ENDBUB +1 

LDA  SB 

STA  PI 


LDA 
STA 
LDA 


TAX 
STX 


C8 

Bl  FB 
C20C  Dl  FD 


SB+1 
Pl  +  1 

CHROUT 
#3 

mm 


ZP,Y 
ZLOOPY 


INY 

LDA  (ZP),Y 
CMP  (Z2),Y 


I     ..    -  _ 

;  this  routine  alphabetizes  the  list  of  pointers 
;  set  up  the  top  of  the  bubble  sort 
j  save  it 


set  up  a  zero-page  pointer  to  the  pointer 


;P1  is  the  pointer  to  pointers 


i  print  an  a; 
;  gel  two  " 
.  get  a 
.  can't 
!  works 
;  not  indirect 
;  loop 

:  go  back  for  more 

;  Now  ZP  and  Z2  point  to  words. 

;  .Y  was  255;  make  it  0 

:  compare  the  words 


(0-3) 

•A,  but  .X 
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C20E    DO  04 

C210  C8 
C211    DO  F7 


BNE  CHECKM 
INY 

BNE  BUBLP3 


C213 
C214 
C216 
C218 
C21A 
C21C 
C21D 

aiF 

C22! 
C222 
C224 
C226 
C227 
C229 


18 

90  IS 
AO  00 
A5  FD 

91  F9 
C8 

A5  FE 
91  F9 
G8 

A5  FB 
91  F9 
C8 

A5  FC 
91  F9 


CLC 
BCC 
LDY 
LDA 
STA 
INV 
LDA 
STA 
INY 
LDA 
STA 
INY 


OKRITE 

#0 

Z2 

<P1),Y 

Z2+I 
(Fl).V 

ZP 


ZP+1 
(PD,Y 


C22B    A5  F9 

OKRITE 

LDA 

PI 

C22D  18 

CLC 

C22E  69  02 

ADC 

#2 

C230    85  F9 

PI 

C232    A5  FA 

Pl  +  1 

C234    69  00 

ADC 

#0 

C236    85  FA 

STA 

Pl  +  1 

C238    CD  75 

C2 

CMP 

ENDBUB+1 

C23B    90  C2 

BCC 

BUBLP2 

C23D   DO  09 

BNE 

ENDPASS 

C23F    A5  F9 

LDA 

PI 

C241    CD  74 

C2 

CMP 

ENDBUB 

C244    FO  02 
C246    90  B7 

m 

BCC 

ENDPASS 
BUBLP2 

C248  AD  74  C2  ENDPASS  LDA 
C24B  38  SEC 
C24C  E9  02  SBC 
C24E 
C251 
C254 


8D  74  C2  STA 

AD  75  C2  LDA 
E9    00  SBC 

C256    8D  75  C2  STA 

C259  CD  DB  CI  CMP 
C25C  F0  05  BEQ 
C25E    90    OE  BCC 

C260    4C    F0  CI  JMP 

C263    AD  74  C2   MAYBE  LDA 

C266  CD  DA  CI  CMP 
C269    F0    03  BEQ 

C26B  4C  FO  CI  JMP 
C26E    A9  93  OUTBUB  LDA 

C270  20  D2  FF  JSR 
C273    60  RTS 


#2 

ENDBUB 

ENDBUB+I 

#0 

ENDBUB+1 

SB+1 

MAYBE 

OUTBUB 

BUBLP1 

ENDBUB 

SB 

OUTBUB 
BUBLP1 
#147 
CHROUT 


;  if  not  equal,  check  whether  they  should 
;  swap 

;  otherwise.  INC  the  Y  register 

:  and  go  back  (or  more  (should  branch 

;  just  in  case 

;  if  carry  is  clear,  they're  OK 
i  else,  switch  them 
,-  put  pointer  in  Z2 
;  into  the  pointer  table 
;.Yisl 

f  high  byte,  too 


;  Y  is  2 

:  and  move  ZP  up  two 


;  .Y  is  3 
:  high  byte 

|  PI  has  to  move  up  a  couple  of  notches. 


;  are  we  at  the  * 
;  no 

;  yes,  move  ahead 

;  maybe,  check  the  low  byte 

:  are  they  the  same? 


;  no,  i 

1  . 

:  End  of  a  pass.  Move  ENDBUB  down  by 
.two. 


;  subtract  2  (low  byte) 
;  save  it 

;  adjust  high  byte 
;  subtract  0  (or'  1) 

;  are  we  down  to  the 
:  maybe 

:  yes,  gone  too  far 
:  no,  jump  back 
i  check  lew 

:  equal,  we're  done 

i  no,  keep  going 

;  clear 

:  the  screen 

;  and  quit 


C274  00  00 
C276 


ENDBUB  .BYTE  0,0 
SEARCH      =  * 


See  also  ALPNTR,  ALSWAP,  SRCLIN. 
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Linear  search  for  a  string  or  other  value 
Description 

Word  processors  often  feature  a  find  or  a  search-and-replace 
option.  SRCLIN  looks  for  a  matching  string  by  starting  at  the 
beginning  and  searching  forward  until  the  target  string  is 
discovered.  A  second  entry  point  for  the  routine  provides  a 
find-next-occurrence  function. 


1.  Before  calling  the  subroutine,  store  the  start  and  e 
in  the  variables  TEXSTA  and  TEXEND. 

2.  Store  a  search  string  in  memory  (at  STRING),  terminated  by 
a  zero  byte. 

3.  Begin  SRCLIN  by  setting  WHERE  to  the  start  of  text 
(TEXSTA).  Skip  this  step  if  you're  searching  for  the  next 
occurrence. 

4.  Copy  the  pointer  from  WHERE  to  zero  page  (Zl). 

5.  Set  .Y  to  zero. 

6.  Compare  the  character  from  STRING  to  the  character 
pointed  to  by  Zl  (both  indexed  by  .Y). 

7.  If  they're  not  equal,  increment  Zl,  make  sure  it  doesn't  go 
past  TEXEND,  and  loop  back  to  step  5. 

8.  If  Zl  exceeds  TEXEND,  the  string  hasn't  been  found.  Store 
zeros  into  WHERE  and  quit. 

9.  If  the  first  (or  second  or  third)  character  matches,  increment 
.Y  and  go  back  to  step  6  until  the  zero-terminator  appears. 

Explanation 

Compared  with  SRCBIN,  this  is  a  slow  and  inefficient  way  to 
look  for  a  string  in  memory.  But  that's  not  necessarily  a 
disadvantage. 

In  a  data-oriented  application  such  as  a  database  program, 
you  expect  certain  fields  to  be  alphabetized.  If  you  need  a 
search  routine,  SRCBIN  is  much  faster  than  SRCLIN  as  long 
as  the  data  has  already  been  sorted. 

But  in  text-oriented  software  such  as  a  word  processor,  the 
words  in  memory  will  be  arranged  grammatically  instead  of 
alphabetically.  A  binary  search  is  faster  than  a  sequential/  lin- 
ear search,  but  you'd  have  to  waste  time  and  memory 
alphabetizing  the  words  in  the  text  file  before  the  binary  rou- 
tine could  even  begin.  A  linear  search  can  start  s 
immediately. 
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The  SRCLIN  routine  has  two  entry  points.  If  you  want  to 
search  from  the  begirining  of  the  text  area,  JSR  SRCLIN.  But  if 


When  the  SRCLIN  and/or  SRCNEX  routines  are  finished, 
you  can  find  the  address  of  the  string  in  WHERE,  in  Zl,  and 
in  the  A  and  X  registers. 

Warning:  The  SRCLIN  routine,  as  it's  written,  is  sensitive 
to  the  case  of  characters.  For  example,  if  you're  looking  for 
elephant  and  the  word  Elephant  appears  as  the  first  word  in  a 
sentence,  SRCLIN  won't  consider  them  a  match.  A  capital  £ 
isn't  the  same  as  a  lowercase  e.  To  ameliorate  this  problem, 
you  can  insert  one  of  the  conversion  routines  such  as  MIXUPP 
to  convert  strings  to  uppercase  or  ' 


Routine 


cooo 

Zl 

= 

SFB 

cooo 

CHROUT 

SFFD2 

cooo 

LINPRT 

- 

$BDCD 

cooo 

20  2B 

CO 

ISR 

SRCLIN 

C003 

20  CD 

BD  BIGLOP 

LINPRT 

C006 

A9  20 

LDA 

«32 

C008 

20  D2 

FF 

ISR 

CHROUT 

COOB 

AD  8F 

CO 

LDA 

WHERE 

COOE 

0D  8F 

CO 

ORA 

WHERE 

DO  01 

if 

ITSOK 

C014 

AO  00 

ITSOK 

RTS 
LDY 

#0 

C016    Bl  FB 

PRLOOP 

LDA 

(Zl).Y 

C018 

20  D2 

FF 

JSR 

CHROUT 

C01B 

C8 

INY 

C01C 

CO  OA 

CPY 

«10 

C01E 

DO  F6 

BNE 

PRLOOP 

C020 

A9  OD 

LDA 

#13 

C022 

20  D2 

FF 

C025 

20  3E 

CO 

SRCNEX 

C028 

4C  03 

CO 

IMP 

C02B 

SRCLIN 

• 

C02B 

AD  SB 

CO 

LDA 

TEXSTA 

C02E 

8D  8F 

CO 

STA 

WHERE 

C031 

85  FB 

STA 

Zl 

C033 

AD  8C 

CO 

LDA 

TEXSTA+1 

C036 
C039 

8D  90 

CO 

STA 

WHERE +  1 

85  FC 

STA 

Zl+1 

C03B 

4C  4B 

CO 

)MP 

SRCLOP 

C03E 

SRCNEX 

•  . 

C03E 

AD  8F 

CO 

LDA 

WHERE 

C041 

85  FB 

STA 

Zl 

C043 

AD  90 

CO 

LDA 

WHERE+1 

C046 

85  FC 

STA 

Zl+1 

C048 

20  6B 

CO 

JSR 

Z1INC 

C04B 

AO  00 

SRCLOP 

LDY 

ffO 

;  LINPRT  —  $8E32  on  the  128 
,  search  (or  the  string 


.  and  a  s 
;  after  the  number 
;  now  check  if  not  found 
;  if  either  is  nonzero 
;  continue 

;  else,  we're  finished 


;  print  ten  characters 

;  print  RETURN 

;  search  for  the  next  one 


;  beginning  of  the  routine 
;  starting  address  of  text 
;  into  the  WHERE  pointer 
;  and  Zl 
;  high  byte 
;  alBO 

;  skip  over  the  next  part 

;  entry  for  SRCNEX— search  for  Hie  next 
;  occurrence 

;  lake  the  WHERE  pointer 
;  and  store  In  Zl 
;  high  byte,  too 

;  and  count  forward  one  to  avoid  repeating 
;  come  back  here  for  more 


SRCLIN 


C04D   B9  91 

CO  MOCHA  LDA 

STRENG.Y 

C050    FO  OE 

BEQ 

FOUNDIT 

C052    Dl  FB 

CMP 

(Z1),Y 

€054    FO  06 

BEQ 

MORECV 

C056    20  6B 

CO  JSR 

Z1INC 

C059    4C  4B 

CO  JMP 

SRCLOP 

C05C  C8 

MORECM  INY 

C05D   DO  EE 

MOCHA 

C05F  60 

RTS 

C060    A6  FB  FOUNDIT   LDX  Zl 

C062    8E    BF    CO  STX  WHERE 

C065    AS  FC  LDA  Zl +1 

C067    8D  90    CO  STA  WHERE  +  1 

C06A  60  RTS 

C06B    E6    FB  Z1INC         INC  Zl 

C06D  DO  02  BNE  DONINC 

INC  ZI+1 

DONINC     LDA  Zl 

CMP  TEXEND 

BNE  OUTINC 

LDA  Zl+1 

CMP  TEXEND +1 

BNE  OUTINC 
NOTFOUND  PLA 
PLA 
IDA 
STA 
STA 
TAX 

OUTINC  RTS 

TEXSTA  .WORDSCC00 
TEXEND  .WORDiCFFF 
C08F    00    CC         WHERE  .WORDSCC00 

C091    46    49    4C  STRING       ASC  "FILE " 

C095    00  BYTE  0 

See  also  SRCBIN. 


C08B    00  CC 
'   FF  CF 


;  get  a  character 
;  matches 

;  compare  it  to  the  tot 
;  if  they're  equal,  continue 
;  otherwise,  Increment  the  Zl  pointer 
;  and  check  the  next  character 

;  .Y  increases  by  one 
;  and  go  back  for  the  next  character 
;  this  should  never  happen  if  the  string  is 

■  fowpr  than 


;  fewer  than  25S  c 

;  Zl  points  to  the  string 

;  copy  the  address  to  WHERE 


;  this  just  increments  the  Zl  pointer 

I  do  the  high  byte  if  Zl  has  counted  up  I 

;  zero 

;  high  byte 

;  see  if  we're  done 

;  is  it  the  same  as  the  end  address? 


';  the  low  byte  matches 
;  compare  the  high 
;  if  not  equal,  keep  going 
;  trash  the  calling  address 
;  pull  the  other  byte 


;  return  (two  different  ways) 

:  starting  address  of  the  text 
;  last  character 

;  pointer  to  the  middle  of  the  file 
;  name  of  text  file  to  be  searched 
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Name 


STASH  (in  conjunction  with  FETCH)  provides  a  simple 
RAMdisk  for  the  128.  On  a  128,  with  this  routine  and  a  RAM 
Expansion  Module  (either  model  1700  or  1750),  you  can  store 
the  contents  of  a  block  of  s 
RAM. 


1.  Enter  this  routine  with  the  REC  registers  set  with  the  appro- 
priate system-memory  base  address,  expansion-RAM  base 
address,  and  number  of  bytes  to  transfer.  The  X  register 
should  contain  the  system  bank  number. 

2.  Load  .Y  with  the  value  required  in  the  command 
(location  57089)  to  perform  a  stash  ope— 

P  to  the  Kemal  routine  DMACALL. 


Explanation 

When  a  model  1700  or  1750  RAM  Expansion  Module  is 
plugged  into  the  128,  the  RAM  Expansion  Controller  chip 
(REC)  in  the  unit  appears  at  locations  57088-57098  in  the 
128's  address  space.  This  chip  performs  four  different  memory 
management  operations.  One  of  these — storing  system  mem- 
ory to  expansion  RAM,  or  stashing — is  carried  out  by  this  rou- 
tine. (A  discussion  of  the  REC  registers  can  be  found  in 
Mapping  the  Commodore  128  from  COMPUTE!  Publications). 

The  program  below  relies  on  STASH  to  store  the  BASIC 
program  currently  in  memory  to  one  of  four  32K  blocks,  or 
within  tha  1^A11",  *v«a«ei««  *s*te,ia  i«  ;n 


In  order  to  in- 
sure later  retrieval  of  the  BASIC  program  (see  the  program 
provided  with  FETCH),  certain  pointers — specifically  to  the 
start  and  end  of  the  program — are  saved  before  the  program 
itself. 

To  use  the  program  listed  here,  assemble  it  and  SYS  to  its 
starting  address  from  BASIC.  Following  the  SYS  address,  spec- 
ify the  partition  where  the  current  BASIC  program  is  to  be 
saved.  For  instance,  assuming  you  assemble  the  program  at 
3072  as  shown,  you  would  enter  SYS3072,1  to  store  a  BASIC 
program  in  partition  1. 

When  the  SYS  executes,  BASIC  stores  the  partition  num- 
ber you've  specified  in  the  accumulator.  At  this  point,  the  ma- 
le program  takes  over. 
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First,  it  checks  to  see  that  the  partition  number  provided 
is  in  the  range  1-4.  If  it  isn't,  an  error  message  to  this  effect  is 
printed  and  the  program  terminates.  Otherwise,  the  program 
continues  by  setting  up  the  REC  registers.  The  first  one 
considered  is  the  expansion  bank  register. 

The  two  memory  expansion  modules  currently  available 
are  partitioned  into  64K  blocks,  or  banks,  of  free  RAM.  The 
model  1700  has  two  banks  (banks  0  and  1),  for  a  total  of  128K 
while  the  1750  has  eight  banks  (banks  0-7),  for  a  total  of 
512K.  Since  the  program  here  requires  four  separate  32K 
blocks  of  memory,  banks  0  and  1  are  used  in  the  RAM  expan- 
sion module,  with  partitions  1  and  2  assigned  to  bank  0,  and 
partitions  3  and  4  to  bank  1. 

After  the  proper  expansion  bank  number  has  been  stored, 
the  base  address  for  the  expansion-RAM  module  is  set  to 
either  OK  or  32K.  Following  this,  the  system  base  address  (ZP) 
to  the  BASIC  pointers,  number  of  bytes  to  stash  (4),  and  the 
sytem  bank  number  (0)  are  stored  in  the  appropriate  REC  reg- 
isters. STASH  is  then  called. 

STASH,  in  turn,  accesses  DMACALL,  a  Kernal  routine 
that  is  generally  called  when  performing  operations  involving 
expansion  RAM.  The  requested  REC  command — the  value  or- 
dinarily placed  in  57089— is  passed  to  DMACALL  in  the  Y 
register. 

Once  the  start-  and  end-of-BASIC  pointers  have  been 
stashed,  the  BASIC  program  itself  is  stored  in  the  same  par- 
tition with  a  similar  procedure.  During  the  stash  operation,  the 
expansion-RAM  base  address  increments  automatically  as  each 
byte  is  transferred  (bits  6  and  7  in  57098  are  00  by  default). 
As  a  result,  once  the  BASIC  pointers  have  been  stored,  the 
expansion  base  address  is  ready  for  a  second  stash  operation 
and  requires  no  updating. 

Note:  A  swap  or  verify  routine  would  closely  resemble  the 
setup  shown  in  this  program.  If  you  attempt  to  write  one,  be 


Routine 


CHROUT  -  65490 
DMACALL  =  65360 


;  Kemal  routine  which  passes  command  in  .X 


DMA5YA 
DMAEXA 


57090 
57092 
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ocoo 
ocoo 
ocoo 


DMABNK 

DMADAT 

TXTTAB 

TEXTTP 

ZP 


OCOO  C9  01 

0C02  90  5D 

0CO4  C9  05 

0C06  BO  59 

0C08  38 

0C09  E9  01 

OCOB  4A 

t  8D  06  DF 


0C11    8D  04  DF 


0C14  90 

0C16  A9 
0C18  8D 


DF  EXPOFF 


A5  2D 


0C1D  85  FB 

OCTF  A5  2E 

0C21  85  FC 

0C23  AD  10  12 

OC26  85  FD 

0C28  AD  11  12 

0C2B  85  FE 

0C2D  A9  FB 

0C2F  8D  02  DF 

0C32  A?  04 

0C34  8D  07  DF 

0C37  A9  00 

0C39  8D  08  DF 

0C3C  8D  03  DF 

0C3F  AA 

0C40  20    6F  OC 


0C43  38 

0C44  AD  10  12 

0C47  E5  2D 

0C49  8D  07  DF 

0C4C  AD  U  12 

0C4F  E5  2E 

0C51  8D  08  DF 

0C54  A5  2D 


57094 
57095 
45 


CMP 
BCC 

CMP 
BCS 


#1 

PRTMSC 
#5 

PRTMSC 


#1 


;  DMA  expansion  memory  bank  register 
;  DMA  number  of  bytes  to  transfer 
;  start-of-BASIC  pointer 
;  end-of-BASIC  program  pointer 

;  Store  BASIC  program  into  RAM  exp 
;  bank  0  or  1  on  32K  boundaries. 
;  Use  this  program  along  with  the  program 
i  under  FETCH  entry. 
;  make  sure  .A  is  in  range  1-4 
I  A  is  less  than  1.  so  print  an  error  message 
;  and  leave 

;  .A  is  5  or  greater,  so  print  error  message 
;  and  leave 

j  now  subtract  1  to  put  It  in  range  0-3 


STA 
LDA 

STA 

BCC 

LDA 
STA 


DMABNK 
#0 


;  determine  RAM  expansion  bank 
;  store  it  into  DMA  bank  register 
:  determine  32K  offset  in  each  bank  (high 
;  byte) 

;  also  store  zero  into  base  address  for 
;  expansion  memory  (low  byte) 
:  if  partition  number  is  1  or  3,  carry  is  dear, 
;  so  OK  offset 

#32  ;  offset  by  32K  if  partition  number  is  2  or  4 

DMAEXA+ 1    ;  store  in' base  address  for  expansion  memory 
:  (high  byte) 

;  save  start-of-BASIC  address  pointer  in  zero 


LDA  TXTTAB 


STA 
LDA 
STA 
LDA 

STA 
LDA 
STA 
LDA 

STA 
LDA 

STA 
LDA 
STA 
STA 


ZP 

TXTTAB  + 1 

ZP-H 

TEXTTP 

ZP+2 
TEXTTP  + 1 
ZP+3 
#ZP 

DMASYA 
«4 

DMADAT 
#0 

DMADAT+1 
DMASYA +1 


STASH 


;  save  end-of-BASIC  address  pointer  in  zero 


;  store  starting  address  of  two 


;  low  byte 

;  store  number  of  bytes  to  t 
:  register  (low  byte) 

:  store  zero  to  high  byte 


;  also  store  zero  to  high  byte  of  s 
;  memory  address 
;  put  system  memory  bank  number  in  .X 


SEC 

LDA 
SBC 
STA 

LDA 
SBC 
STA 
LDA 


;  Now  store  BASIC  program  directly  after  the 
;  pointers. 

;  determine  number  of  bytes  in  BASIC 
.  program 

;  gel  end-of-BASIC  low  byte 
;  subtract  start-of-BASIC  low  byte 
;  store  result  into  DMA  register  for  number  of 
:  bytes  to  transfer 
;  get  end-of-BASIC  high  byte 
;  subtract  start-of-BASIC  high  byte 
DMADAT+1    ;  store  to  high  byte  of  register 
TXTTAB  ;  store  starting  address  ol  BASIC  as  system 


TEXTTP 

TXTTAB 
DMADAT 

TEXTTP + 1 
TXTTAB+1 
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STASH  (128  only) 


0CS9  A5 
0C5B  8D 


>  02  DF 


DF 


4C  6F  OC 


0C61  AO  00  PRTMSG 

0C63  B9  74    OG  PRTLOP 

0C66  FO  06 

0C68  20  D2  FF 

0C6B  C8 

OC6C  DO  F5, 

0C6E  60  PRTEND 


0C6F 
0C71 


80  STASH 
50  FF 


0C74  4E  4F  54  ERRMSG 
OC90  00 

See  also  FETCH. 


JMP  STASH 


LDY 

LDA 

BEQ 

JSR 

1NY 

BNE 

RTS 


LDY 
JMP 


*0 

ERRMSG.Y 

PRTEND 

CHROUT 

PRTLOP 


;  System  bank  number  is  in  X,  DMAEXA 
;  updates  automatically  (see  57098). 
;  store  BASIC  program  and  RT5 

;  index  for  PRTLOP 
;  get  a  character  for  I 
;  end  on  a  zero  bvte 
;  print  the  character  if  not  zero 
i  next  character 


;  Enter  this  routine  with  DMA  registers  set 
;  up,  and  system  bank  number  in  X 


;  call  DMA  Kernal  routine  and  RTS 


.ASC    "NOT  A  VALID  PARTITION  NUMBER" 
;  error  message 

-BYTE  0 
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STP64  (64  only) 


Name 


STP64  relies  on  the  BASIC  routine  STROUT  to  print  a  string 
to  the  current  output  device. 

Prototype 

1.  Load  the  address  of  the  string  into  .A  (low  byte)  and  .Y 
(high  byte). 

2.  JSR  to  the  STROUT  routine  in  BASIC  ROM  to  print  the 
string  (ending  in  a  zero  byte). 

Explanation 

Due  to  the  limits  of  STROUT,  STP64  can  print  strings  that  are 
no  longer  than  255  bytes.  Use  STRCPT  if  you  wish  to  print 
longer  strings. 

In  the  example,  STP64  sends  the  string  to  the  screen  (the 
default  device).  Output  can  be  directed  to  other  peripherals, 
such  as  printers,  by  changing  the  current  output  device  num- 
ber (location  154)  or  by  calling  the  Kernal  CHKOUT  routine 
after  opening  a  file  to  another  device. 

Warning:  Be  sure  to  place  the  string  you  intend  to  print 
outside  your  working  code.  If  you  place  the  string  immediately 
•  r  the  JSR  STROUT  instruction,  the  64  will  interpret  the 
£  the  string  as  if  they  were  ML  instructions. 


cooo 


com 


STROUT 


A9  08 

AO  CO 

C004  20  IE 
C007  60 

48  « 


AB 


LDA 
LDY 
JSR 


#<STR1NG 
#>STRING 
STROUT 


4C  STRING       .ASC  "HELLO" 

:  0 


;  Print  string  "HELLO". 
;  low  byte  of  string 
;  high  byte  of  string 

;  message  to  pnnt 

;  ending  in  a  zero  byte 
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STP128  (128  only) 


Name 

on  the  128  with  PRIMM 


STP128  relies  on  the  Kemal  routine  PRIMM  to  print  a  string 
to  the  current  output  device. 

Prototype 

1.  JSR  to  PRIMM. 

2.  The  ASCII  string  (ending  in  a  zero  byte)  immediately  fol- 
lows in  the  code. 

Explanation 

Because  it  relies  on  PRIMM,  STP128  can  only  print  strings 
that  are  no  longer  than  255  bytes.  To  print  longer  strings,  use 
STRCPT. 

In  the  example,  STP128  sends  output  to  the  screen  (the 
default  device).  Output  can  be  directed  to  other  peripherals, 
such  as  printers,  by  changing  the  current  output  device  num- 
ber in  location  154  or  by  opening  a  channel  and  performing  a 
Kernal  CHKOUT. 

Warning:  Always  JSR  to  PRIMM  rather  than  JMPing  to  it, 
since  PRIMM  uses  the  return  address  of  the  JSR  to  locate  the 
string. 

Routine 


PRIMM        =  65405 

;  Print  HELLO. 

0C0O    20    7D  FF    STP128        JSR      PRIMM  ;  print  the  string  thai  follows 

0C03  48  45  4C  STRING  .ASC  "HELLO"  ;  ASCII  message  to  print 
OC08    00  .BYTE  0  ;  and  ends  in  a  iero  byte 


0C09 

See  also  PTABAD,  PTABCT,  STP64,  STRCPT,  STRLEN. 
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Name 

Check  For  STOP  key  by  using  the  system  STOP  flag 
Description 

The  flag  at  location  145  is  used  to  detect  when  the  STOP  key 
has  been  pressed.  A  value  of  127  in  this  location  indicates  that 
STOP  has  been  pressed. 

Prototype 

1.  Compare  the  contents  of  the  STOP  flag  with  127. 

2.  Return  with  the  status  register  Z  flag  set  if  STOP  is  pressed. 

Explanation 

Similar  to  the  example  routine  for  STPKER,  this  routine  prints 
B's  until  STOP  is  pressed.  Comparing  the  contents  of  STKEY 
with  127  sets  or  clears  the  Z  flag  just  as  if  we  had  executed 
the  Kernal  STOP  routine.  That  is,  only  if  STOP  is  detected  will 
Z  =  1. 

Note:  The  flag  at  145  is  updated  only  during  normal  IRQ 
interrupts.  So  if  you  write  your  own  interrupt  routine,  use 
STPKER  instead.  One  advantage  of  using  STPFLG,  however, 
is  that  only  .A  is  affected,  whereas  STPKER  affects  both  .A 
and  .X. 


cooo 
cooo 


COOO  A9  42  LOOr 

C002  20  D2  FF 

C005  20  OB  CO 

C008  DO  F6 

C00A  60 


145 


LDA  #66 
JSR  CHROUT 
|SR  STPFLG 
LOOP 


C00B  A5  91 
C00D  C9  7F 
C00F  60 


STPFLG       LDA  STKEY 
CMP  #127 
RTS 


See  also  SHFCHK,  STPKER. 


;  Print  B's  until  stop  Is  pressed, 
;  print  B 


,  check  STOP  kev 

:  STOP  key  not  pressed,  so 


:  Check  STOP  key  flag.  If  j 
i  in  status  register. 
;  check  STOP  key  flag 
;  STOP  key  pressed? 
.  Z  flag  set  accordingly 


I.  set  Z  dag 


STPKER 


Name 


routine 


Description 

The  Kernal  STOP  routine  allows  you  to  determine  when  the 
STOP  key  has  been  pressed.  The  zero  flag  is  set  if  the  STOP 
key,  either  alone  or  in  combination  with  certain  other  keys, 
has  been  pressed.  Otherwise,  the  Z  flag  is  clear. 

Prototype 

1.  JSR  to  the  Kernal  STOP  routine  and  RTS  (or  simply  JMP  to 
STOP). 

2.  Upon  return,  the  Z  flag  will  be  set  if  STOP  is  pressed. 
Explanation  : 

To  demonstrate  this  routine,  we  print  A's  while  Z  =  0.  When 
STOP  is  pressed,  Z  =  1,  and  we  clear  the  screen. 

Note:  Unlike  STPFLG,  STPKER  is  not  IRQ-dependent. 
However,  STPKER  affects  both  .A  and  .X,  whereas  STPFLG 
only  affects  the  accumulator. 


cooo 
cooo 


!  Kernal  STOP  routine 


CLRCHR     LDA  #147 


;  if  zero  is  cle 
;  dear  screen 


]5R  CHROUT 
RTS 


:  Check  STOP  key.  Z  flag  set  i(  pressed. 
;  Kernal  STOP  key  check 
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STRCPT 


Name 

Print  a  string  with  a  custom  printing  routine 
Description 

This  routine  prints  a  zero-terminated  ASCII  string  of  any 
length.  It's  similar  to  the  STROUT  routine  in  Commodore  64 
ROM. 

Prototype 

1.  Load  .A  with  the  low  byte  of  the  address  of  the  string  and 
store  it  in  zero  page. 

2.  Do  the  same  with  the  high  byte  of  the  address  of  the  string. 

3.  Set  an  index  (.Y)  to  zero  to  initialize  the  main  loop 
(STRLOP). 

4.  Execute  STRLOP  until  the  zero  byte  is  reached  or  until  .Y 
reaches  zero. 

5.  If  the  index  rolls  over,  increment  the  high  byte  value  in  the 
zero-page  pointer  to  the  string  address  and  continue  STRLOP. 

Explanation 

You  may  find  the  built-in  routines  for  printing  strings  (BASIC 
STROUT  on  the  64  and  Kemal  PRIMM  on  the  128)  limiting  in 
certain  situations.  Suppose,  for  instance,  that  while  program- 
ming on  your  64,  you  need  to  switch  out  BASIC  ROM.  It  may 
not  be  convenient  to  switch  BASIC  back  in  during  your  pro- 
gram just  to  print  a  string  with  STROUT.  Instead,  you  can 
simply  incorporate  STRCPT  into  your  code. 

Furthermore,  there  will  be  times  when  vou'll  need  to  print 
strings  longer  than  255  characters.  Neither  STROUT  nor 
PRIMM  can  handle  this  chore.  But  STRCPT,  designed  to  print 
longer  strings,  would  be  ideal. 

Also,  STRCPT  is  not  specific  to  the  64  or  the  128.  For 
this  reason  you'll  see  STRCPT  in  many  programs  in  this  book. 

Much  like  STP64  and  STP128,  the  important  point  to 
remember  in  using  STRCPT  is  to  place  the  string  outside  your 
working  code.  If  you  place  the  string  in  the  working  portion  of 
STRCPT,  your  computer  will  attempt  to  execute  the  characters 
of  the  string  as  if  they  were  ML  instructions. 

In  the  example,  STRCPT  sends  the  string  to  the  screen 
(the  default  device).  Output  can  be  directed  to  other 
peripherals,  such  as  printers,  by  opening  a  channel  to  the  de- 
vice and  executing  CHKOUT. 
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STRCPT 


Routine 


C000  CHROUT 
C000  ZP 


CWU  A9  1A 

C0O2  85  FB 

C004  AO  CO 

C006  84  FC 

COOS  AO  00 

COOA  Bl  FB  STKLOP 

COOC  FO  OB 

COOE  20  D2  FF 

COU  C8 

C012  DO  F6 

COU  E6  FC 

C016  4C  OA  CO 

C019  60  FINISH 

C01A  48  45    4C  STRING 


LDA  #<STRING 

STA  ZP 

LDY  #>STRING 

STY  ZP+1 

LDY  #0 

LDA  (ZP),Y 

BEQ  FINISH 

JSR  CHROUT 
INY 
DNE 


INC 

JMP 
RTS 


STRLOP 
ZP+1 
STRLOP 


.ASC  "HELLO" 
.BYTE  0 


Print  HELLO  with  custom  print  routine 
(allows  >255  characters), 
low  byte  of  string 
store  it 

high  byte  of  string 
store  it  also 
initialize  index 

load  each  character  from  string 
if  zero  byte,  then  finished 
print  character 
for  next  character 

If  not  more  than  256  bytes,  then  get  next 
character 

otherwise,  increment  high  byte  of  the 
pointer 

and  continue  printing 


;  ending  in  zero  byte 


See  also  PTABAD,  PTABCT,  STP128,  STP64,  STOLEN. 
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STRLEN 


Determine  the  length  of  a  string 
Description 

From  time  to  time,  you'll  want  to  find  out  how  many  charac- 
ters are  in  a  particular  string.  Perhaps  a  string-handling  opera- 
tion or  a  screen-positioning  routine  requires  this  information. 
STRLEN  provides  you  with  the  length  of  any  zero-terminated 
string  containing  fewer  than  256  characters. 

Prototype 

1.  Initialize  .Y  to  255  to  serve  as  a  character  counter  . 

2.  Begin  counting  characters  in  the  string  by  incrementing  .Y. 

3.  Check  each  character  in  the  string  for  a  zero  byte. 

4.  If  the  character  byte  is  not  zero,  go  to  step  2. 

5.  Otherwise,  transfer  the  length  of  the  string  (in  the  Y  reg- 
ister) to  .A  and  RTS. 

Explanation 

In  the  example  below,  a  line  of  text  is  entered  into  the  text  in- 
put buffer  by  using  the  BASIC  routine  INLIN.  The  address  of 
this  string  data  is  stored  in  zero  page.  STRLEN  then  returns 
the  length  of  the  string  in  the  accumulator.  The  framing  rou- 
tine prints  the  length  with  NUMOUT  prior  to  returning  to 
BASIC. 

Note:  An  RTS  cannot  be  used  to  return  to  BASIC  here  be- 
cause the  text  in  the  input  buffer  would  be  interpreted  by 
BASIC  as  a  direct  command.  See  TXTINP  for  a  discussion  of 
this  problem. 

Warning:  The  loop  that  searches  for  a  string  ($C01B- 
$C01F)  will  never  end  if  there  are  no  zero  bytes  within  the 
256  locations  after  the  starting  address  of  the  buffer.  The 
INLIN  ROM  routine  always  ends  a  string  with  the  number  0, 
so  this  is  not  a  concern  within  this  example  program.  How- 
ever, if  you  use  this  subroutine  within  your  own  programs,  be 
sure  the  string  you're  examining  is  fewer  than  256  characters 
long  and  that  it  ends  with  a  zero  byte. 

Routine 

CHROUT  =  65490 

BUF  =  512 

ZP  =251 

INLIN  ~         42336  ;  INLIN  =  22176  on  the  128 

LINPRT  =        48589  ,-  UNPRT  -  36402  on  the  128 

i  Input  a  Une  of  text  until  RETURN  and 
;  determine  its  length. 
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cooo 
cooo 
cooo 
cooo 
cooo 


STRLEN 


cooo 

20    60  A5 

JSR 

C003 

A9  00 

LDA 

C005 

85  FB 

STA 

C007 

AO  02 

LDY 
STY 

C009 

84  FC 

COOB 

20    19  CO 

JSR 

COOE 

AA  NUMOUT 

TAX 

COOF 

A9  00 

LDA 

con 

20    CD  BD 

COM 

A2  80 

C016 

6C  00  03 

IMP 

INLIN 


C019  AO  FF 

C01B  C8 

C01C  Bl  FB 

C01E  DO  FB 

C020  98 

C021  60 


STRLEN 


LINPRT 
#128 


STRLEN     LDY  #255 

LENLOP  1NY 

LDA  (ZP),Y 

BNE  LENLOP 
TYA 

RTS 


;  input  a 
;  INLIN 


text  with  the  BASIC  routine 


;  Store  the  resulting  text  string  i 
;  zero  page. 

;  low  byte  of  input  buffer 
;  store  in  zero  page 
j  high  byte  of  input  buffer 


j  Print  length  with 
!  low  byte  of 


;  Return  the  length  of  the  string  (<256 
;  characters)  m  .A. 
;  String's  addn 


;  index  into  string 
r  load  the  next  character 
j  check  tor  zero  byte 
j  you've  reached  the 
;  return  length  in  .A 


See  also  PTABAD,  PTABCT,  STP128,  STP64,  STRCPT. 


SUBBYT 


Name 

Subtract  one  byte  value  from  another 
Description 

The  SBC  (SuBtract  with  Carry)  instruction  subtracts  a  value 
from  the  number  currently  in  the  accumulator.  The  example 
program  illustrates  the  basic  technique  for  subtracting  one 
number  from  another. 

Prototype 

1.  Set  the  carry  flag  with  SEC. 

2.  Load  the  accumulator  (LDA)  with  the  first  number. 

3.  Subtract  the  second  number  (SBC)  and  handle  the  result  as 
you  wish. 

The  example  program  waits  for  the  user  to  press  two  keys.  If  C 
(ASCII  67)  is  pressed  first,  followed  by  A  (ASCII  65),  the  num- 
ber 65  is  subtracted  from  67  and  the  result  (2)  prints  to  the 
screen. 

If  you  switch  the  two  letters,  the  calculation  of  65  —  67, 
(which  should  be  —2)  gives  a  result  of  254  instead.  It's  im- 
portant to  remember  that  byte  values  are  limited  to  the  range 
0-255  and  that  if  you  add  or  subtract  two  numbers  that  result 
in  a  number  outside  of  that  range,  the  values  wrap  around  at 
256.  When  such  an  overflow  occurs,  the  carry  flag  will  be  set 
(after  addition)  or  clear  (after  subtraction). 

An  interesting  side  effect  of  this  fact  is  that  the  compare 
instructions — CMP,  CPX,  and  CPY — which  compare  two  num- 
bers, act  like  SBC.  If  you  subtract  a  smaller  (or  equal)  number, 
carry  is  set.  If  you  subtract  a  larger  number,  carry  is  clear. 
Thus,  after  a  compare  instruction,  carry  is  clear  if  the  number 
in  .A,  .X,  or  .Y  is  smaller  than  the  second  number. 

Routine 


GETIN         =  $FFE4 

CO00  LINPRT       -  SBDCD  ;  LINPRT  =  I8E32  on  the  1 

CO0O  CHROUT     =  $FFD2 

C0O0  20  37  CO  JSR  GETKEY  ;  gel  a  key  (ASCII  value) 

C003  8D  3D  CO  STA  NUMBER  I        ;  store  it 

C006  20  37  CO  JSR  GETKEY  ;  gel  a  second  key 

C009  8D  3E  CO  STA  NUMBER2 

C00C  AE  3D  CO  LDX 

C00F  A9  00  LDA 

COM  20  CD  BD  JSR 


COM  A9 
C016    20    D2  : 
C019    AE  3E  I 


503 


SUBBYT 


C01C 

A9  00 

LDA 

00 

COIE 

20  CD  BD 

ISR 

LINPRT 

C021 

A9  OD 

LDA 

#13 

C023 

20    D2  FF 

JSR 

CHROUT 

AD  3D  CO  SUBBYT 

LDA 

NUMBER1 

C029 

38 

SEC 

C02A 

ED  3E  CO 

SBC 

NUMBER 

C02D 

8D  3F  CO 

STA 

TOTAI 

C030 

AA 

TAX 

C031 

A9  00 

LDA 

to 

C033 
C036 

20    CD  BD 
60 

JSR 
RTS 

LINPRT 

C037 

20    E4    FF  GETKEY 
FO  FB 

CET1N 

60 

RTS 

GETKEY 

C03D 

00              NUMBER  1 

.BYTE 

0 

C03E 

00  NUMBER2 

.BYTE 

0 

C03F 

00  TOTAL 

.BYTE 

0 

j  RETURN  again 

t 

;  the  first  number 
;  set  the  carry  flag 
i  subtract  the  second 
;  store  It 

;  put  it  in  .X 

I  and  print  it 


See  also  SUBFP,  SUBINT. 
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SUBFP 


Name 

Subtract  one  floating-point  number  from  another 
Description 

Given  a  number  in  the  second  floating-point  accumulator 
(FAC2)  and  another  number  in  FAC1,  this  routine  subtracts 
(FAC2  minus  FAC1)  and  puts  the  result  in  FAC1. 

Prototype 

1.  Store  a  number  in  FAC2. 

2.  Store  another  number  in  FAC1. 

3.  Call  the  ROM  routine  FSUBT. 


The  example  routine  subtracts  300  from  258.  The  result  is 
—  42,  which  is  converted  to  ASCII  numbers  and  is  printed  to 
the  screen.  Note  the  abundance  of  ROM  routine 
y  make  it  easy  to  handle 


Routine 

cooo 

ZP 

cooo 

CHROUT  = 

cooo 

FSUBT  = 

cooo 

MOVEF 

cooo 

GIVAYF 

$FB 


COOO  FOUT 


COOO  A9  01 

C002  AO  02 

C004  20  91  B3 

C007  20  OF  BC 

C00A  A9  01 

C00C  AO  2C 

COOE  20  91  B3 

C011  20  29  CO 

CD14  20  DD  BD 

C017  85  FB 

C019  84  FC 


LDA  #>258 
LDY  *<258 


JSR 
)SR 
LDA 
LDY 


MOVEF 
«>300 
*<300 
GIVAYF 

SUBFP 


JSR  FOUT 
STA  ZP 
STY  ZP+1 


:  FSUBT  -  $8831  on  the  128— subtract  FAC1 
;  from  EAC2;  result  In  FAC1 
:  MOVEF  =  $8C3B  on  the  128— moves  FAC1 
;  to  FAC2 

;  GIVAYF  =  $AF03  on  the  128-converts 
.-  integer  to  floating  point 
;  FOUT  =  $8E42  on  the  128— converts  FAC1 
;  to  ASCII  string 

;  Convert  the  numbers  258  and  300  to 
;  floating  point  and  subtract, 
;  high  byte  of  258 
;  low  byte 

;  convert  it;  now  it's  in  FAC1 
:  move  FAC1  to  E 
:  high  byte  of  300 
:  tow  byte 
j  convert  it 

:  FAC1  now  holds  300.  and  FAC2  holds  258. 

1  subtract  (258  -  300);  the  result  (-42)  is  left 

j  in  FAC1 

i  convert  to  ASCII 

!  pointer 

j  to  the  string 
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C01B  AO  00 

C01D  pi  FB 

COIF  DO  01 

C021  60 

C022  20    D2  FP 

C025  C8 

C026  DO  F5 

C028  60 


PRTLOP 


PRN1T 


LDY 
LDA 
BNE 
RTS 
ISR 

imy 

BNE 
RTS 


See  also  SUBBYT,  SUB1NT. 


«o 

(ZT),Y 
PRNIT 

CHROUT 

PRTLOP 


C029    20    53    B8    SUBFP        JSR  FSUBT 
IB  RTS 


;  subtract  FACI  from  FAC2 
;  the  result  is  In  FACI 
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Name 

Subtract  one  2-byte  integer  from  another 
Description 

A  single  opcode  (SBC)  handles  subtraction,  but  you  have  to 
set  the  carry  flag  first.  This  routine  illustrates  how  to  do 
multiple-byte  subtraction. 

Prototype 

1.  Set  the  carry  flag  (SEC). 

2.  Load  the  low  byte  into  .A  (LDA). 

3.  Subtract  with  carry  (SBC)  the  second  byte. 

4.  Store  the  result  (STA). 

5.  Repeat  the  LDA,  SBC,  STA  sequence  for  higher  bytes. 
Explanation 

The  rule  to  remember  for  both  adding  and  subtracting  is  al- 
ways to  clear  the  carry  flag  before  adding  and  always  to  set 
carry  before  subtracting.  Start  with  the  low  byte  and  work  to- 
ward the  higher  bytes.  The  SEC  (SEt  Carry)  instruction  is 
needed  only  once  at  the  beginning  of  the  multiple-byte 
subtraction.  After  the  first  byte  is  subtracted,  carry  takes  care 
of  itself. 

The  example  program  takes  the  value  in  the  pointer  from 
VARTAB  (the  end  of  the  BASIC  text  area)  and  subtracts  the 
address  of  the  beginning  of  the  BASIC  text  area.  It  then  prints 
a  number  that  represents  the  number  of  bytes  used  by  the 
BASIC  program  in  memory.  Since  BASIC  puts  two  zeros  at  the 
end  of  a  program,  the  number  2  will  print  if  you  have  no  pro- 
gram in  memory. 

Note:  If  the  number  subtracted  is  larger  than  the  other 
number  (500  —  1120,  for  example),  the  carry  flag  will  be  clear 
when  the  routine  finishes,  and  the  result  will  wrap  around 
from  $0000  to  $ 

Routine 

C000  TXTTAB 

C000  VARTAB 

C000  L1NPRT 

CO00    A5  2D 

C002   8D  35  CO 
C005    A5  2E 
C007   8D  36  CO 
C00A   A5  2B 
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FFFF  or  below. 


= 

43 
45 

SBDCD 

LDA 

VARTAB 

STA 
LDA 

NUM1 
VARTAB +  1 
NUM1+1 
TXTTAB 

;  TXTTAB  =  45  on  the  128— beginning  of 

:  BASIC  program  text 

!  end  of  the  text  for  BASIC  (substitute 

;  TXTTP  =  4624  for  the  128) 

.  UNPRT  =  S8E32  on  the  128 

\  .he  end  of  BASIC  (substtrate  TXTTP  for  the 
;  128) 


TXTTP+1  for  the  128) 


SUBENT 


COOC  8D  37  CO 
COll    8D  38  CO 


C014  20    21  CO 

C017  AE  39  CO 

C01A  AD  3A  CO 

C01D  20    CD  BD 

C020  60 


|SR 


SUBINT 

MINUS 


:  The  two  numbers  have  been  p 
,  subtract  the  second  number  from  the  £• 

•low  byte  of  the  result 


.■print  it 


C021  38 


C022 


C02B 
C02E 
C031 
C034 


AD  35  CO 

ED  37  CO 

8D  39  CO 

AD  36  CO 

ED  38  CO 

8D  3A  CO 
60 


SUBINT  SEC 
LDA 
SBC 
STA 


C035  00  00 
C037  00  00 
C039    00  00 


NUM1 
NUM2 
MINUS 


NUM1 
NUM2 
MINUS 
LDA  NUMI+1 
SBC  NUM2+1 
STA     MINUS +1 
RTS 

.BYTE  0,0 
.BYTE  0,0 
BYTE  0,0 


See  also  SUBBYT,  SUBFP. 


;  always  set  c 
;  low  byte  first 
.-  subtract 

;  and  store  the  result 

;  high  byte 

;  subtract  (don't  SEO 
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Name 

Save  processor  registers  in  memory 
Description 

At  times  you'll  face  a  situation  where  you'll  need  to  go  to  a 
subroutine  that  might  change  the  contents  of  the  processor 
registers  .A,  .X,  .Y,  and  .P — but  you  want  to  remember  the 
current  state  of  the  registers  when  the  subroutine  ends.  This 
routine  saves  the  registers  in  memory,  so  you  can  find  them 
again  when  you  return. 

Prototype  : 

1.  Push  .P  onto  the  stack  temporarily. 

2.  Store  .A,  .X,  and  .Y  in  memory. 

3.  Pull  .P  from  the  stack,  but  into  A  (PLA,  not  PLP). 

4.  Store  .A  into  memory. 

Explanation 

The  processor  status  register  contains  the  various  flags — zero, 
negative,  overflow,  carry,  and  so  on— and  the  flags  can 
change  very  quickly.  (A  single  LDA  will  often  change  several 
flags.)  Because  it's  so  fragile,  it  must  be  handled  first.  After  we 
have  pushed  it  temporarily  onto  the  stack,  the  rest  of  the  sub- 
routine is  fairly  simple.  Just  store  the  registers  into  memory: 
TEMPA,  TEMPX,  and  TEMPY.  Finally,  the  P  register  is  pulled 
off  the  stack  (into  the  accumulator  this  time),  and  it's  stashed 
in  TEMPP. 

Note:  This  routine  is  slower  and  takes  more  memory  than 
the  routine  that  saves  the  registers  onto  the  stack.  It  does  have 
one  advantage,  though:  This  one  can  exist  as  a  subroutine. 
You  can  JSR  SVREGM  before  calling  the  routine  that  changes 
the  registers.  The  other  routine  must  be  in-line  code.  If  you 
have  several  areas  where  the  registers  must  be  remembered, 
this  subroutine  will  save  memory  in  the  long  run.  On  the 
other  hand,  if  you  find  yourself  constantly  saving  and  restor- 
ing the  registers,  your  program  design  may  be  flawed;  this  sort 
of  routine  can  be  replaced  by  various  other  techniques. 

Routine 

C000  08  SVREGM  PHP 

C001  8D  OF    CO  STA  TEMPA 

C004  8E  10    CO  STX  TEMPX 

C007  8C  11    CO  STY  TEMPY 

C00A  68  PLA 

CO0B  8D  12    CO  STA  TEMPP 
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;  first  push  the  J  status  to  retrieve  later 
;  save  .A 
;  save  .X 
•  save  .Y 

;  get  .P  from  the  stack  (into  .A  this  time) 

i 


SVREGM 


COOE   60  RTS  ;  we're  done 


COOF  00  TEMPA  .BYTE  00 

CO10  00  TEMPX  .BYTE  00 

COll  00  TEMPY  .BYTE  00 

C012  00  TEMPP  .BYTE  00 
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Save  and  restore  registers  on  the  stack  within  a  routine  (in-line 


Occasionally,  you'll  have  a  situation  where  the  A,  X,  and  Y 
registers  hold  important  information,  but  you'll  need  to  call  a 
subroutine  that  may  leave  them  in  an  ^determinate  state.  The 
solution  is  to  save  them  as  you  enter  the  routine  and  then  re- 
store them  before  exiting.  The  fastest  way  to  store  registers  is 
to  push  them  onto  the  stack. 

Prototype 

1.  Push  .P  (processor  status)  onto  the  stack. 

2.  Push  .A  and  then  transfer  .X  and  .Y  to  .A  for  pushing. 

3.  Execute  the  routine. 

4.  Restore  the  registers  by  pulling  them  off  the  stack  (in 


The  processor  status  contains  the  various  flags  (.N,  .Z,  .C,  and 
so  forth)  and  can  change  with  a  single  LDA,  so  we  have  to 
1     r      'PHP).  Next,  we  have  to  save  the  accumulator,  be- 


cause it's  not  possible  to  push  .X  and  .Y  directly.  After  .P  and 
.A  have  been  saved,  .X  is  transferred  to  .A  (TXA)  and  pushed 
(PHA),  and  then  .Y  is  transferred  and  pushed. 

The  four  important  registers  are  now  on  the  stack.  The 
routine  at  $C006-$C01E  is  unimportant  (it  prints  the  letters 
A-Z),  but  it  does  mess  up  the  contents  of  all  registers.  So, 
when  it's  finished,  we  get  back  the  registers  by  pulling  the 
values  back.  Since  they  went  on  the  stack  in  the  order  .P,  .A, 
.X,  and  .Y,  it's  necessary  to  pull  them  off  in  the  reverse  order 
(.Y,  .X,  .A,  and  .P).  When  that's  done,  the  RTS  sends  us  back 
to  the  calling  routine. 

Warning:  You  must  do  the  pushing  and  pulling  within  the 
same  routine.  The  SVREGS  routine  cannot  be  used  as  a  sepa- 
rate subroutine  because  JSR  needs  the  stack  to  preserve  the 
program  counter.  If  you  were  to  use  SVREGS  as  a  subroutine, 
the  JSR  would  put  two  bytes  onto  the  stack;  then  SVREGS 
would  push  .P,  .A,  .X,  and  .Y  onto  the  stack.  The  RTS  would 
cause  two  bytes  to  be  pulled  off  (the  return  address),  but  they 
would  be  the  former  contents  of  .X  and  .Y,  and  the  program 
would  return  to  some  unknown  location. 
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In  general,  if  you  push  a  certain  number  of  bytes  onto  the 
1       1  -  a  subroutine,  you  must  pull  the  same  number  off 


cooo 


C000  08 

C001  48 

C002  8A 

C003  48 

C004  98 

C005  48 


CHROUT 
SVREGS 


PHP 

PHA 

TXA 
PHA 
TYA 
PHA 


C006 

A2  02 

LDX 

#2 

C008 

A9  41 

LDA 

*65 

C00A 

AO  OD 

0UTL0P 

LDY 

#13 

CQOC 

20    D2  FF 

HMLOOP 

]SR 

CHROUT 

C00F 

18 

CLC 

C010 

69  01 

ADC 

#1 

C012 

88 

DEY 

C013 

DO  F7 

BNE 

IN  LOOP 

C015 

48 

PHA 

C016 

A9  OD 

LDA 

#13 

C018 

20    D2  FF 

JSR 

CHROUT 

C01B 

68 

PLA 

C01C 

CA 

DEX 
BNE 

CO  ID 

DO  EB 

OUTLOP 

COIF  68 

C020  A8 

C021  68 

C022  AA 

C023  68 

C024  28 

C025  60 


PLA 
TAY 
PLA 
TAX 
PLA 
PLP 
RTS 


;  posh  the  processor  status,  which  is  most 
;  fragile 

;  push  the  accumulator,  because  we  need  it 
;  for  the  next  two  pushes 
;  .X  into  .A 
|  push  it 
;  .Y  into  .A 


:  .P.  .A.  .X,  and  Y  haw  been  pushed  onto 
:  the  stack 
;  in  that  order. 

:  now  a  dummy  routine,  just  to  change  the 


:  .A  is  changed 

:  Y  is  changed 

;  print  it 

;  .P  is  changed 

;  increase  the  accumulator 

:  count  down  13  to  1 

;  print  13  characters 

:  save  A  (a  save  within  a  save) 


,  — •  have  been 
,  Jianged,  so  we  restore  them  in 
:  reverse  order  (.Y.  .X,  .A.  .P). 
i  pull 

;  put  it  in  .Y 
;  pull 
;  into  X 


return,  with  all  registers  intact 


See  also  RSREGM,  SVREGM. 
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Name 

Memory  swap 

Description 

Whenever  you  need  to  swap  two  blocks  of  memory,  use  this 
routine.  On  the  128,  SWAPIT  can  even  exchange  memory 
from  one  bank  to  another. 

Prototype 

This  is  a  two-part  routine.  In  an  initialization  routine  (here, 
either  SWAPCO  or  SWAPSC): 

1.  Store  the  starting  address  of  the  lower  memory  block  to  be 
swapped  in  ZP  and  the  address  of  the  higher  memory  block 
in  ZP+2. 

2.  The  subroutine  ONELES,  called  from  SWAPCO  and 
SWAPSC,  insures  that  the  memory  block  pointed  to  by  ZP 
has  the  lower  address  of  the  two  blocks  to  be  swapped.  (If 
the  address  of  the  memory  block  in  ZP  is  higher,  a  second 
subroutine  called  FLIPZP  switches  the  addresses  in  ZP  and 
ZP+2.) 

In  SWAPIT  itself: 

1 .  Jump  to  the  subroutine  OVRLAP  to  determine  whether  the 
two  memory  blocks  overlap.  In  the  process,  store  the  num- 
ber of  bytes  to  be  swapped  in  a  counter  (COUNTR). 

2.  If  the  two  memory  blocks  overlap,  return  from  OVRLAP 
with  the  carry  flag  set  to  indicate  that  an  error  has  occurred. 

3.  Continue  with  SWAPIT  if  the  carry  is  dear  (meaning  there 
is  no  overlap).  Otherwise,  return  to  the  main  calling  pro- 
gram with  the  carry  set. 

4.  Load  a  byte  from  the  first  block.  Store  it  in  .X  temporarily 
while  a  byte  is  read  from  the  second  memory  block. 

5.  Store  the  byte  from  the  second  block  into  the  first.  Recall 
the  byte  in  .X  and  store  it  into  the  second  memory  block. 

6.  Repeat  steps  4  and  5  until  the  bytes  counter  (COUNTR) 
reaches  zero. 

7.  Clear  the  carry  flag  before  returning  from  SWAPIT. 
Explanation 

In  the  example  program,  blocks  of  memory  representing  the 
screen  are  exchanged — first  color  and  then  text  memory.  You 
could  use  a  routine  like  this  one  in  setting  up  a  help  screen. 
Whenever  the  user  pressed  a  certain  key,  the  help  screen 
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would  be  swapped  with  the  current  screen.  Later,  the  normal 
screen  would  be  reenabled. 

Enter  any  key  within  the  main  loop  (MAINLP)  of  this 
program,  and  the  corresponding  character  prints  to  the  screen. 
The  exceptions  are  the  Fl,  F7,  and  left-arrow  (*-)  key.  Left  ar- 
row exits  the  program,  while  Fl  and  F7  cause  screen  swaps.  Fl 
saves  the  current  screen  as  a  help  screen  (as  long  as  HELPFL  = 
0)  and  F7  retrieves  it.  Once  the  help  screen  is  displayed,  any 
key  you  press  restores  the  normal  text  screen. 

On  the  128,  since  the  function  keys  are  predefined  as 
BASIC  commands,  you'll  need  to  enter  the  following  line 

KEY1,CHR$<133):  KEY7,CHR$<136) 

A  number  of  subroutines  are  called  in  preparation  for 
SWAPIT.  The  first  one  (either  SWAPCO  or  SWAPSC,  depend- 
ing on  whether  you're  swapping  color  or  text  memory)  stores 
the  addresses  of  the  two  memory  blocks  to  swap  in  zero  page. 
Before  exiting  this  routine,  a  second  subroutine,  ONELES,  is 
accessed.  ONELES  (calling  the  subroutine  FLIPZP  if  it's 
needed)  insures  that  the  address  pointed  to  by  the  first  zero- 
page  pointer  (ZP)  is  lower  in  memory  than  that  in  the  second 
zero-page  pointer  (ZP+2). 

Once  the  pointers  are  created,  SWAPIT  is  called.  The  first 
thing  SWAPIT  does  is  check  for  overlap  between  the  two 
blocks  of  memory  that  are  going  to  be  swapped.  This  is  han- 
dled by  the  subroutine  OVRLAP. 

OVRLAP  initially  stores  the  number  of  bytes  you  want  to 
swap — previously  defined  as  NUMBER — in  a  two-byte  counter 
(COUNTR).  At  the  same  time,  it  adds  this  number  to  the  block 
that's  lower  in  memory  (in  ZP).  If  the  resulting  number  is 
higher  than  the  start  of  the  second  memory  block,  the  carry 
flag  is  set  to  indicate  overlap.  So,  upon  returning  to  SWAPIT, 
if  carry  is  set,  an  error  message  is  printed,  and  the  program 
terminates. 

If  there's  no  overlap,  SWAPIT  continues,  exchanging 
bytes  one  at  a  time  from  the  two  memory  blocks  until 
COUNTR  decrements  to  zero. 

On  the  128,  memory  can  be  swapped  from  bank  to  bank. 
Two  Kernal  routines  specific  to  the  128  are  required:  INDFET, 
in  place  of  the  LDA  (ZP),Y  at  $C095,  and  INDSTA,  for  the 
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STA  (ZP),Y  at  $C09A.  In  each  case,  you  must  substitute  either 
three  or  four  instructions.  Look  at  MVU128  or  MOVEDN  for 
details  on  how  to  set  this  up. 


Routine 


cooo 
cooo 
cooo 
cooo 
cooo 
cooo 


ZP 

CHROUT 

GETIN 

BLOCK1 

COLBL1 

BLOCK2 


COOO  A9  00 

C002  8D  21  CI 

C005  A9  93  CLRCHR 

C007  20  D2  FF 

COOA  20  E4    FF  MAINLP 

COOD  FO  FB 

COOF  C9  5F 

C011  FO  OD 

C013  C9  85 

C015  FO  OA 

C017  C9  88 

C019  FO  ID 

C01B  20  D2  FF 

COLE  DO  EA 

C020  60  EXIT 


C021    20    65    CO  SA\ 

C024    20    8D  CO 
C027    BO  2E 


79  CO 


C02C  20  8D  CO 

C02F  BO  26 

C031  A9  01 

C033  8D  21  CI 

C036  DO  CD 


AD  21  CI 


C03B  FO  CD 

C03D  20  4B  CO 

C04O  20  E4    FF  HELPLP 

C043  FO  FB 

C045  20  4B  CO 

C048  4C  OA  CO 


C04B  20  65  CO  SWAP2 
C04E   20   8D  CO 


251 
65490 
65508 
1024 


JSR 
BEQ 
JSR 
JMP 


#0 

HELPFL 

#147 

CHROUT 

GETIN 

MAINLP 

«95 

EXIT 

#133 

SAVEHS 

*136 

HELP 

CHROUT 

MAINLP 


LDA 

STA 

LDA 

JSR 

JSR 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

JSR 

BNE 

RTS 


JSR 

JSR 
BCS 


JSR  SWAPIT 

BCS  ERROR 

LDA  »1 

STA  HELPFL 

BNE  CLRCHR 


LDA  HELPFL 


BEQ  MAINLP 
JSR  SWAP2 
GETIN 
HELPLP 
SWAP2 
MAINLP 


:  memory  block  1 
r  block  1 

>!ock2 

f'l 

;  Save  the  current  screen  i 
.-  Fl.  Recall  it  on  F7. 
;  Quit  on  left-arrow  key. 
.-  initialize  HELPFL 


JSR  SWAPCO 
JSR  SWAPIT 


>  screen  on 


;  get  a  keypress 

;  If  no  keypress 

:  is  it  the  left-arrow  key? 

;  if  so,  leave  the  program 

:  is  it  Fl  ? 

;  if  so,  save  a  help  screen 
,-  is  it  F7? 

;  if  so,  recall  a  help  screen 
i  otherwise,  print  the  character 
j  branch  always 
;  exit  the  program 

; 

,  SAVEHS  saves  a  help  screen; 

;  set  zero-page  pointers  to  color  memory 

;  for  two  screens 

;  swap  color  memory  for  the  two  screens 
;  if  color  memory  overlaps,  print  error 


;  screens 

1  swap  text  for  the  two  sen 
j  if  screen  memory  ove  1 ' 
■  message  and  leave 
!  to  Indicate  help  screen  has  been  saved 

:  and  continue  by  clearing  screen 

■' 

;  HELP  recalls  a  help  screen. 

:  determine  whether  a  help  screen  has 

;  previously  been  saved 

;  no  help  screen  has  been  saved 

;  wait  for  keypress  to  swap  in  normal  screen 

;  if  no  keypress 

;  swap  in  the  normal  screen 

.  and  cemdnue 

:  Swap  primary  and  help  screens. 

i  set  zero-page  pointers  to  color  memory  for 

;  two  screens 

i  swap  color  memory  for  two  screens 
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C051  20  79  CO 
C054   4C  8D  CO 


C057  AO  00  ERROR 

C059  B9  04    CI  ERRLP 

C05C  FO  06 

C05E  20  D2  FF 

C061  C8 

C062  DO  F5 


EREXIT  RTS 


JSR  SWAPSC 

jmp  swAPrr 

LDY  *0 

LDA  ERRMSG.Y 

BEQ  EREXIT 

JSR  CHROUT 

INY 

BNE  ERRLP 


C065  A9  00 

C067  85  FB 

C069  AO  D8 

C06B  84  FC 

C06D  A9  18 

C06F  85  FD 

C071  AO  3C 

C073  84  FE 

C075  20  BC  CO 

C078  50 


SWAPCO     LDA  *<COLBLl 

STA  ZP 

LDY  #>COLBLl 

STY  ZP  +  1 

LDA  #<COLBL2 

STA  ZP+2 

LDY  *>COLBL2 

STY  ZP+3 


RTS 


C079  A9  00 

C07B  85  FB 

C07D  AO  04 

C07F  84  FC 

C081  A9  30 

C083  85  FD 

C085  AO  38 

C087  84  FE 

9  20  BC  CO 


SWAPSC      LDA  #<BLOCKl 

STA  ZP 

LDY  #>BLOCKl 

STY  ZP+1 

LDA  #<BlOCK2 


ZP+2 


+3 


LDY 
STY 
JSR 

RTS 


C08D   20    El    CO   SWAPIT      JSR  OVRLAP 


C090    90  01 
60 


C093  AO  00  INITSP 
C095    Bl    FB  SWAPIP 


BCG  INITSP 
RTS 


LDY  #0 
LDA  (ZP),Y 


TAX 
LDA 


:  5el  zero-page  pointers  to  text  for  two 
.  screens 

j  swap  text  for  two  screens  and  RTS 

;  Error  message  for  overlap  of  two  memory 

!  blocks. 

;  as  an  index 

;  prim  the  message  character  by  character 
i  exit  on  a  zero  byte 
;  print  a  character 
;  for  next  character 
;  branch  always 


;  SWAPCO  iniHali7.es  ZP  to  screen  1  color 
:  and  ZP+2  to  screen  2  color. 
;  store  low  and  high  bytes  of  screen  1  color 
:  toZP 


n  2  color  to 


;  make  sure  screen  at  ZP  is  lower  in  memory 
i  than  the  one  at  ZP-2 


;  SWAPSC  initializes  ZP  to  screen  1  text  and 
;  ZP+2  to  screen  2  text. 
:  store  low  and  high  bytes  of  screen  1  text 
;  to  ZP 


1  make  sure  screen  at  ZP  is  lower  in  memory 
;than  the  one  at  ZP  +  2 


;  SWAPIT  swaps  NUMBER  bytes  at  the 
;  addresses  pointed  to  by  ZP  and  ZP+2. 
;  check  for  overlapping  blocks  and  store 
;  number  in  COUNTR 
;  memory  blocks  don't  overlap,  to  continue 
;  memory  block*  overlap,  so  return  and 
;  print  error  message 

;  as  an  index  in  SWAFLP 

;  read  a  byte  from  first  block 

;  On  the  128.  use  INDFET  in  place  of  the 

i  previous  instruction 

;  to  swap  memory  from  bank  to  bank 

;  see  MVU128  and  MOVEDN  for  details 

;  store  It  in  X 

;  read  a  byte  from  second  block  (if  needed. 
;  use  INDFET  on  128) 
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C09A   91  FB 


C09C  8A 

C09D  91  FD 

C09F  E6  FB 

C0A1  DO  02 

C0A3  E6  FC 


INCBL2 


STA  (ZP),Y 


TXA 

STA  <ZP+2),Y 

tNC  ZP 

BNE  INCBU 

INC  ZP+1 

INC  ZP+2 


C0A9  E6  FE 

COAB  CE  ID  CI  LENCHK 

COAE  DO  E5 

COBO    CE  IE  a 

COB3    AD  IE  CI 

COBS   C9  FF 

C0B8    DO  DB 

COBA  18 
COBB  60 


INC  ZP+3 

DEC  COUNTR 

BNE  SWAPLP 

DEC  COUNTR+1 

LDA  COUNTR+1 


CMP 
BNE 

CLC 
RTS 


VAPLP 


;  store  byte  from  BLOCK2  into  BLOCK1 

;  On  the  128,  use  INDSTA  in  place  of  the 

;  previous  instruction 

;  to  swap  memory  from  bank  lo  bank 

;  see  MVU128  and  MOVEDN  for  details 

;  put  byte  from  BLOCK1  in  .A 

;  store  byte  from  BLOCK1  into  BLOCK:  (if 

;  needed.  INDSTA  on  128) 

;  increment  low  byte  of  BLOCK1  and 

;BU>CX2 

;  increment  BLOCK2  by  1 

;  increment  high  byte  of  BLOCK! 

;  Increment  low  byte  of  BLOCK2 

;  low  byte  has  yet  to  turn  over,  so  skip 

;  forward 

j  increment  high  byte  of  BIOCK2 

;  decrement  low  byte  of  counter 

;  if  not  equal,  more  remains,  so  continue 

;  swapping  bytes 

,-  otherwise,  decrement  high  byte  of  counter 
;  keep  swapping  until  last  page  of  buffer 
;  has  been  swapped 

i  high  byte  goes  from  0  to  255  on  last  page 
;  we've  yet  to  reach  the  last  page,  so 
;  continue  switching  bytes 


COBC  AS  FE 

COBE   C5  FC 

COCO   F0  03 

C0C2    90  08 

C0C4  60 

C0C5    A5  FD 

C0C7    C5  FB 

C0C9   90  01 

C0CB  60 


C0CC  A5  FB 
COCE  48 
C0CF  AS  FD 

C0D1   85  FB 
C0D3  68 
C0D4  85  FD 
C0D6  A5  FC 
C0D8  48 
C0D9  AS  FE 
C0DB  85  FC 
C0DD  68 
CODE  85  FE 
C0EO  60 


ONELES      LDA  ZP+3 

CMP  ZP+1 

BEQ  LOWCMP 

BCC  FLTPZP 

RTS 

LOWCMP    LDA  ZP+2 

CMP  ZP 

BCC  FLIPZP 

RTS 


FLIPZP       LDA  ZP 
PHA 

LDA  ZP+2 

STA  ZP 
PLA 

STA  ZP+2 

LDA  ZP+1 
PHA 

LDA  ZP+3 

STA  ZP+1 
PLA 


RT 


;  Make  address  pointed  to  by  ZP  less  than 

;  address  pointed  to  by  ZP+2. 

;  high  byte  of  screen  2  (text  or  color) 

;  compare  with  high  byte  of  screen  1  (text 

;  or  color) 

;  if  equal  compare  low  bytes 

;  screen  at  ZP  is  higher  in  memory,  so  flip 

;  them 

;  no  flip  necessary  based  on  high  bytes 
;  alone 

;  low  byte  of  screen  2  (text  or  color) 

:  compare  with  low  byte  of  screen  2  (text  or 

;  color) 

;  screen  at  ZP  is  higher,  so  flip  zero-page 

;  pointers 

;  no  flip  necessary 

;  Switch  ZP  pointers,  low  bytes  first. 

;  get  low  byte  for  first  screen  (text  or  color) 

;  store  it  on  the  stack 

;  get  low  byte  for  second  screen  (text  or 

;  color) 

;  store  as  low  byte  for  first  screen 
;  restore  low  byte  for  first  screen 
;  store  as  low  byte  for  second  screen 
;  now  do  the  same  for  the  high  bytes 


-  *nd  store  number  of  bytes 
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COEl    AD  IB 

a 

OVRLAP 

IDA 

NUMBER 

C0E4  8D 

ID  a 

STA 

COUNTR 

G0E7  18 

CLC 

C0E8  65 

FB 

ADC 

ZP 
SUM 

COEA  8D   IF  a 

STA 

COED  AA 

TAX 

COEE    AD  IC 

a 

LDA 

NUMBER +1 

COF]  8D 

IE 

a 

STA 

COUNTR +1 

C0F4  65 

FC 

ADC 

ZP+1 

C0F6  8D 

20 

Cl 

CTA 

SI  n 

SUM+1 

FE 

CMP 

ZP+3 

COFB  90 

06 

BCC 

NOTOVR 

COFD  8A 

TXA 

COFE  C5 

FD 

CMP 

ZP+2 

C100  90 

01 

BCC 

NOTOVR 

CI02  38 

SIC 

C103  60 

NOTOVR 

RTS 

C104  42 

4C  4F 

ERRMSG 

.ASC 

"BLOCK  1  AJs 

C11A  00 

.BYTE 

0 

CUB  E8 

03 

NUMBER 

.WORD  1000 

CUD  00 

00 

COUNTR 

.WORD0 

C11F  00 

00 

SUM 

.WORI 

50 

C121  00 

HELPFL 

.BYTE  0 

;  store  low  byte  of  number  of  bytes  to  swap 

;  add  this  to  the  low  byte  of  the  lower 
;  block 


;  and  store  low  byte  result  in 
;  save  low  byte  result  in  .X 
;  store  high  byte  also 


!  add  this  to  the  high  byte  of  lower  block 
;  and  again  store  high-byte  result 
:  compare  high-byte  result  with  high  byte 
;  of  second  block 

;  if  second-block  high  byte  is  greater, 
;  there's  no  overlap 

;  otherwise,  check  the  low  bytes;  get  low 
;  byte  of  addition  from  X 
;  compare  with  low  byte  of  second  block 
j  if  second-block  low  byte  is  greater,  there's 
;  no  overlap 

;  set  the  carry  flag  to  indicate  overlapping 
;  memory  blocks 


;  terminator  byte 
;  number  of  bytes  to  swap 
:  counter  for  the  remaining  number  of  bytes 
:  tos 

;  two  bytes  for  sum  of  BLOCK1  and 
screen  flag  (1  =  help  screen  in 


See  also  MOVEDN,  MVU128,  MVU64. 
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Name 


)  lowercase  and  vice  versa 


Description 

SWITCH  converts  the  character  value  in  the  accumulator  to 
lowercase  if  it  was  uppercase,  or  to  uppercase  if  it  was  lower- 
case. One  application  for  such  a  routine  is  in  a  word  orocessc 


Prototype 

1 .  Check  the  character  value  to  see  whether  it  lies  within  one 
of  the  three  valid  ranges  for  alphabetic  characters:  decimal 
193-218,  97-122,  or  65-90. 

2.  If  it  doesn't,  exit  the  routine,  leaving  .A  intact. 

3.  If  the  character  in  .A  is  within  one  of  the  three 
left  with  ASL,  moving  bit  7  into  the  carry  flag. 

4.  If  carry  is  clear,  the  character  is  either  in  the  range  97- 
or  65-90.  In  this  situation,  flip  bit  6,  changing  the  case. 
6  will  later  shift  right  to  become  bit  5.)  Otherwise,  go  to 
step  5  because  the  character  is  in  the  range  193-218. 

5.  Perform  an  LSR  and  then  end  the  routine  with  RTS. 

Explanation 

In  the  example  program,  a  character  is  fetched  from  the  key- 
board. If  it's  a  letter,  its  case  is  changed  with  the  subroutine 
SWITCH.  The  character  is  then  printed  and 


accepted.  To  exit  the  program,  press  RETURN. 

Once  it  has  been  established  that  the  accumulator  con- 
tains a  letter  between  A  and  Z,  SWITCH  uses  the  character's 
bit  pattern  to  carry  out  the  actual  case  switching.  Take  a  look 
at  the  bit  patterns  of  characters  within  the  t" 
before  and  after  case  ! 


Lowercase 
Uppercase  1 
Uppercase  2 


Range 

65-90 
97-122 
192-218 


Before: 

Bit  Pattern 

%010x  xxxx 
%0Ux  xxxx 
%\10x  xxxx 


After: 


Bit  Pattern 

%011x  xxxx 
%010x  xxxx 
%Q10x  xxxx 


Within  the  bit  pattern,  a  0  designates  bits  that  are  always 
off,  and  a  1,  bits  that  are  always  on.  An  x  represents  bits  that 
can  be  on  or  off. 

Converting  a  character  in  the  range  65-90  to  the  range 
97-122,  or  vice  versa,  requires  that  you  flip  bit  5.  To  go  from 
the  range  192-218  to  65-90,  turn  off  bit  7. 
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This  is  exactly  what  occurs  within  FLIPIT.  The  bits  of  the 
letter  character  are  shifted  one  position  to  the  left  with  ASL.  If 
the  carry  flag  is  set,  the  character  is  in  the  range  192-218.  At 
this  point,  it's  simply  a  matter  of  restoring  it  to  its  original  bit 
pattern,  but  with  bit  7  off.  This  is  accomplished  with  LSR, 
which  always  shifts  a  zero  into  bit  7. 

If  carry  is  clear,  the  character  must  be  in  the  range  65-90 
or  97-122.  In  this  case,  bit  6  is  flipped  (it  was  previously  bit 
5),  and  an  LSR  is  performed,  moving  bit  6  back  to  its  proper 
position. 

Note:  SWITCH  can  easily  be  modified  to  narrow  the 
range  of  characters  converted.  For  instance,  to  convert  only  a, 
b,  and  c  from  the  lowercase  set  to  uppercase,  change  RANGE2 
to 


RANGE2  .1 

Also,  notice  that  SWITCH  uses  the  Y  register.  If  you  ac- 
cess this  routine  from  within  a  loop  indexed  by  .Y,  be  sure  to 
save  this  rp<mft>r  to  a  temporary  location  first  and  restore  it 


cooo 
cooo 


CHROUT  = 

GETIN  — 

DSFTCM  = 

ESFTCM  = 


COOO  A9  0E 

C002  20  D2  FF 

C005  A9  08 

C007  20  D2  FF 

CO0A  20  E4    FF  WAH 

C00D  FO  FB 

COOF  20  IF  CO 

C012  20  D2  FF 

C015  C9  OD 

CQ17  DO  Fl 

C019  A9  09  QUIT 

C01B  20  D2  FF 

C01E  60 


LDA 

JSR 

LDA 

|SR 

ISR 

BEQ 

ISR 

)SR 


LDA 

JSR 

RTS 


65490 
65508 
8 


#14 

CHROUT 

#DSFTCM 

CHROUT 

GETIN 

WAIT 

SWITCH 

CHROUT 

#13 

WAn 


i  DSFTCM  =  11  on  the  128 
:  ESFTCM  =  12  on  the  128 

':  Switch  case  of  input,  quit  on  RETURN. 
;  set  for  lowercase  mode 

;  disable  SHIFT/Commodore  key 

i  gel  a  character 

:  if  no  character,  then  wait 

;  switch  case  of  input 

;  print  it 

;  is  it  RETURN? 

;  no,  so  get  another  character 

;  enable  SHIFT/Commodore  key 


COIF  AO  03 

C021  88 

C022  30  10 

C024  D9  35  CO 

C027  90  0B 

C029  D9  38  CO 

C02C  B0  F3 


IE  OA 


SWITCH      LDY  #3 

LOOP  DEY 

BM1  EXIT 

CMP  RANGE1,Y 

BCC  EXIT 

CMP  RANGE2.Y 

BCS  LOOP 


FLIPIT  ASL 


;  Switch  case  of  ASCII  character  in  .A. 

;  index  to  table 

;  Index  goes  2-1-0 

;  if  finished  checking  ranges 

;  character  is  less  than  RANGE1,  so  exit 

;  character  is  higher  than  RANGE:,  so  try 
;  next  range 

;  character  is  in  a  range,  shift  bit  7  into 
:  carry 
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C02F  BO  02 
C031  49  40 
4A 


BCS 


Fixrr 


Fixrr  l 

C034    60  EXIT  RTS 

C033  CI  61  41  RAN'GEl  .BYTE  193.97,65 
C038    DB  7B    5B    RANGE2      .BYTE  219.123,91 

See  also  CNVERT,  MIXLOW,  MIXUPP. 


;  character  is  >=128 
;  flip  bit  6 

;  restore  it  (bit  7  becomes  0,  so  193-218 
;  convert,  to  65-90) 


;  lower  delimiter  of  each  range 
;  upper  delimiter  -r  1  of  each  range 


TASCAS 


Name 

Convert  characters  from  true  ASCII  to  Commodore  ASCII 
Description 

When  you're  using  a  modem  to  telecommunicate,  the  charac- 
ters received  over  the  telephone  line  will  generally  be  true,  or 
standard,  ASCII.  Commodore  computers  use  a  slightly  dif- 
ferent character  code  standard  called  Commodore  ASCII.  So, 
any  terminal  program  you  write  on  the  64  or  128  should  in- 
clude a  routine  like  TASCAS  for  converting  character  codes 
from  true  ASCII  to  Commodore  ASCII.  Often  it  will  be  nec- 
essary to  perform  this  character  conversion  from  within  a  loop 
indexed  by  either  the  X  or  Y  register.  Because  of  this, 
TASCAS  was  designed  to  leave  both  these  registers  untouched. 
Prototype 

1.  AND  the  character  code  value  in  A  with  127  to  insure  that 
it's  in  the  range  0-127. 

2.  Check  the  value  to  see  whether  it  lies  within  true  ASCII 
uppercase  range  (65-90). 

3.  If  it's  less  than  65,  then  RTS,  leaving  A  intact. 

4.  If  the  value  in  A  is  within  the  range  65-90,  go  to  step  7. 

5.  Otherwise,  check  the  character  value  to  see  whether  it  falls 
within  true  ASCII  lowercase  range  (97-122). 

6.  If  it's  more  or  less  than  the  range,  then  RTS,  again  leaving 
A  intact. 

7.  Flip  bit  5  and  RTS. 

Explanation 

In  the  example  program,  individual  bytes  representing  true 
ASCII  characters  are  fetched  from  BUFFER  and  are  then 
printed;  the  conversion  is  done  with  TASCAS,  and  the  result- 
ing Commodore  ASCII  value  is  printed.  This  process  continues 
until  a  zero  byte  is  read  in. 

TASCAS  takes  a  true  ASCII  value  in  A  and  returns  an 
equivalent  Commodore  ASCII  value  (also  in  A). 

Conversion  from  true  ASCII  to  Commodore  ASCII  by  the 
routine  is  a  fairly  simple  matter  because  of  the  similarities 
among  the  two  character  sets.  True  ASCII  values  he  in  a  range 
0-127.  None  of  the  graphics  characters  present  in  the  upper 
half  of  the  Commodore  set  are  available  in  true  ASCII. 

Both  sets  are  identical  in  the  range  0-127,  except  for  one 
thing:  Uppercase  and  lowercase  letters  are  reversed.  This  dif- 
ference is  easily  handled  within  TASCAS  by  flipping  bit  5  of 
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the  character  value  using  the  EOR  command.  If  you  EOR 
the  number  32,  you  effectively  add  (or  subtract)  32,  depending 
on  whether  bit  5  is  clear  or  set. 


Routine 

cooo 
cooo 


CHROUT 
LINPRT 


COOO  AO  00 

CO02  B9  45    CO  LOOP 

COOS  F0  22 

C007  8D  4D  CO 

COOA  8C  4E  CO 

C00D  20  2A  CO 

C010  A9  20 

C012  20  D2  FF 

C015  AD  4D  CO 

C018  20  30  CO 

C01B  20  2A  CO 

C01E  A9  OD 

C020  20  D2  FF 

C023  AC  4E  CO 

C026  C8 

C027  DO  D9 

C029  60  QUTT 

C02A  AA  NUMC 

C02B  A9  00 

C02D  4C  CD  BD 


C030  29  7F 

C032  C9  41 

C034  90  OE 

C036  C9  SB 

C038  90  08 


C03A  C9  61 

C03C  90  06 

C03E  C9  7B 

C040  BO  02 


C042  49  20 
C044  60 


C045    42  5F 
C04D  00 
C04E  00 
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FLirrr 

EXIT 


BUFFER 
TEMPA 
TEMPY 


LDY 

»0 

BUFFER. Y 

m 

or  ITT 

CTA 
3  In 

TCUpA 

i  civirrt 

Oil 

THMPV 

LDA 

*32 

CHROI  IT 

LDA 

JSR 

JSR 

NUMOUT 

LDA 

«13 

)SR 

CHROUT 

LDY 

TEMPY 

INY 

BNE 

RTS 

LOOP 

TAX 

LDA 

#0 

IMP 

LINPRT 

AND 

#127 

CMP 

#65 

BCC 

EXIT 

CMP 

#91 

BCC 

FLIPIT 

CMP 

#97 

BCC 

CMP 
BCS 

#123 

EOR 

#32 

RTS 


;  LINPRT  =  36402  on  the  128 

*  .  .  - 

j  Get  a  number  representing  a  true  ASCII 
;  character  from  buffer,  and  print 
;  the  number.  Convert  the  character  to 
its  value. 


;  save  .A 

;  save  .Y  (since  LINPRT  corrupts  ,Y) 
;  print  the  true  ASCII  value 


;  restore  .A 
;  convert  .A  from  true 
;  ASCII 

;  print  the  Commodore 
;  print  RETURN 


;  restore  .Y 

j  for  next  value 

;  and  gel  another  character 


:  low  byte  of  true  ASCII  value  (see 
:  NUMOUT) 
;  high  byte 

"  e  ASCII  value 


Commodore 


.  Convert  true  ASCII  in  .A  to  Commodore 

;  ASCII  in  A. 

;  value  must  be  0-127 

:  is  it  less  than  uppercase  A? 

;  yes,  so  leave  as  is 

;  is  it  greater  than  uppercase  Z? 

;  no,  so  in  range  65-90,  switch  to  lowercase. 

;  Otherwise,  character  is  in  range  91-127. 

;  First  check  for  lowercase. 

,-  is  it  less  than  lowercase  a? 

;  yes,  so  leave  it  as  is 

;  is  it  greater  than  lowercase  z? 

;  yes,  so  leave  as  is 

;  Character  is  in  lowercase  range  97-122,  bo 
;  switch  it  to  uppercase. 
;  change  uppercase  to  lowercase  or  vice 
;  versa 


;  Buffer  of  true  A 
.BYTE  66.95,96,33.97.122.90.0 
.BYTE0  ,  .A  storage 
.BYTE0  ;  .Y  storage 


See  also  CASSCR,  CASTAS,  CNVERT,  SCRCAS. 
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Name 

Time-of-day  (TOD)  clock  1  delay 
Description 

This  timer  routine  is  based  on  the  first  time-of-day  (TOD) 
clock.  TOD1DL  causes  delays  within  the  full  range  of  this 
clock,  from  1/10  second  up  to  24  hours. 

Prototype 

1.  Before  entering  this  routine,  define  the  delay  time  in  BCD 
(binary-coded  decimal)  format  as  DELAYT  in  the  variables 
at  the  end  of  the  program. 

2.  Using  TOD1ST,  set  TOD  clock  1  to  zero  (00:00:00.0  a.m.). 

3.  Compare  the  TOD  clock  1  reading  with  the  delay  specified. 
Begin  with  the  hours  byte,  to  stop  the  clock  from  updating, 
and  work  down  through  the  tenths-of-seconds  byte. 

4.  If,  before  comparing  the  entire  reading,  a  byte  in  the  clock 
reading  is  lower  than  the  corresponding  byte  in  the  delay 
time,  read  the  tenths-of-seconds  place  to  restart  the  clock 
and  jump  to  step  3. 

5.  When  a  byte  from  the  TOD  clock  reading  exceeds  the 
respective  delay-time  byte,  return  from  the  routine. 

Explanation 

The  example  program  demonstrates  how  this  routine  might  be 
incorporated  into  your  own  programs.  It  prints  a  message  to 
the  screen  and  allows  the  user  12  seconds  to  read  it — as  timed 
by  TOD1DL— before  clearing  the  screen. 

One  way  to  achieve  the  specified  delay  here  would  be  to 
add  the  delay  time  to  the  current  clock  time  and  then  wait  for 
the  clock  to  reach  this  total.  But  since  the  TOD  clock  keeps 
time  in  BCD  format,  and  digits  within  the  clock  turn  over  on 
different  values,  this  approach  would  become  quite  involved. 
BCD  arithmetic  counts  from  0  through  99,  while  clocks  count 
from  00  through  59,  except  the  hours  (01-12).  For  example, 
adding  three  minutes  to  3:58  should  result  in  4:01,  not  3:61. 

An  easier  way  to  go  about  this  is  to  start  the  clock  at  mid- 
night and  then  directly  compare  the  delay  time  with  the  cur- 
rent TOD  time.  This  is  the  method  used  here. 

At  the  outset  of  TOD1DL,  each  byte  within  TOD  clock  1 
is  set  to  zero,  beginning  with  the  hours  byte.  Because  of  its 
latching  mechanism,  the  clock  doesn't  actually  start  updating 
until  you  write  to  the  tenths-of-seconds  byte  (see  TOD2ST). 

Once  all  bytes  within  the  clock  are  set  to  zero,  a  byte-by- 
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byte  comparison  loop  is  undertaken.  The  routine  concludes 
when  the  clock,  time  exceeds  the  delay  time. 

The  delay  time,  DELAYT,  is  formatted  exactly  like 
TIMSET.  This  allows  you  to  cause  delays  of  up  to  24  hours,  al- 
though we're  not  sure  why  you'd  ever  need  such  a  long  delay. 
But  if  you  do  a  delay  longer  than  1 1  hours,  59  minutes,  set  the 
high  bit  in  the  hours  place  when  you  define  DELAYT,  just  as 
you  would  if  you  were  setting  a  TOD  clock  (again,  see 
TOD2ST  for  details). 

Note:  Although  based  on  the  first  TOD  clock,  the  routine 
could  be  modified  with  little  effort  to  use  the  second  TOD 
clock.  Just  replace  TODTN1  with  TODTN2,  and  TOD1ST  with 
TOD2ST,  throughout  the  routine. 


Routine 

cooo 
cooo 


TODTNl 
TODTN2 


COOO 

CHROUT 

= 

65490 

cooo 

AO  00 

LDY 

*0 

C002 

B9  4D 

CO  PRTLOP 

LDA 

MESSAQY 

coos 

F0  06 

BEQ 

I 

PRTEND 

C007    20    D2  FF 

CHROUT 

C00A 

C8 

C0OB 

DO  F5 

CO  PRTEND 

BME 

PRTLOP 

C00D 

20  13 

)SR 

TOD1DL 

C010 

4C  31 

CO 

IMP 

CLRCHR 

C013 

20    36    CO  TOD1DL 

JSR 

TOD1ST 

COW 

AO  00 

COMPAR 

LDY 

#0 

C018 

A2  03 

LDX 

#3 

C01A 

BD  08 

DC  CMPLOP 

LDA 

TODTNl,X 

C01D 

D9  49 
F0  08 

CO 

CMP 

DELAYT.Y 

C020 

BEQ 

C022 

B0  0C 

BCS 

C024 

AD  08 

DC 

LDA 

TODTNl 

C027 

4C  16 

CO 

JMP 

COMPAR 

C02A 
C02B 

C8 
CA 

NEXTPL 

INY 
DEX 

C02C 

10  EC 

CMPLOP 

C02E 

30  E6 
60 

COM 

FINIS 

;  time-of-day  clock  1- 
;  register 

i  time-of-day  clock 
;  register 


.:  Allow  12  seconds  to  read  a  i 
;  TOD  clock  1  delay. 
;  first  print  a  message 
;  get  a  character  from  the  message  string 
;  quit  printing  on  a  zero  byte 
■  1  ' 


;  branch  always 
I  cause  a  TOD  clock  delay 
;  clear  the  screen  and  RTS 

;  Set  up  a  TOD  clock  1  delay. 

;  set  TOD  clock  1  to  all  zeros 

;  Now  wait  for  current  reading  to  agree 

;  with  DELAYT. 

;  as  an  index  for  DELAYT 

;  as  an  index  for  hrs.,  mins.,  9ecs„  tenths  in 

;  TOD  clock 

;  read  TOD  dock  1— hrs.,  mins.,  sees., 
;  tenths 

;  compare  with  delay 

;  If  equal,  check  the  next  byte 

;  if  TOD  byte  is  greater,  time's  expired,  so 

;  return 

;  read  tenths  place  to  update  clock 

;  if  DELAYT  is  greater,  carry  is  clear,  so 

;  continue  comparing 

;  for  next  DELAYT  position 

;  for  next  clock  position  (mins.,  sees., 


;  do  all  four  bytes 

;  do  it  all  again  if  time 

;  we're  finished 
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C031    A9  93  CLRCHR     IDA  #147 

C033    4C   D2  FF  JMP  CHROUT 


C036  AO  00          TOD1ST  LDY 

C038  A2  03  LDX 

C03A  B9  45    CO  SETLOP       I  DA 

C03D  9D  08    DC  STA 

C040  C8  INY 

C041  CA  DEX 

C042  10  F6  BPL 

C044  60  RTS 


#0 
#3 

TIMSET,Y 
TODTN1.X 


SETLOP 


;  Hme-s  up,  so  clear  the  screen 
;  and  RTS 

;  Set  TOD  clock  1  (or  2). 

;  Replace  TODTN1  with  TODTN2  to  set 

;  TOD  clock  2. 

;  as  an  index  in  TIMSET 

;  as  an  index  for  hrs,  mins.,  sees.,  tenths  in 

; TODTN1 

;  read  in  the  time  to  set 

;  store  to  clock— hrs.  first 

;  for  next  byte  in  TIMSET 

;  for  next  clock  byte  (mins.,  sees.,  tenths) 

;  set  all  four  bytes  in  clock 


C045    00    00    00    TIMSET       .BYTE  0.0,0,0 


C049    00    00    12  DELAYT 
C04D  93    59    4F  M 
C06F  00 


;  hrs..  rnins.,  sees.,  tenths  to  set  clock 
;  (00.00.00.0  a.m.) 
.BYTE  $0,$0,$12.$0     ;  delay  in  BCD  hrs.,  mins..  sees.,  and  tenths 
•'{CLRIYOU  HAVE  12  SECONDS  TO  READ  THIS." 
0  ;  string  terminator 


See  also  ALARM2,  INTCLK,  TOD1RD,  TODS 
BYT2DL,  INTDEL,  JIFDEL,  KEYDEL. 
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Name 

Read  a  time-of-day  (TOD)  clock 

This  routine  allows  you  to  read  either  time-of-day  clock.  It's 
currently  set  up  to  read  the  first  TOD  clock,  the  one  in  CIA  1. 
But  by  substituting  TODTN2  for  TODTN1  in  the  routine,  the 
second  TOD  clock  (in  CIA  2)  can  be  read.  In  such  instances, 
TOD2RD  would  be  a  more  appropriate  name  for  the  routine. 

Prototype 

1.  Set  the  Y  register,  which  serves  as  an  index  into  the  buffer 
holding  the  current  clock  reading  (BUFFER),  to  0.  The  X 
register  should  be  initialized  to  3  so  that  the  hours  place  is 
read  first. 

2.  In  RDLOOP,  read  each  byte — either  hours,  minutes,  sec- 
onds, or  tenths  of  seconds — from  one  of  the  TOD  clocks 
and  store  it  into  BUFFER. 

Explanation 

The  TOD  clocks  have  a  latching  function  which  prevents  them 
from  updating  anytime  you  read  or  write  to  them,  provided 
you  begin  with  the  hours  place  and  end  with  the  tenths-of- 
seconds  place.  This  mechanism  is  described  more  thoroughly 
under  entry  TOD2ST,  where  a  TOD  clock  is  set  to  a  specified 
time. 

At  any  rate,  the  important  point  for  this  routine  is  that 
you  must  read  the  TOD  clock  from  the  hours  place  to  the 
tenths-of-seconds  place.  Reading  the  hours  place  first  stops  the 
dock  from  updating.  Only  when  you  read  (or  write  to)  the 
tenths-of-seconds  place  will  the  clock  continue  updating. 

The  time  read  in  from  a  TOD  clock,  whether  it's  clock  1 
or  2,  is  in  a  binary-coded  decimal  format.  This  reading  is 
stored  here  in  BUFFER  as  a  four-byte  number,  just  as  it  ap- 
pears in  the  clock.  Each  half-byte,  or  hexadecimal  digit,  ac- 
tually represents  a  decimal  digit  in  the  clock  reading. 

For  example,  if  the  dock  reading  in  BUFFER  were 
$91,$49,$32,$04,  the  time  would  be  11:49:32.4  p.m.  (The  high 
bit  in  the  hours  byte  serves  as  an  a.m./p.m.  flag.) 
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Routine 

C000  TODTNl 


cooo 

C002 
C0O4 

C007 
COOA 
COOB 


AO  00 
A2  03 
BD  08 


TOD1RD 


56328 
56584 


#0 


LDY 
LDX 

DC  RDLOOP     LDA  TODTNl.X 


99 
C8 
CA 


OF  CO 


BUFFER.Y 


DEX 


s Ft 


BPL  RDLOOP 
RTS 


COOF    00    00    00    BUFFER       .BYTE  0.0,0,0 


;  time-ol-day  clock  1 — tenths-of-seconds 
:  register 

.-  time-of-day  clock  2 — tenths-of-seconds 


;  Read  TOD  clock  1  (or  2)  and  store  the 
;  reading  to  a  memory  buffer. 
;  Replace  TODTNl  with  TODTN2  to  read  in 
I  TOD  clock  2. 

;  as  an  index  for  buffer  position 
j  as  an  index  for  hrs.,  mins.,  sees*  tenths 
;  read  the  TOD  clock-hrs.,  mins.,  sees., 
; tenths 

,-  store  to  buffer 

;  for  next  buffer  position 

j  for  next  clock  position  (mins.,  sees., 

;  tenths) 

;  read  four  bytes 


j  Storage  for  clock  reading.  Stored  in  BCD 
;  format  as 

;  hrs..  mins.,  sees.,  and  tej 


TOD1DL,  TOD2PR,  TOD2ST. 
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Name 

Print  the  time-of-day  (TOD)  time 
Description 

TOD2PR  prints  the  current  reading  for  time-of-day  clock  2  in 
the  upper  left  corner  of  the  screen.  As  with  the  other  TOD 
clock  routines  presented  in  the  book,  the  remaining  TOD  clock 
can  be  used  instead.  In  this  case,  simply  replace  TODTN2  in 
the  routine  with  TODTN1.  If  you  like,  you  can  also  change  the 
name  of  the  routine  to  TOD1PR  to  indicate  that  TOD  clock  1 
is  being  printed. 

Prototype 

1.  Set  the  Y  register,  which  serves  to  index  the  screen  po- 
sition, to  zero.  The  X  register  is  initialized  to  3  so  that  the 
hours  byte  is  read  first. 

2.  In  PRTLOP,  read  a  byte— either  hours,  minutes,  seconds,  or 
tenths  of  seconds — from  one  of  the  two  TOD  clocks. 

3.  Shift  the  high  nybble  of  this  byte  into  its  low  nybble,  con- 
vert this  to  a  numeric  screen  code,  and  store  it  in  screen 
memory. 

4.  Mask  out  the  high  nybble  of  the  byte  taken  in  Step  2.  Con- 
vert the  remaining  low  nybble  to  a  screen  code  and  store  it 
to  the  screen. 

5.  For  the  tenths-of-seconds  byte,  only  the  low  nybble  is 
displayed. 

6.  After  each  half-byte  from  the  TOD  clock  has  been  po- 
sitioned on  the  screen  in  Steps  3,  4,  and  5,  store  the  screen 
code  for  a  colon  (or  for  a  decimal  following  the  seconds 
place). 

7.  When  PRTLOP  finishes,  skip  a  space  on  the  screen  and 
store  either  the  screen  code  for  P  (representing  p.m.)  or  A 
(for  a.m.)  in  screen  memory  depending  on  the  setting  of  bit 
7  of  the  hours  byte.  Then  return  from  the  routine. 

Explanation 

The  program  below  clears  the  screen,  then  jumps  to  TOD2PR 
to  display  the  current  time  setting  in  the  second  TOD  clock. 

Each  TOD  clock,  whether  it's  clock  1  or  2,  ceases  to  up- 
date as  soon  as  the  hours  byte  is  read  (or  written  to).  It  contin- 
ues updating  only  when  the  tenths-of-seconds  byte  is 
accessed.  (See  TOD2ST  for  details  on  this  latching  function.) 
For  this  reason,  you  should  always  read  these  clocks  from  the 
hours  place  down,  as  we've  done  here. 


TOD2PR 


atively  easy.  In  TOD2PR,  bytes  from  TOD  clock  2's  registers 
are  separated  into  half-bytes,  which  are  in  turn  converted  to 
screen  codes  and  displayed. 

To  make  the  display  more  readable,  a  colon  is  placed  be- 
tween the  digit  pairs  representing  the  hours,  minutes,  and  sec- 
onds place.  A  decimal  point  follows  the  seconds  place.  After 
all  digits  from  the  TOD  readout  are  displayed  on  the  screen, 
either  A  or  P  (for  a.m.  or  p.m.)  is  printed. 


TODTN2 
TODTN1 


56328 


A9  93  CLRCHR 
20    D2  FF 
4C   08  CO 


C008  AO  00  TOD2PR 
COOA   A2  03 


1024 


m 

TOD2PR 


LDY  #0 
LDX  #3 


COOC    BD  08    DD  PRTLOP      LDA  TODTN2.X 


C00F  E0  00 

C011  FO  10 

C013  48 

C014  29  70 

C016  4A 

C017  4A 

C018  4A 

C019  4A 

C01A  09  30 

C01C  99  00 


04 


C021  29  OF 

C023  09  30  LOWNIB 

C025  99  00  04 

C028  C8 

C029  E0  01 

C02B  10  04 

C02D  90  OF 

C02F  DO  07 

C031  A9  2E  POINT 

C033  99  00  04 

C036  DO  0$ 


CPX  #0 

BEQ  LOWNIB 
PHA 

AND  #%01110000 

LSR 

LSR 

LSR 

LSR 

ORA  #«REENy 

STA  SCREENS 

PLA 

AND  #$0F 

ORA  #48 

STA  SCREEN.  Y 
INY 

CPX  #1 

BEQ  POINT 

BCC  NEXTPL 

BNE  COLON 

LDA  #46 

STA  SCREENS 


:  time-of-day  clock  2— tenths-of-seconds 
;  register 

:  time-of-day  clock  1- 
;  register 

:  first  text-screen  position 


Clear  the 
2  (or  1). 

Replace  TODTN2  with  TODTN1  to 
:  and  print  TOD  clock  1. 


:  print  TOD  dock  2  and  RTS 

;  Read  and  print  TOD  clock  2. 

;  initialize  index  to  screen  position 

;  Initialize  Index  tor  hrs.,  miris.,  sees.,  and 

;  tenths 

;  read  the  TOD  clock— hrs.,  min.,  sec, 
; tenths 

;  skip  tenths  high  nybble 

;  store  it  temporarily 

;  mask  out  low  nybble  and  bit  7 

■  shift  high  nybble  Into  low  nybble 


;  effectively  add  48  to  put  in  numeric  range 
,-  POKE  it  to  the  screen 
;  next  screen  position 
;  restore  the  byte  and  ; 
;  low  nybble 
;  mask  out  I 
;  add  48 

;  POKE  low  nybble-s  digit  to  the  screen 
;  next  screen  position 
;  we  want  to  put  a  decimal  between 
;  seconds  and  tenths 
;  POKE  a  decimal  point 
;  don't  print  the  last  colon 
;  we're  not  between  seconds  and  tenths 
.-  screen  code  for  decimal  point 
;  POKE  a  decimal  point 
;  branch  1 
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COM    A9  3A  COLON       LDA  #58 


;  POKE  a  colon  between  hrs.,  mine.,  and 


C03A  99    00  04 

C03D  CS  CONTLP 

C03E  CA  NEXTPL 

C03F  10  CB 

C041  C8 

C042  AD  OB  DD 

C045  30  06 

C047  A9  01 

C049  99    00    04  PRAMPM 

C04C  60 

C04D  A9  10  PMFLAG 

C04F  DO  F8 


SCREEN,? 


PRTLOP 

TODTN2+3 

PMFLAG 

#1 

SCREEN.Y 
#16 

PRAMPM 


;  next  screen  position 

;  for  next  dock  position  (mln.,  sec, 

;  read  and  print  four  bytes 

;  skip  a  space 

;  gel  the  hours  byle 

;  bit  7  is  set  indicating  p.m. 

;  screen  code  for  A  (a.m.) 

;  POKE  a.m./p.m.  flag  to  screen 

;  screen  code  for  P  (p.m.) 
;  print  it 


See  also  ALARM2,  INTCLK,  TOD1DL,  TOD1RD,  TOD2ST. 
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Name 

Set  a  time-of-day  (TOD)  clock 
Description 

Each  of  the  two  CIA  (complex  interface  adapter)  chips  in  the 
64  and  128  has  a  built-in  time-of-day  (TOD)  clock.  Unlike  the 
jiffy  clock,  which  is  maintained  via  software  (the  IRQ  interrupt 
service  routine),  the  TOD  clocks  are  updated  automatically  by 
CIA  hardware.  The  TOD  clocks  aren't  used  at  all  by  the 
operating  system,  and  neither  the  64  or  128  provide  any  facil- 
ities in  ROM  for  reading  or  setting  the  TOD  clocks. 

With  this  routine,  you  can  set  either  time-of-day  clock.  As 
it's  currently  written,  the  routine  sets  the  second  TOD  clock 
(the  clock  in  CIA  #2).  But  you  can  just  as  easily  have  it  set  the 
clock  in  CIA  #1  by  replacing  TODTN2  with  TODTN1  within 
the  routine.  In  fact,  this  has  been  done  elsewhere  in  the  book. 
See  entries  INTCLK  and  TOD1DL.  In  those  instances,  this 
routine  is  referred  to  as  TOD1ST. 

Prototype 

1.  Initialize  .Y  to  0  and  .X  to  3.  (The  Y  register  indexes  the 
buffer  containing  the  actual  time  to  be  set,  or  TIMSET,  at 
the  end  of  the  routine.  The  offset  into  the  TOD  clock  is  .X.) 

2.  In  a  loop,  read  the  four  bytes  containing  the  time  setting 
and  store  them  to  a  TOD  clock. 

Explanation 

When  you  set  either  TOD  clock,  you  must  begin  with  the 
hours  place.  This  is  because  the  TOD  clocks  have  a  built-in 
latching  function.  Each  clock  stops  updating  as  soon  as  you 
read  or  write  to  the  hours  place  and  doesn't  start  again  until 
you  write  to  the  tenths-of-seconds  place.  (The  internal  reg- 
isters for  either  clock,  where  the  actual  time  is  kept,  are  main- 
tained during  this  process.)  This  approach  prevents  the  TOD 
clock  from  advancing  while  you're  in  the  middle  of  reading  or 
setting  it. 

The  TOD  clocks  keep  time  in  a  binary-coded  decimal  for- 
mat. Each  hexadecimal  digit,  or  half  byte,  in  the  clocks'  reg- 
isters is  interpreted  as  a  decimal  digit.  So,  the  example  time 
listed  in  TIMSET  as  $06,$59,$59,$0  is  59  minutes  and  59  sec- 
onds after  six  o'clock.  In  this  case,  the  time  is  a.m.  The  high 
bit  in  the  hours  byte  serves  as  an  a.m. /p.m.  flag.  To  set  the 
clock  to  a  p.m.  time,  simply  add  $80  to  the  hours  byte. 

In  this  routine,  writing  to  the  TOD  registers  sets  the  cur- 
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rent  time.  But  these  registers  can  also  be  used  to  store  an 
alarm  time  if  the  TOD  clock  is  used  as  an  alarm  clock.  Bit  7  of 
CIA  control  register  B  is  the  key  (CI2CRB  at  56591  for  TOD 
clock  2  or  CIACRB  at  56335  for  TOD  clock  1).  Normally,  this 
bit  is  zero.  But,  if  you  set  it  to  one,  the  time  assigned  to  the 
TOD  registers  is  taken  as  an  alarm  time.  Routine  ALARM2 
demonstrates  this  technique. 

Note:  The  TOD  clocks  have  a  bug  in  the  a.m. /p.m.  func- 
tion. The  normal  way  to  count  time  is  to  consider  noon  to  be 
12:00  p.m.  and  midnight  to  be  12:00  a.m.  Thus,  the  p.m.  hours 
count  from  12  to  1  to  2  to  3,  and  so  on,  up  to  11.  But  the  CIA 
chip  counts  p.m.  hours  from  1  to  12  (which  seems  more  logi- 
cal, although  it's  not  how  things  are  done  in  the  real  world). 

If  you  set  the  TOD  hours  byte  to  12,  on  the  next  hour,  the 
a.m./p.m.  flag  bit  will  reverse  state.  For  example,  if  you  set 
the  clock  to  noon  (12:00  p.m.),  it  will  read  1:00  a.m.  when  the 
clock  reaches  1:00  in  the  afternoon  (1:00  p.m.). 

You  can  get  around  this  problem,  though.  If  the  hours 
place  is  to  be  set  to  12,  just  flip  the  a.m./p.m.  flag  bit  before 
setting  the  clock.  So,  12:15:16.0  a.m.  would  be  entered  in 
TIMSET  as  .BYTE  $82,$15,$16,$0. 


cooo 


TODTN2      — - 


COOO 

TODT.N1 

56328 

COOO    AO  00 
C002    A2  03 

TOD2ST 

LDY 
LDX 

#0 
#3 

COW    B9   OF  CO 
COOT    9D  08  DD 
COOA  C8 
C00B  CA 

SETIOP 

LDA 
STA 
INY 
DEX 

TIMSET,Y 
TODTN2.X 

C00C    10  F« 

BPL 
RTS 

SETLOP 

06    59  59 


.BYTE 


;  time-of-day  dock  2 — tenths-of-seconds 
;  register 

if-day  dock  1— tenths-of-seconds 


:  Set  TOD  dock  2  (or 
;  Replace  TODTN2  with  TODTN1  to  set  TOD 
;  dock  1. 

;  as  an  index  in  TIMSET 

;  as  an  index  for  hrs..  mins.,  sees.,  tenths  of 

;  sees.  In  TODTN2 

;  read  in  the  time  to  set 

;  store  to  dock— hra.  Hrst 

;  for  next  TIMSET  byte 

;  for  next  dock  byte  tmin.,  sec,  tenths  of 

;  sees.) 

;set  all  four  bytes  of  dock 


;  nr.,  min.,  sec.  tenths  to  set  dock 
;  (06.59.59.0  a.m.) 

;  For  p.m.,  add  in  $80  to  hour  setting. 
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Set  the  text  color  using  CHR$ 
Description 

TXTCCH  outputs  the  appropriate  ASCII  color  value  with 
CHROUT.  This  approach  is  often  more  convenient  than  stor- 
ing a  color  value  in  the  text  color  register.  Text  colors  can  eas- 
ily be  switched  from  within  an  ASCII  string  definition,  as  the 
example  illustrates. 

Prototype 

1.  Set  up  a  string  containing  certain  ASCII  color  codes  at  the 
end  of  your  program. 

2.  JSR  to  a  string  printing  routine  and  RTS  (or  simply  JMP  to 
it). 

Explanation 

Each  character  of  the 
color  using  STRCPT. 

Routine 


251 


C000    20    04    CO  TXTCCH 

C003  60 


C004    A9  IE  STRCPT 

C006   85  FB 

C008    A9  CO 

COOA  85  FC 

C00C  AO  00 

COOE    Bl  FB  STRLOP 

C010    F0  OB 

C012    20  D2  FF 
C015  C8 

C016    DO  F6 

C018    E6  FC 

C01A   4C  0E  CO 

C01D  60  FINISH 

C01E    05  48    9C  STRING 

C028  00 


JSR 
RTS 


STRCPT 


LDA  #<5TR1NG 

STA  ZP 

LDA  *>STRING 

STA  ZP+1 

LDY  #0 

LDA  (ZP),Y 


INC  ZP+1 

JMP  STRLOP 
RTS 

.ASC  "(WHT}: 
0 


;  Print  each  character  of  the  string  HELLO  in 
;  a  different  color. 


;  Custom  string  printii 
,-  low  byte  of  s"~- 
;  store  it 

;  high  byte  of  string 
;  store  it  also 
j  as  an  index 

;  load  each  character  from  string 
;  if  zero  byte,  then  finished 
;  print  character 
;  for  next  character 
;  if  not  more  than  256  b 
;  next  character 
;  otherwise,  increment  1 
;  pointer  to  the  string 
;  and  continue  printing 


(YEL}L{BLK)L{LT  BLU]0" 
;  "HELLO"  in  colors 
;  ending  in  a  zero  byte 
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Name 

Input  a  line  of  text  using  a  custom  routine 
Description 

TXTCIN  simulates  the  BASIC  ROM  routine  INLIN  for  accept- 
ing a  line  of  input  from  the  keyboard,  blinking  cursor  and  all. 
But  unlike  INLIN,  which  takes  an  entire  line  of  input  at  once, 
TXTCIN  screens  each  character  individually  before  adding  it 
to  the  input  line.  By  building  the  input  line  in  this  manner,  the 
many  documented  problems  associated  with  INLIN  (or  IN- 
PUT) can  be  avoided.  Thus,  commas  and  characters  like  the 
cursor  keys,  CLEAR,  HOME,  and  so  on,  can  be  handled 
appropriately  by  the  input  routine. 

Prototype 

1.  Enable  the  cursor. 

2.  Get  a  character  with  GETIN. 

3.  Compare  the  input  character  with  a  table  of  unwanted 
characters  (BADKEY). 

4.  If  the  character  is  found  in  the  table  of  unacceptable  charac- 
ters, go  to  step  2. 

5.  If  the  character  is  DELETE,  see  whether  we're  at  the  start  of 
the  buffer.  If  so,  go  to  step  2.  Otherwise,  decrement  the 
buffer  index  (.Y)  by  2. 

6.  If  the  character  is  RETURN,  print  it  while  the  cursor  is  off, 
add  a  zero  byte  to  the  buffer,  and  RTS. 

7.  If  the  input  character  is  not  RETURN,  see  whether  the  input 
line  has  reached  its  maximum  length  (MAXLEN).  If  it  has, 
wait  for  a  RETURN. 

8.  Otherwise,  add  the  character  to  the  input  buffer,  increment 
the  buffer  index  .Y,  print  the  character  (again,  while  the 
cursor  is  off),  and  go  to  step  2  for  another  character. 

Explanation 

The  main  routine  in  the  example  is  exactly  like  the  one  shown 
for  TXTINP.  A  line  of  input  is  first  retrieved,  in  this  case  by 
TXTCIN,  and  the  resulting  string  data  in  the  input  buffer 
printed  with  a  modified  STRCPT.  (STRCPT  is  shortened 
since  the  string  is  fewer  than  256  bytes  long.)  As  with 
TXTINP,  we  return  to  BASIC  by  jumping  through  the  error 
handler  vector  at  768. 

With  a  few  changes,  the  input  routine  TXTCIN  can  be 
customized  for  each  input  required  in  your  program.  First, 
POKE  MAXLEN  with  the  maximum  number  of  characters  al- 
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lowed  in  the  current  input  line.  Then,  update  the  table  of  un- 
wanted keys  (BADKEY)  and  total  the  number  of  these  keys. 
POKE  this  number,  less  1,  into  the  location  corresponding  to 
NUMBAD  ($C026,  in  this  example). 

Notice  how  the  cursor  is  dealt  with  within  the  routine. 
IRQ  interrupts  must  be  disabled  before  each  input  character  is 
printed  and  reenabled  afterward.  Otherwise,  the  cursor  may 
flash  during  normal  interrupt  handling.  If  this  happens,  the 
character  will  appear  on  the  screen  in  reverse  video. 

Cursor  handling  within  TXTCIN  is  certainly  tedious  and 
adds  a  number  of  bytes  to  the  routine.  If  a  cursor  is  not  re- 
quired in  your  program,  you  can  eliminate  all  instructions  nec- 
essary to  set  it  up  and  shorten  the  routine  considerably. 

Note:  The  use  of  the  vector  at  768  to  exit  the  routine  is  re- 
quired here  to  prevent  BASIC  from  taking  your  input  as  a  di- 
rect command.  See  TXTINP  for  more  discussion  of  this. 


Routine 

cooo 

CHROUT 

= 

65490 

cooo 

GETIN 

65508 

cooo 

BUF 

512 

cooo 

ZP 

25! 

YSAVE 

253 

BLNSW 

204 

BLNCT 

205 

BLNON 

207 

;  BLNSW  =  2599  on  the  128 
;  BLNCT  =  2600  on  the  128 
;  BLNON  =  2598  on  the  128 


COOO    20    1C  CO 

C003    A9  00 
C005    85  FB 
C007    AO  02 
84  FC 
0B  AO 
Bl 
FO 
20 


STRCFT 


C00F 
C011 

C014  C8 

C015  DO 

C017  A2 

C019  6C 


00 
FB 
06 

D2  FF 


STRLOP 


FINISH 


COJC  AO  00  TXTCIN 

C01E  84  CC 

C020  84    FD  GETKEY 

C022  20    E4   FF  WAIT 

C025  A2  07 

C027  DD  6B    CO  CKLOOP 

C02A  F0  F6 

C02C  CA 


JSR  TXTCIN 

LDA 

STA 
LDY 
STY 
LDY 
LDA 
BEQ 
JSR 
1NY 

BNE  STRLOP 
LDX  #128 
IMP  (768) 


LDY  #0 

STY  BLNSW 

STY  YSAVE 
JSR 
LDX 

CMP  BADKEY,X 


;  Inpul  a  line  of  text  with  a  custom  routine 

;  and  print  it. 

;  get  the  input  line 

;  Print  it  with  shortened  STRCPT  and  return. 
:  low  byte  of  input  buffer 
;  store  it 


;  store  it 

;  as  an  index 

;  load  each  character  from  input  buffer 
;  if  zero  byte,  then  finished 
;  print  character 
;  next  character 
;  go  get  next  character 
;  code  for  READY  error  message 


BEQ 

DEX 


WAIT 


;  Custom  input  subroutine  using  GETTN  and 
,  flashing  cursor 

;  Initialize  index  into  input  buffer 
;  turn  on  cursor 
;  GETIN  corrupts  .Y,  so  save  it 
;  get  a  character  in  .A 

;  compare  character  to  each  value  in 
;  BADKEY  table 

;  if  response  is  illegal,  get  another  key 
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C02D  10  F8 

C02F  A4  FD 

C031  C9  14 

C033  DO  06 

C035  CO  00 

C037  FO  E7 

C039  SB 

C03A  88 

C03B  C9  OD 

C03D  FO  09 

C03F  CC  73  CO 

C042  FO  DC 

C044  99  00  02 

C047  C8 

C048  A2  01 

C04A  86  CD 

C04C  A6  CF 

C04E  DO  FC 

COM  78 

C051  20  D2  FF 

C054  56 

C055  C9  OD 

C057  DO  C7 

C059  A9  00 

C05B  99  00  02 

C05E  A9  01 

C060  85  CD 

C062  A5  CF 

C064  DO  FC 

C066  A9  01 

C068  85  CC 

C06A  60 


NOTDEL 


PRTTT 

wah-pr 


BPt 

LDY 

CMP 

BNE 

cpy 

BEQ 

DEY 

DEY 

CMP 

BEQ 

CPY 

BEQ 

STA 

INY 

LDX 

STX 

LDX 

BNE 

SEI 


WAITBL 


C06B  00 
C06C  91 


11  9D 


C070  94 
C071    13  93 

073 


CKLOOP 

YSAVE 

#20 

NOTDEL 
GETKEY 


#13 

PRTIT 

MAXLEN 

GETKEY 

BUF.Y 


#1 


BLNON 
WAITPR 


JSR  CHROUT 
CLI 

CMP  #13 

BNE  GETKEY 

LDA  #0 

STA  BUF.Y 

LDA  #1 

STA  BLNCT 

LDA  BLNON 
WAITBL 


BNE 
LDA 
STA  BLNSW 
RTS 


;  check  next  bad  \ 
;  input  is  okay,  so  I 
;  is  il  DELete? 
;  not  DELete 

;  are  we  at  the  start  of  the  buffer? 

;  if  so,  go  get  a  character 

;  if  DELete,  back  up  index  into  input  buffer 

;  is  il  RETURN? 

;  yes,  so  print  it 

;  check  maximum  input  length 

;  if  yes,  wait  for  RETURN 

;  store  character  in  buffer 

;  increment  input  buffer  index 

;  routine  to  print  each  character 

;  set  cursor  timer 

;  wait  till  flash  is  off 

;  turn  off  all  IRQ  interrupts  so  cursor  won't 
;  flash 

;  print  the  character 
;  turn  on  IRQ  interrupts 
;  is  it  RETURN? 

;  get  another  key  if  not  RETURN 

;  if  RETURN,  add  terminator  byte  of  zero 
;  to  the  siring 

;  make  cursor  flash 

;  wait  until  cursor  not  flashed 

;  turn  i 


BADKEY      .BYT  0 


>73  OA 

See  also 


:  if  no  key,  then  wail 
ASC    "(UP)  (DOWN} {LEFT)  (RIGHT}" 
;  cursor  keys 
"{INST}"         ;  INST  key 
"{HOME}{CLR}" 

;  HOME  and  CLR 

•—BADKEY— 1 
.BYTE   10  j  maximum  1. 
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Name 

Set  the  text  color 

Description 

TXTCOL  sets  the  text  color  by  storing  the  appropriate  color 
value  in  the  text  color  flag  at  location  646  (location  241  on 
the  128). 


X.  Enter  this  routine  with  the  selected  color  value  in  .A, 
2.  Store  this  value  in  the  foreground  color  register  for  text 
(COLOR). 

Explanation 

The  example  program  makes  the  text  that  follows  green  in 
color.  See  COLFIL  for  a  table  of  color  values. 

Routine 


COLOR 


COOO  AD  OB  CO 
C003  20  07  CO 
C006  60 


C007  8D  86  02  TXTCOL 
C0OA  60 


LDA 

JSR 

RTS 


STA 
RTS 


646 


COI.VAL 
TXTCOL 


COLOR 


:  COLOR  =  241  on  the  128 — foreground 
;  color  for  text 

:  Set  text  color  to  green. 
;  get  the  color  value 
;  and  set  it 


:  Set  text  color.  Enter  with  .A  containing  color 


COLVAL       BYTE  5 


I  set  text  color 


;  color  green 


- 
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Name 

Input  a  line  of  text  using  the  ROM  routine  INLIN 
Description 

You'll  find  this  short  routine  practical  in  many  programs. 
TXTINP  accepts  a  line  of  input  from  the  keyboard  and  stores 
it  as  a  zero-terminated  string  in  the  input  buffer  beginning  at 
location  512. 

Prototype 

Jump  to  the  BASIC  ROM  subroutine  INLIN. 
Explanation 

TXTINP  relies  on  the  built-in  BASIC  Kernal  routine,  INLIN, 
to  perform  an  INPUT  in  ML.  INLIN,  located  at  42336  on  the 
64  or  22176  on  the  128,  accepts  characters  from  the  current  in- 
put device  until  a  carriage  return  is  received  or  until  the  length 
of  the  current  logical  line  is  exceeded  (80  characters  on  the  64; 
160  on  the  128).  If  the  input  carries  you  to  the  next  logical 
line,  that  line  will  become  the  input  line,  just  as  in  BASIC. 
Once  you  have  entered  RETURN,  INLIN  tags  a  zero  byte  onto 
the  end  of  the  input  line  in  the  buffer. 

In  the  example,  TXTINP  fetches  characters  from  the  key- 
board, placing  them  in  the  text  input  buffer  at  512  until  RE- 
TURN is  pressed.  A  shortened  STRCPT  is  used  to  print  this 
string  data  (shortened  because  the  string  will  never  be  longer 
than  255  bytes).  After  this,  you're  returned  to  BASIC. 

Notice  that  instead  of  using  RTS  to  return  to  BASIC,  we 
jump  through  the  vector  at  768  to  BASIC'S  error  message  han- 
dler routine.  (A  value  of  128  in  the  X  register  indexes  the 
READY  prompt  from  a  table  of  error  messages.)  This  is  nec- 
essary here  since  BASIC'S  input  buffer  has  been  corrupted 
with  input  from  INLIN.  You'll  see  what  we  mean  if  you  sub- 
stitute an  RTS  for  LDX  #128:JMP  (768).  BASIC  will  attempt  to 
execute  whatever  input  follows  on  the  current  line  as  if  it  were 
a  direct  command. 

Note:  Since  TXTINP  uses  BASIC'S  own  INPUT  routine,  it 
suffers  from  all  the  problems  inherent  to  this  statement.  Punc- 
tuation characters  like  commas  and  colons  cannot  be  entered 
within  the  input  line;  control  characters  like  the  cursor  keys, 
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CLEAR,  and  HOME  allow  the  user  to  leave  the  input  line;  and 
so  on.  Such  input  can  have  disastrous  effects  upon  your  pro- 
gram. In  many  instances,  especially  where  the  user  is  likely  to 
be  a  novice,  you  should  use  a  custom  routine  like  TXTCIN, 
which  screens  individual  characters  within  the  input  line. 


cooo 
cooo 
cooo 


CHROUT 


ZP 

mm 


COOO    20    1C  CO 


C003  A9  00 

C005  85  FB 

C007  AO  02 

C009  84  FC 

C00B  AO  00 

C00D  Bl  FB 

C00F  F0  06 

C011  20  D2  FF 

C014  CB 

C015  DO  F6 

C017  A2  80 

C019  6C  00  03 


STRCPT 


5TRLOP 


FINISH 


C01C  20  60  A5  TXTINP 
COIF  60 

See  also  TXTCIN. 


JSR  TXTINP 


LDA  #<BUF 
STA  ZP 


JSR  CHROUT 
INY 

BME  STRLOP 

LDX  #128 

(MP  (768) 


JSR  INLIN 
RTS 


;  INUN  =  22176  on  the  128 

;  Input  a  line  of  text  until  RETURN  and 
;  print  in. 

;  input  a  line  of  text  into  keyboard  buffer 

&J~  .  . 

;  Now  print  it  with  a  s. 
;  STRCPT  (buffer  is  <256  bytes). 
;  low  byte  of  input  buffer 
;  store  it 

:  high  byte  of  input  buffer 
;  store  it  also 
;  as  an  index 


\  if  zero  byte,  then  finished 
.  print  character 
;  for  next  character 
:  go  get  the  next  character 
;  code  for  READY  error  message 
;  return  to  BASIC  and  print  READY  prompt 

;  Input  a  line  of  text  into  the  keyboard  buffer 
;  with  the  BASIC  ROM  routine  INLIN. 
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Name 

Validate  a  disk 


This  is  the  equivalent  of  the  BASIC  statement  OPEN 
l,8,15,"V0":CLOSE  1,  which  reads  through  the  directory  and 
checks  the  allocation  of  disk  sectors.  There's  no  need  to  vali- 
date very  often,  though  if  you  accidentally  leave  a  disk  file 
open  when  you  turn  off  the  computer,  the  result  is  a  poison,  or 
splat,  file,  which  may  cause  significant  problems  in  the  future. 
You  should  not  scratch  a  splat  file,  which  is  marked  in  the 
directory  with  an  asterisk  (*)  next  to  the  file  type;  you  should 
validate  the  disk  that  contains  the  poison  file. 


1.  Open  the  command  channel  (Kernal  SETLFS,  SETNAM, 
OPEN). 

2.  Provide  "VO"  as  the  name  of  the  f 

3.  Close  the  channel. 

Explanation 

At  the  start  of  the  routine,  SETLFS  9ets  a  logical  file  number  1, 
on  device  8  (the  disk  drive)  and  channel  15.  SETNAM  sets  the 
name  to  "VO",  which  means  Validate  on  drive  0.  The  Kernal 
OPEN  routine  is  sufficient  to  send  this  command  to  the  disk 
drive.  To  finish  up,  close  the  channel. 


because  it  reads  through  the  directory  to  find  every  legitimate 
file,  then  traces  through  the  sectors  each  program  or  file  uses. 
Each  valid  sector  is  then  marked  as  already  used  in  the  block 
allocation  map  (BAM). 

Warning:  Do  not  use  the  validate  routine  if  you  have  a 
double-sided  1571  disk  in  the  drive,  and  the  1571  is  in  single- 
sided  1541  mode.  You'll  lose  the  second  half  of  the  disk.  To  be 
safe,  send  the  double-sided  (1571  mode)  command  "U0>M1" 
to  the  disk  drive  on  channel  15  before  you  validate  the  disk. 

You  should  also  avoid  using  this  routine  to  validate  disks 
formatted  for  use  with  the  new  GEOS  operating  system  for  the 
64.  GEOS  provides  its  own  Validate  program.  Performing  a 
standard  validation  on  a  GEOS  disk  will  result  in  the  loss  of 
vital  information. 


VALIDT 


Routine 


SETLFS 
SETNAM 


C000  A9  01 

C002  A2  08 

C004  AO  OF 

C006  20  BA  FF 

C009  A9  03 

COOB  A2  IE 

COOP  AO  CO 

COOF  20  BD  FF 

C012  20  CO  FF 

C015  A9  01 

C017  20  C3  FF 

COIA  20  CC  FF 

C01D  60 


C01E    56  30 
C020  OD 
C021 


CLRCHN 
VALIDT 


SFFBA 
SFFBD 
SFFCO 


BUFLEN 

See  also  CONCAT, 


-  $FFCC 

LDA  #1 

LDX  #8 

LDY  #15 

JSR  SETLFS 

LDA  #BUFLEN 

LDX  #<BUFFER 

LDY  #>BUFFER 

JSR  SETNAM 

JSR  OPEN 

LDA  #1 

JSR  CLOSE 

JSR  CLRCHN 


;  logical  file  number 

;  device  number  for  disk  drive 

;  secondary  address  for  drive  command 

;  channel 

;  prepare  to  open  il 
!  length  of  buffer 
;  JC  and  .Y  hold  the 
;  address  of  the  buffer 
;  set  name 
;  open  It 

;  and  Immediately 

;  dose  the  command  channel 

;  clear  the  channels 

;  all  done 

i 

i  Da'a  area 
;  RETURN  character 
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Name 

Write  to  80-column  attribute  memory 
Description 

If  you've  worked  with  the  40-column  screen  of  the  64  or  128, 
you're  probably  used  to  color  memory  that  can  hold  16  different 
values.  The  128's  80-column  screen  has  attribute  memory  that 
not  only  controls  colors,  but  also  controls  flash  mode,  under- 
line mode,  reverse  mode,  lowercase/uppercase  or  uppercase/ 
graphics  mode,  and  so  forth.  This  routine  changes  the  attri- 
butes of  a  chunk  of  the  screen. 

Prototype 

1.  Enter  the  routine  with  the  attribute  value  in  .A  and  the 
screen  position  in  .X  and  .Y. 

2.  Save  the  attribute  temporarily. 

3.  Calculate  the  color  address  from  .X  and  .Y. 

4.  Send  the  corresponding  address  for  attribute  memory  to  the 
VDC  chip. 

5.  Store  the  attribute  into  attribute  memory. 
Explanation 

The  128's  80-column  screen  has  80  columns  and  25  rows,  a 
total  of  2000  locations.  Within  its  private  16K  of  memory, 
there  are  2000  bytes  devoted  to  screen  memory,  plus  2000 
bytes  for  attribute  memory.  The  figure  shows  how  an  individ- 
ual byte  of  attribute  memory  controls  the  functions. 


Attribute  Memory  Byte 


Bit 

7 

S 

5 

4 

3 

2 

1 

e 

Value 

128 

64 

32 

IS 

8 

4 

2 

l 

Llntensitu 

•Blue 
-6reen 

mi 
■Flish 
■Underline 
Reverse 
-Lowercase 
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The  low  nybble  (bits  0-3)  controls  the  color,  with  various 
combinations  of  red,  green,  blue,  and  intensity.  The  high 
nybble  (bits  4-7)  controls  the  additional  attributes  such  as 
flash,  underline,  reverse,  and  lowercase.  For  example,  if  the 
underline  bit  is  a  1,  the  character  is  underlined.  If  the  lower- 
case bit  is  1,  the  letter  A  appears  as  lowercase  a.  (If  it's  0,  an  A 
appears  as  an  uppercase  A,  and  uppercase  letters  print  as 
graphics  characters.) 

The  example  program  stores  a  %10111101  into  attribute 
memory  at  x  position  9,  y  position  4 — column  10,  row  5,  be- 
cause the  upper  left  corner  is  (0,0).  It  stores  the  value  into  ten 
bytes.  The  upper  nybble  of  %1011  turns  on  lowercase,  under- 
line, and  flash.  The  lower  nybble  of  %1101  turns  the  color  to 
bright  yellow  (green  4-  red  +  intensitvV 

For  more  about  how  the  internal 
RE80CO  and  WR80CO. 


Routine 

ocoo 
ocoo 
ocoo 
ocoo 

ocoo 
ocoo 
ocoo 


CHROUT 
VDCADR 
VDCDAT 
VRMHI 

VRMLO 
VRDAT 
COLMEM 


OCOO 
0C02 
0C05 

0C0B 
0C0E 
0C0F 
0C11 
0C12 
0C14 
0C16 
0C18 
0C1A 
0C1D 
0C1F 
0C21 
0C24 
0C25 
0C27 


A9  93 

20  D2  FF 

A2  07 

AO  CF 

A9  45 

20  D2  FF  LP01 


DO  FA 
CA 

DO  F7 

A9  BD 

A2  09 

AO  04 

20  28  0C 

AO  OA 

A2  IF 

20  99  0C 
88 

DO  F8 
60 


LDA 

JSR 

LDX 

LDY 

LDA 

)SR 

DEV 

BNE 

DEX 

BNE 

LDA 

LDX 

';DDY 

JSR 

LDY 

LDX 

JSR 

DEY 

BNE 

RTS 


SFFD2 
54784 
54785 
18 


31 


*147 

CHROUT 

#>1999 

*<1999 

«69 

CHROUT 
LP01 


;  gateway  byte  1— the  register  address 
;  gateway  byte  2— the  data  to  be  written 
.-  register  for  memory  address  to  access  (high 
;  byte) 

;  register  for  memory  address  (low  byte) 

^Idress  'T  """^  '°  ^  Se"' 
1  private  memory 

!  dear  screen 


;  the  letter  E 
:  print  It 


LP01  j  1999  times 

#%10111101    ;  lowercase,  underline,  flash,  bright  yello' 
;  x  position  9 
;  y  position  4 
;  store  it 
;  ten  more  times 


#9 
#4 

VDCCOL 
#10 

#31 

STRVDC 


SVCLP 


i  store  it 

|  and  branch  back  ten  times 


0C28    8D  96    0C   VDCCOL     STA  TEMPA 
0C2B    A3  00  LDA  #0 

0C2D  8D  97    0C  STA     COL  ADR 


;  and  the  x  and  y  locations  in  .X  and  .Y. 
;  save  -A 

;  dear  the  address 
;  of  color  memory  low 


VDCCOL  (128  only) 


8D  98 
98 
OA 

8D  97  OC 

OE  97 

2E  98  OC 

OE  97  OC 

2E  98  OC 


LOOP80 


DO  F7 


0C5E  8A 

0C5F    6D  97  OC 

8D  97  OC 

A9  00 

6D  98  OC 

0C6A  8D  98  OC 


0C6D   A9  00 


0C6F 
0C72 
0C75 

oSa 

0C7D 
0C7F 
0C82 
0C85 
0C87 
0C8A 
DC8D 
0C8F 
0C92 
0C95 


6D  97  OC 

A°9  B  ^ 
6D  98  OC 
8D  98  OC 
A2  12 
AD  98 
20  99 
A2  13 
AD  97 
20  99 
A2  IF 
AD  96 
20  99 
60 


OC 
OC 

OC 
OC 

OC 
OC 


0C96  00 
0C97    00  00 


0C99  8E   00  D6 

0C9C  AE  00  D6 

0C9F  10  FB 

0CA1  8D  01  D6 

0CA4  60 


STA 

TYA 

ASi 

STA 

ASL 

ROL 

ASL 

ROL 

CLC 

ADC 

STA 

LDA 

ADC 

STA 

LDY 

ASL 

m 

DEV 

BNE 


COLADR+1    ;  and  high  byte 
.•move^Ylo.A 

COLADR         ';  save  il 
COLADR        ;  times  4  (low) 
COLADR+1    ;  (high) 
COLADR        ;  timet  9  (low) 
COLADR+1    ;  (high) 

;  now  add  In  .A 

;  limes  8  plus  times  2  is  times  10  (net) 
;  store  it 


COLADR 
COLADR 
#0 

COLADR+1 
COLADR+1 
#3 


LOOP80 


TXA 

ADC  COLADR 

STA  COLADR 

LDA  #0 

ADC  COLADR+1 

STA  COLADR+1 


LDA  #<COLMEM 


ADC 

STA 

LDA 

ADC 

STA 

LDX 

LDA 

JSR 

LDX 

LDA 


COLADR 

COLADR 

#>COLMEM 

COLADR+1 

COLADR+1 

#VRMHI 

COLADR+1 

STRVDC 

#VRMLO 


i  fix  the  high  byte 
;  and  store  it 

;  times  10  times  8  (again)  Is  limes  80 


;  Now  COLADR  holds  0,  80, 160,  and  so 
;  forth. 

.:  put  .X  in  .  A  and 

;  add  it  (carry  Is  always  clear) 

•  store  II 

;  high  byte,  too 


;  Now  COLADR  holds  a  number  0-1999, 
;  for  the  screen/color  memory  location. 
;  add  in  the  beginning  of  color  memory 
:  ($0800  inside  the  VDC) 


LDX  #VRDAT 

J-H*  111** 
JSR  STRVDC 

RTS 

BYTE  0 
.BYTE  0.0 

STX  VDCADR 

LDX  VDCADR 

BPL  SVLOOP 

STA  VDCDAT 


;  set  the  high  byte 

;  lo  poinl  to  color  memory 

;  store  it 

;  now  the  low  byte 


the  data  to  write 
retrieve  the  value  from  .A 

and  it's  done 


;  .X  is  the  register;  .A  Is  the  information 
;  store  the  register  address 
:  now  wait 
;unti--  - 


See  also  CUST80,  RE80CO,  WR80CO. 
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VERIFY 


Name 

Verify  a  disk  file 

Description 

VERIFY  checks  a  copy  of  your  BASIC  or  ML  program  on  disk 
to  insure  that  it  is  the  same  as  the  one  currently  in  memory.  If 
there  are  any  differences  between  the  program  in  memory  and 
the  corresponding  one  on  disk,  this  routine  prints  NOT  OK. 

Prototype 

I  On  the  128,  set  the  bank  to  15. 

2.  Set  the  parameters  as  1,8,1  to  verify  "PROGRAM" 
(SETLFS,  SETNAM). 

3.  On  the  128,  prior  to  SETNAM,  load  .A  with  the  bank 
containing  the  program  you  wish  to  verify  and  .X  with  the 
bank  containing  its  filename.  Then  JSR  to  SETBNK. 

4.  Store  a  1  in  .A  for  to  indicate  a  verify  operation. 

5.  JSR  to  the  Kernal  routine  LOAD. 

6.  Check  the  carry  flag  for  a  disk  error  (carry  is  set  after  a 
LOAD  error). 

7.  Check  bit  4  of  the  I/O  status  flag  at  144  to  see  if  the  error 
was  a  verify  error. 

8.  If  bit  4  is  set,  print  NOT  OK. 

9.  Otherwise,  print  OK. 

Explanation 

This  routine  is  very  straightforward.  To  use  it,  simply  sub- 
stitute for  PROGRAM  the  name  of  the  program  you  wish  to 
verify. 

Notice  that  VERIFY  is  similar  in  many  ways  to  the  load 
routines  (LOADAB,  LOADBS,  LOADRL).  A  key  difference  in 
the  setup  is  the  value  placed  in  the  accumulator  prior  to 
JSRing  to  LOAD.  A  value  of  zero  in  .A  indicates  that  a  load 
operation  is  to  be  performed.  A  nonzero  value  signifies  a  ver- 
ify operation. 

There  are  probably  several  ways  to  see  whether  the  pro- 
gram in  memory  has  verified  properly.  A  direct  way,  employed 
here,  is  to  check  bit  4  of  the  status  flag  at  144.  If  this  bit  is  set, 
a  verify  error  has  occurred  and  the  full  error  message  NOT  OK 
is  printed.  If  bit  4  is  cleared,  meaning  no  verify  error  has  oc- 
curred, the  index  pointer  to  the  error  message,  .Y,  is  offset  in 
MSGNOK,  so  only  OK  gets  printed.  This  trick  prevents  us 
from  having  to  include  a  routine  to  print  the  second  message. 

Note:  VERIFY  currently  lacks  complete  disk  error  check  - 
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VERIFY 


ing  (except  for  checking  the  carry  flag  after  JSR  LOAD).  You 
can  add  this  feature  if  you  like  by  incorporating  the  subroutine 
DERRCK  into  the  code.  Place  DERRCK  just  before  FILENM, 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  the  JSR  LOAD  instruction.  Also,  be  sure  to  open  the  error 
channel  (15)  at  the  beginning  of  the  program  (noted  in  the 
source  listing). 

On  the  128,  you  must  define  and  include  BNKNUM  and 
BNKFNM  at  the  end  of  the  program. 

Routine 


cooo 


cooo 


SETLFS 

SETNAM 

LOAD 

CHROUT 

STATUS 

SETBNK 


65466 

65469 

65493 

65490 

144 

65384 


MMUREG     =  65280 


;  Kemal  bank  number  for  verify  and  filename 
:  (128  only) 

;  MMU  configuration  register  (128  only) 

• 

!  Verify  the  file  (BASIC  or  ML)  on  disk. 

';  Open  channel  15  here  if  you  include  disk 
;  error  checking  (DERRCK). 


cono 


VERIFY 


COOO  A9  01 

C002  A2  08 

C004  AO  01 

C006  20  BA  FF 


C009 
C00B 
C00D  AO 
C00F 
C012 
COM 


A9  09 
A2  38 
CO 

20    BD  FF 
A9  01 
20    D5  FF 


C017 
C018 
C01A  20 
C01D  28 


08 

A9  0D 


D2  FF 


B0  OA 


C020  A5  90 
C022  29  10 
C024    DO  04 


LDA  #1 
LDX  #8 


JSR  SETLFS 


LDA  #FNLENG 

LDX  #<FHENM 

LDY  #>FHENM 

JSR  SETNAM 

LDA  #1 

JSR  LOAD 


PHP 

LDA  #13 

JSR  CHROUT 

BCS  NOTOK 

LDA  STATUS 

AND  #16 

BNE  NOTOK 


;  LDA  #0;  sel  the  128  lo  bank  15  (128  only) 
;  STA  MMUREG;  (128  only) 

number  (value  doesn't  matter) 
number  for  disk  drive 
;  secondary  address  of  1  for  absolute  load 
;  set  parameters  for  verify 
;  Include  the  following  three  Instructions 
;  on  the  128  only. 

;  LDA  BNKNUM;  bank  containing  the 
;  program 

;  LDX  BNKFNM;  bank  cm 
;  ASCII  filename 
;  JSR  SETBNK 
;  length  of  filename 
;  address  of  filename 

;  sel  up  filename 
i  Bag  for  verify 
;  verify  the  Hit 

\  JSR  DERRCK;  insert  here  for  error 
;  checking. 

j  store  the  carry  flag  setting 

;  print  OK  or  NOT  OK  on  next  line 

;  restore  carry  flag  setting 

;  if  disk  error  occurs,  carry  is  normally  set 

;  after  load 

;  check  the  I/O  status  flag 

;  test  bit  4  for  verify  error 

;  Bit  4  is  X,  so  verify  error  occurred.  Print 

;  "NOT  OK". 
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C026  AO  04 

C028  DO  02 

C02A  AO  00 

C02C  B9  41  CO 

CD2F  FO  06 

C031  20  D2  FT 

,:01  DO  F5 


NOTOK 
LOOP 


C038  30  3A  50 
C04I 


C041  4E  4F  54 
C047  00 


LDY 

#4 

BNE 

LOOP 

LDY 

m 

LDA 

MSGNOK.Y 

BEQ 

FINISH 
CHROOT 

INY 
BNE 

LOOP 

RTS 

FILENM  ASC 
FNLENG  - 


MSGNOK  .ASC 
-BYTE 


"0:PROGRAM" 
•  -  FILENM 

OK" 


;  No  verify  error.  Offset  into  message  lo 
;  OK. 
;  prinl  H 

;  print  NOT  OK  or  OK 

t. «'«  on  I 


;  continue  printing  message 

> 

:  Insert  DERRCK  here  if  you're  including 
;  disk  error  checking. 

:  Substitute  the  name  of  your  program  here 
!  (<=  16  characters) 
:  length  of  filename 

Include  the  next  two  variables  I 

only. 

message  for  NOT  ( 


;  BNKNUM  BYTE  0;  bank  number  where 

;  program  to  verify  is  located 

;  BNKFNM  .BYTE'O;  bank  number  where 


See  also  SAVEBS,  SAVEML. 
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VICADR 


Change  the  text  screen  location 
Description 

This  routine  lets  you  change  the  text  screen  location  within  the 
current  video  bank.  The  text  screen  must  be  placed  on  an  even 
IK  boundary  within  the  video  bank.  The  high  nybble,  bits 
4-7,  of  the  VIC-H  chip  memory  control  register  (53272)  deter- 
mines the  actual  offset  of  the  text  screen  within  the  chosen 
'"  '  '       ' -  0  through  15. 


Prototype 

1.  Enter  this  routine  with  .A  containing  the  IK  offset  for  the 
text  screen. 

2.  Multiply  .A  by  16,  shifting  the  low  nybble  to  the  high 
nybble. 

3.  Store  the  result  into  bits  4-7  of  the  VIC-II  memory  control 


Explanation 

The  example  routine  locates  the  text  screen  at  8192,  or  at  the 
8K  boundary,  within  the  current  video  bank.  Here,  SCROFF 
contains  the  offset  (in  IK  increments)  to  the  start  of  text  screen 
memory.  For  instance,  change  the  routine  to  start  the  text 
screen  at  an  offset  of  4K,  store  a  4  in  SCROFF. 

On  the  128,  the  value  in  location  2604  (VM1)  is  copied 
into  53272  during  each  IRQ  interrupt  as  long  as  you're  work- 
ing in  a  portion  of  the  screen  containing  text.  (If  you're  in  bit- 
map mode,  location  2605,  or  VM2,  is  copied  into  53272.)  So, 
on  the  128,  define  VMCSB  as  2604.  (Although  it's  not  nec- 
essary, you  can  also  change  the  label  to  VM1.  If  you  do  this, 
be  sure  to  change  it  everywhere  it's  referenced  in  the  program.) 

Note:  This  routine  currently  uses  a  zero-page  location 
(251)  for  temporary  storage.  Unfortunately,  this  and  other 
available  zero-page  locations  are  heavily  used  by  many  other 
ML  routines.  If  your  program  requires  you  to  keep  this  loca- 
tion free,  just  reserve  a  labeled  byte  at  the  end  of  your  pro- 
gram for  storage  (for  example,  TEMPA  .BYTE  0)  and  substitute 
the  chosen  label  (here,  TEMPA)  everywhere  ZP  occurs  in  the 
source  code. 
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VICADR 


Routine 

cooo 
cooo 


C007 
C008 
C009 
COOA 
COOB 


OA 
OA 
OA 
OA 

85  FB 
AD  18 


C014 
C017 


05 


60 


VMCSB 
ZP 


COOO  AD  18  CO 
C003  20  07  CO 
6  60 


VICADR 


DO 


18  DO 


=  53272 


LDA  SCROFF 
)SR  VICADR 
RTS 


ASL 
ASL 
ASL 
ASL 
STA 
LDA 
AND  #15 
ORA  ZP 
STA  VMCSB 


ZP 

VMCSB 


RTS 


C018   08  SCROFF      .BYTE  8 

See  also  CHOUTP,  VTDBNK. 


;  2604  on  the  128— VIC-I1  chip  memory 
jster 

screen  by  8K  in  current  video 
J  bank, 

;  .A  contains  screen  offset 
:  offset  text  screen 

:  Offset  text  screen  by  IK  rimes  .A  in  current 
:  video  bank 
;  molt1-'-- 


;  store  temporarily 

;  retain  current  bite  0-3  of  VMCSB 

;  OR  in  bite  4-7 

;  and  store  result  in  control  register 


;  text  screen 


SK  within  video  bank 
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VIDBNK 


Change  the  VIC  chip  video  bank 


VIDBNK  lets  you  choose  the 
bank  from  four  possible  choices: 

BankO  (0-16383) 

Bankl  (16384-32767) 

Bank  2  (32768-49151) 

Bank  3  (49152-65535) 

Prototype 

1.  Enter  the  routine  with  .A  c 
number  (0-3). 

2.  Set  the  CIA  #2  port  A  data  direction  register  for  output. 

3.  Store  the  result  of  3  minus  the  bank  number  into  bits  0-1  of 
the  CIA  #2  port  A  data  register. 

Explanation 

The  VIC  chip,  which  is  in  charge  of  all  video  output  on  the  64 
and  all  40-column  output  on  the  128,  can  access  only  16K  of 


information:  sprite  shapes,  text  screen  memory,  hi-res  screen 
memory,  and  character  shapes.  Bank  0  is  the  default  video 
bank.  Because  locations  0-16384  are  often  used  for  other  pur- 
poses, it's  sometimes  useful  to  use  a  di" 


56576 
56578 
251 


Routine 


cooo 


CI2PRA  = 
C2DDRA  = 
ZP 


COOO  AD  22  CO 
C003  20  07  CO 
60 


C007  49  03 
C009    85  FB 


VIDBNK 


DD 


C010  8D  02  DD 
C0J3    AD  00  DD 


EOR  #3 

STA  ZP 

LDA  C2DDRA 

STA*  C2DDRA 

LDA  C12PRA 


:  Select  video  bank  2. 
;  bank  number  (0-3) 
;  select  bank 


i  Select  a  video  bank.  Enter  with  ,A 
;  containing  the  chosen  bank  number. 
;  effectively,  (3  —  bank  number) 
;  stare  it  temporarily 
;  set  data  direction  register  for  output 


;  take  current  CI2PRA  value 
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VIDBNK 


C016  29    FC  AND  #252 

cois  os  fb  ora  zp 

C01A  8D  00  DD  STA  CI2PRA 

C01D  60  RTS 

C01E  02  BNKNUM     .BYTE  2 


;  and  keep  bits  2-7. 

;  OR  with  3  -  bank  number 

;  reset  register 

\  bank  2 


See  also  CHOUTP,  VICADR. 


WARMST 


The  difference  between  a  cold  start  and  warm  start  on  a  com- 
puter is  basically  one  of  degree.  A  warm  start  always  has  a 
less  severe  effect  on  the  machine. 

One  way  to  cause  a  warm  start  on  the  64  or  128  is  to 
JuMP  directly  to  the  warm-start  routine.  A  warm  start  also  oc- 
curs anytime  a  BRK  instruction  (0)  is  encountered. 

On  the  64,  the  result  of  a  warm  start  is  the  same  as  when 
you  press  the  RUN/STOP  and  RESTORE  keys  simultaneously. 
On  both  computers,  all  page  3  RAM  vectors  are  restored  to 
their  initial  settings.  In  addition,  the  character  set  and  the 
screen  are  reset  to  their  original  condition. 

Following  the  warm-start  routine  on  the  64,  you're  re- 
turned to  BASIC.  On  the  128,  you're  placed  in  the  monitor. 
On  both  machines,  the  BASIC  program  remains  intact. 

Prototype 

to  a  location  containing  a  zero. 


To  demonstrate  the  effect  of  a  warm  start,  the  example  pro- 
gram initially  changes  the  screen  and  text  colors.  When  you 
press  B,  WARMST  is  executed,  causing  the  screen  and  text 
colors  to  be  restored  to  their  default  settings.  As  we've  in- 
dicated, on  the  64,  you're  left  in  BASIC.  On  the  128,  you're 
left  in  the  monitor. 

WARMST  is  the  same  for  both  computers.  In  either  case, 
you  JuMP  to  a  location  in  memory  that  you  know  contains  a 

zero.  Here,  a  zero  has  been  placed  in  memory  (in  zero  

from  within  the  main  program. 

Routine 


:  screen  1 
:  COLOR  =  241  on  the  12 
;  color  register  for  text 


ZP 

251 

GETIN 

GOOD 

CHROUT  — 

cooo 

BGCOL0  = 
COLOR 

646 

cooo 

EXTCOL 

53280 

cooo 
cooo 

ITCKKN  = 

13 

GREEN 

5 

cooo 

WHITE  = 

1 
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WARMST 


cooo 

A9  00 

LDA 

#0 

C002 

85  FB 

STA 

ZP 

C1104 

A9  OD 

BCKCOL 

LDA 

#LTGREN 

C006 

8D  21 

DO 

STA 

BGCOLO 

C009 

A9  05 

BORCOL 

LDA 

#GREEN 

COOB 
COOE 

8D  20  DO 

STA 

EXTCOL 

A9  01 

TXTCOL 

LDA 

"WHITE 

C010 

8D  86 

02 

STA 

C013 

20  E4 

FF 

LOOP 

C016 

FO  FB 

LOOP 

an  8 

20  D2 

FF 

JSR 

CHROUT 

C01B 

C9  42 

CMP 

#66 

C01D 

DO  F4 

BNE 

LOOP 

COIF 

4C  22 

CO 

JMP 

WARMST 

;  Perform  a  warm  start  with  B  key. 
;  store  a  zero  byte  in  zero  page 

;  set  screen  background  color  to  light  green 

:  set  border  color  to  green 

;  set  text  color  to  white 


;  if  no  input 
;  print  it 
;  is  it  B? 

;  if  not,  get  another  key 
:  execute  warm  start 

';  WARMST  clears  the  screen  and 


C022    4C   FB  00    WARMST    JMP  ZP 


;  warm 


WINDOW  (128  only) 


Name 


Sets  windows  boundaries  using  escape  codes 


Description 

A  very  useful  feature  of  the  128  is  its  built-in  windowing 
capability.  As  your  programs  become  more  sophisticated, 
you'll  find  any  number  of  uses  for  windows — menus,  prompts 
(Y/N),  messages,  and  so  forth.  This  routine  shows  how  to  set 
up  a  text  window  on  the  128  by  using  escape  codes. 

Prototype 

1.  Enter  with  the  appropriate  window  dimensions  defined  by 
the  variables  TOPROW,  LEFTCL,  BTROWO,  and  RGTOFF  at 
the  end  of  the  program.  (Note  that  BTROWO  and  RGTOFF 
are  offsets  from  TOPROW  and  LEFTCL,  respectively.) 

2.  Position  the  cursor  at  the  top  left  corner  of  the  window  with 
PLOT. 

3.  Print  an  ESC-T  for  top. 

4.  Likewise,  position  the  cursor  at  the  bottom  right  position 


with  PLOT. 
5.  Print  an  ESC-B  for  bottom. 

Explanation 

To  use  PLOT  to  set  up  the  window  boundaries,  load  the  X 
and  Y  registers  with  the  row  and  column  number  of  the  win- 
dow border.  With  PLOT,  the  rows  and  columns  are  numbered, 
beginning  with  zero.  Possible  row  values  are  0-24;  columns 
can  run  from  0  through  39  (or  0-79  on  the  80-column  screen). 

After  the  top  corner  position  has  been  fixed  with  PLOT, 
we  load  .A  with  84  (for  ASCII  T)  and  print  it  in  the  form  of  an 
ESC  code  using  the  subroutine  ESCPRT.  In  ESCPRT,  the 
character  to  be  printed  is  stored  on  the  stack  while  an  ESC 
code— CHR$(27)— is  printed.  Following  this,  we  pull  the 
character  back  off  the  stack  and  print  it  as  well. 

A  similar  process  is  followed  in  establishing  the  bottom 
border  of  the  window.  This  time  an  ESC-B,  which  sets  the  bot- 
tom of  the  window,  is  printed.  It  should  be  noted  that  the  pre- 
vious action  (printing  ESC-T)  has  put  the  top  of  the  window  at 
a  given  location  and  that  the  Kernal  PLOT  routine  operates 
relative  to  the  current  window.  Thus,  the  values  for  the  bot- 
tom of  the  window  are  the  width  and  height  of  the  window, 
not  the  absolute  screen  coordinates  of  the  bottom  comer. 

Finally,  to  clearly  show  the  limits  of  the  window,  a 
continuous  stream  of  TV's  is  printed. 


WINDOW  (128  only) 


Routine 


ocoo 
ocoo 


PLOT 
CHROUT 


OCOO  20  OB  OC 

OC03  A9  57 

0C05  20  D2  FF  LOOP 

0C08  4C  05  OC 


65520 
65490 


JSR  WINDOW 

LDA  *87 

|SR  CHROUT 

JMP  LOOP 


OCOB  AE  30    OC  WINDOW 

OCOE  AC  31  OC 

0CJ1  18 

0CI2  20  FO  FF 

0C15  A9  54 

0CI7  20  26  OC 

0C1A  AE  32  OC 

0C1D  AC  33  OC 

0C2O  18 

0C21  20  FO  FF 

0C24  A9  42 

0C26  48  ESCPRT 

0C27  A9  IB 

0C29  20  D2  FF 

0C2C  68 

0C2D  4C  D2  FF 


0C30  08 
00!  OA 


0O2  08 
0C33  14 

See 


LDX 
LDY 

etc 

JSR 
LDA 
JSR 
LDX 


JSR 

LDA 

PHA 

LDA 

JSR 

PLA 

JMP 


PLOT 
#84 

ESCPRT 

BTROWO 

RGTOFF 

PLOT 
#66 

#27 

CHROUT 
CHROUT 


.BYTE  8 
.BYTE  10 


<VO  -BYTE  8 
RGTOFF      .BYTE  20 


;  Position  window  and  print  W's: 
;  set  up  the  window 
t  W 


i  again  and  again  and  again... 

§}   

:  Set  typ  a  window  on  the  128  screen. 
;  top  left  position 

;  clear  carry  to  set  position 
;  set  cursor  at  -Y..X 
;  T  (or  top  of  window 
;  print  ESC-T 
;  bottom  right 


;  now  print  ESC-B  for  bottom  of  window 
;  save  character  to  print  to  the  stack 
j  print  ESC 

;  poll  character  from  stack 
;  print  It  and  RTS 

eft  comer  is  on  the  ninth  row 
olumn 

j  The  following  two  values  are  offsets  from 
;  the  first  two. 

;  window's  bottom  right  comer  is  on  the 

;  seventeenth  row 

•  and  thirty-first  column 
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Name 

Open  a  disk  buffer  and  write  a  sector  to  disk 
Description 

This  routine  copies  a  block  of  256  bytes  from  computer  mem- 
ory to  a  memory  buffer  inside  the  disk  drive.  This  is  relatively 
low-level  disk  output;  most  of  the  time  you  can  just  read  and 
write  program  or  sequential  files.  There  are  times,  however, 
when  you  will  want  to  write  directly  to  a  disk  sector  (a  disk 
editor  must  be  able  to  do  this  and  so  must  a  program  that 
"unscratches"  a  file  that's  been  accidentally  scratched). 

Prototype 

1.  OPEN  15,8,15  with  no  filename  (SETLFS,  SETNAM,  and 
OPEN). 

2.  OPEN  1,8,3  with  the  name  #  (SETLFS,  SETNAM,  and 
OPEN,  again).  This  sets  aside  a  buffer  in  disk  drive 
memory. 

3.  Write  256  bytes  to  logical  file  1,  the  buffer  (B-P  is  optional). 

4.  Send  the  U2  (block-write)  command  to  logical  file  15  to 
transfer  the  buffer  to  disk. 

5.  Close  open  channels. 

Explanation 

This  routine  depends  heavily  on  Kernal  routines;  note  the  nu- 
merous equates  at  the  top  of  the  program.  The  first  JSR  goes 
to  the  subroutine  OPEN15,  which  opens  the  command  chan- 
nel to  the  disk  and  is  the  equivalent  of  the  BASIC  command 
OPEN  15,8,15.  The  usual  SETLFS,  SETNAM,  and  OPEN 
Kernal  routines  are  called.  The  next  subroutine  opens  logical 
file  1  (with  secondary  address  of  3)  and  reserves  a  buffer  by 
using  the  special  filename  #.  At  address  $C006,  CHKOUT  sets 
up  the  buffer  to  receive  output.  Finally,  256  bytes  are  printed 
to  the  disk  buffer  via  CHROUT. 

Now  that  our  message  is  in  the  disk  buffer,  we  have  to 
write  it  from  disk  memory  to  the  disk  itself.  Again  CHKOUT 
diverts  output,  but  to  the  command  channel  15  this  time.  The 
command  we  send  (an  ASCII  string  at  the  end  of  the  program) 
is  172  3  0  2  2.  The  U2  means  write  a  block;  3  is  the  secondary 
address  of  the  buffer  channel,  not  the  logical  file  number.  We 
opened  the  file  as  1,8,3  and  printed  to  1,  but  when  the  mem- 
ory is  copied,  we  provide  the  secondary  address  (channel  3) 
instead  of  1.  The  next  number  (ASCII  0)  is  always  a  zero,  un- 
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less  you  happen  to  own  a  dual  drive.  The 
are  the  track  and  sector  (in  that  order). 

Note:  If  there's  a  specific  byte  or  two  you'd  like  to  change 


mand,  write  the  character,  and  i 
appropriate  sector. 

Warning:  This  routine  writes  directly  to  a  disk  sector, 
regardless  of  what  might  already  be  there.  If  you're  going  to 
experiment  with  this  routine,  don't  use  a  disk  that  contains  im- 
portant files.  If  you  write  information  to  disk  sectors,  they  may 
be  overwritten  by  later  disk  access,  unless  you  mark  the  sector 
as  allocated  in  the  BAM. 


Routine 

cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 


SETLFS 

SETNAM 

OPEN 

CHKOUT 

CHKIN 

CHROUT 

CHRIN 

CLOSE 

CLRCHN 


COOO  20  47    CO  WRBUFF 

C003  20  SE  CO 

CO06  A2  01 

C008  20  C9  FF 

COOB  90  03 

COOD  4C  79  CO 

C010  AO  00  BUFOK 

C012  B9  BB  CO  WRITE 

C015  20  D2  FF 

C018  C8 

COW  DO  F7 

C01B  20  CC  FF 

COIF.  A2  OF 

C020  20  C9  FF 

C023  90  03 

CD25  4C  79  CO 

C028  AO  00  OUTOK 

C02A  B9  8E    CO  SENDIT 

C02D  FO  07 

C02F  20  D2  FF 

C032  C8 

C033  4C  2A  CO 

C036  20  CC  FF  QUIT15 


C039  A9  01  FINIS 

C03B  20    C3  FF 

C03E  A9  OF 

C040  20    C3  FF 

C043  20    CC  FF 


$FFBA 
$FFBD 
$FFC0 
$FFC9 
$FFC6 
SFFD2 


$FFC3 
SFFCC 


CHROUT 


BNE  WRITE 
JSR  CLRCHN 


LDX 

JSR 

BCC 

JMP 

LDV 

LDA 

BEQ 

JSR 

INY 


#15 

CHKOUT 
OUTOK 
ERROR 
#0 

BLKWR.Y 

Qurris 

CHROUT 

SENDIT 
CLRCHN 


LDA  #1 


JSR 

JSR  CLRCHN 


;  open  command  channel 
;  open  a  buffer 

;  ready  to  send  to  channel  1  (the  buffer) 
;  carry  clear  if  no  error 
;  else  print  error  message 
■  index  -  0 

;  start  writing  to  the  buffer 

;  send  it  out 

;  increment  index 

;  and  go  back  for  another,  until  256  bytes 
;  are  sent 

;  back  to  normal  I/O 

r 

;  open  the  command  channel 

;  for  output 

;  carry  clear  ™  OK 

;  otherwise,  an  error 

;  start  counter  at  zero 

f  and  send  it 
;  count  up 
;  and  continue 
,  restore  i/u 

; 

;  All  done,  so  close  it  down. 
;  close  logical  file  1 

;  and  clear  the  channels 
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C046  50 


C047 
C049 
C04B 


A9  OF 

A2  08 

AO  OF 

C04D   20  BA  FF 

C050    A9  00 

20  BD  FF 
20 
90 


OPEN15 


C052 
C055 
C058 
C05A  4C 
C05D  60 


CO  FF 
03 
79  CO 


COSE 
C060 
C062 
C064 
C067 
C069 


A9  01 

A2  08 

AO  03 

20  BA  FF 

A9  01 

A2  8D 

C06B    AO  CO 

C06D   20  BD  FF 

20  CO  FF 

90  03 

4C  79  CO 
60 


C070 
C073 
C075 
C078 


OK15 


OPNBUF 


OKBUF 


RTS 

IDA 
LDX 
LDY 


J3R 

JSR 
BCC 
IMP 
RTS 


LDA 

LDX 

LDY 

JSR 

LDA 

LDX 

LDY 

JSR 

JSR 

BCC 

JMP 

RTS 


#15 

#8 

#15 

SETLFS 
#0 

SETNAM 
OPEN 
OKI5 
ERROR 


#1 
#8 
#3 

SETLFS 
#1 

#<BLTFNAM 
#>BUFNAM 
SETNAM 


;  done 

;  subroutines 

;  logical  file  number 

;  device  number  for  disk  drive 

;  secondary  address  for  command  channel 

;  set  parameters  to  be  opened 

,-  length  is  zero  (no  filename) 


;  open  it 
;  check  for  error 
;  print  the  mess. 
;  and  we're  done 

t 


ERROR 


opens  a  disk  buffer  for  writing. 
;  logical  file  number 
;  device  number  for  disk  drive 
;  secondary  address  for  buffer  channel 

;  one  character 

I  the  filename  is  "#" 

;  set  up  the  name 
;  now  ifs  ready 
;  to  OKBUF  if  no  error 
;  JMP  to  error  if  there  is 
;  and  we're  done 


C079  20  CC  FF  ERROR 

C07C  AO  00 

C07E  B9  9A  CO  MORE 

C081  FO  07 

C083  20  D2  FF 

C086  C8 

C087  4C  7E  CO 

C08A  4C  39   CO  MSGEND 


MORE 
FINIS 


;  close  down  and  dear  channels 
;  ready  lo  prim  message 

;  message  ends  with  zero 
;  print  the  character 
;  increment  the  Index 
;  and  go  back 
;  Enish  closing  files 


C098 
C09A 
C0BA 
COBB 
COBB 
C0CB 
C0E0 
C0F7 
C100 


0D  00 

53  4F  4D  ERRMSG 
00 


BLOCK 


54  48  49 

20  57  48 

20  54  4F 

20  53  45 
0D 


See  also  RDBUFF. 


S3  02  2" 


;  U2  is  block-write  command 
;  3  is  secondary  address 
;  0  is  drive  number 


.BYTE  13.0 
•ASC 
.BYTE  0 
- 


.ASC 
.ASC 
ASC 
.ASC 


BYTE  13 


"this  is  a  string" 
"  which  we  are  writin< 
"  to  the  disk  at  track  I 
"  sector  2" 
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Name 

Write  a  buffer  to  a  sequential  or  pi 
Description 

WRITBF  relies  on  three  file-handling  routines — specifically, 
OPENFL,  WRITFL,  and  CLOSFL— to  write  a  data  buffer  to 
disk.  This  buffer,  whose  address  is  in  zero  page,  can  be  writ- 
ten as  either  a  sequential  or  a  program  file. 

Prototype 

In  the  calling  program  (MAIN,  below): 

1.  Define  the  length  of  the  data  buffer  to  write  to  disk  (as 
LENGTH). 

2.  On  the  128,  set  the  bank  to  15.  On  both  machines,  store  the 
address  of  the  data  buffer  in  zero  page.  Then  place  the 
buffer  length  in  the  .X  and  .Y  registers  (low  byte  in  .X,  high 
byte  in  .Y).  Finally,  JSR  to  WRITBF. 

In  WRITBF  itself: 

3.  Store  the  buffer  length,  in  .X  and  .Y  upon  entry,  into  a  two- 
byte  address  (here,  BUFCTR). 

4.  Open  a  sequential  or  program  filename  with  OPENFL. 

5.  Write  the  data  buffer  to  the  open  file  with  WRITFL. 

6.  Close  the  open  file  with  CLOSFL. 


In  the  example  program,  we  use  WRITBF  to  write  the  buffer 
containing  the  message  FILE  SEQUENTIAL  IS  37  CHARAC- 
TERS LONG  to  disk  as  a  sequential  file.  See  WRITFL  for  an 
explanation  of  how  to  write  a  program  file. 

Although  it  may  look  like  a  long  routine,  WRITBF  is  very 
short.  The  buffer  length  that  is  in  .X  (low  byte)  and  .Y  (high 
byte)  upon  entry  is  immediately  stored  in  BUFCTR.  From  this 
point  on,  it's  just  a  matter  of  accessing  the  three  routines  de- 
scribed elsewhere  in  this  book. 

Note:  You  can  add  disk  error  checking  to  this  program  by 
"ling  DERRCK,  as  we've  done  for  several  other  disk- 
i  routines  in  this  book. 


C000  SETLfS 
SETNAM 


OPEN  =  65472 

CHKOUT  =  65481 
CHROUT     -  65490 
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COOO  CLRCHN     —  65484 

C000  ZP  =251 

COOO  SETBNK      =       65384  ;  Kernal  bank  number  for  data  and  filename 

:  (128  only) 

MMUREG     =         65280  :  MMU  configuration  register  (128  only) 

:  WRITBF  uses  the  following  three  routines 
j  lo  write  characters 

i  from  a  buffer  in  memory  to  a  sequential  or 
;  program  file: 

;  OPENFL  to  open  the  sequential/program 
:  file, 

:  WRITFL  to  write  characters  to  the  file,  and 
j  CLOSFL  to  dose  the  file  and  restore 
.  the  default  output  device. 

;  Enter  WRITBF  with  buffer  address  in  zero 
;  page,  length  in  .X,  .Y. 

:  LDA  *0;  set  the  128  to  bank  15  (128  only) 
;  STA  t  " 


MAIN 


COOO    A9  71  LDA  =<BUFFER 

C002    85  FB  STA  ZP 

C004    AO  CO  LDY  »>BUFFER 

C006    84  FC  STY  ZP+1 

C008    AE  96  CO  LDX  LENGTH  ;  store  length  of  buffer  in  .X  (low)  and  ,Y 

;  (high) 

C00B    AC  97  CO  LDY  LENGTH +1 

20  12  CO  JSR  WRTTBF  ;  go  write  data  to  file 


;  WRITBF  opens  a  5EQ  or  PRG  file  data 
:  from  buffer  at  ZP. 

;  Enter  the  routine  with  buffer  length  in  .X 
;  (low  bvte)  and  Y  (high). 
C012    BE    98    CO   WRITBF      STX      BUFCTR  ;  store  length  of  buffer  (in  .X  and  .Y)  to 

;  memory 

C015    8C  99    CO  STY     BUFCTR  +  ] 

C018    20    23    CO  JSR      OPENFL  ;  OPEN  the  file  with 


C01B    20    39    CO  JSR      WRITFL  ;  write  data  from  t 

C01E    A9  01  LDA     #1  ;  file  to  close 

120    4C  5B  CO  JMP     CLOSFL         ;  close  file  1,  restore  default  devices,  and 

;  return  to  MAIN 


C023  OPENFL 


i  OPENFL  opens  a  sequential  or  program  file 
;  with  1,8.2  for  reading  or  writing. 

J  Open  channel  15  here  if  you  include  error 
j  checking  (DERRCK). 


C023  A9  01  LDA  #1  j  logical  file  1 

C025  A2  08  LDX  #8  ;  device  number  for  disk  drive 

C027  AO  02  LDY  #2  ;  seconda  

C029  20  BA  FF                     )SR  SETLFS  :  file  parameters  set 


;  Include  the  following  three  instructions  on 
:  the  128  only. 

:  LDA  BNKNUM;  bank  number  for  f 
;  LDX  BNKFNM;  bank  number  for  f 
:  filename 
i  JSR  SETBNK 


C02C  A9    10  LDA 
C02E    A2   61  LDX  P<FTLENM 
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■  n» 

C035    20    CO  FF 


it  VBT 

JSR  OPEN 


RT5 


C039    A2  01  WRITFL      LDX  #1 

C03B    20    C9   FF  JSR  CHKOUT 


C03E 

AO  00 

LDY 

#0 

C040 

Bl  FB 

WRLOOP 

LDA 

(ZP),Y 

C042 

20  D2 

FF 

]SR 

CHROUT 

C045 

E6  FB 

INC 

ZP 

C047 

DO  02 

BNE 

LENCHK 

C049 

E6  FC 
CE  98 

CO  LENCHK 

INC 
DEC 

ZP+1 
BUFCTR 

DO  FO 

BNE 

WRLOOP 

C050 

CE  99 

CO 

DEC 

BUFCTR+1 

C053 

AD  99 

CO 

LDA 

BUFCTR+1 

C056 

C9  FF 

CMP 

#255 

DO  E6 
60 

BNE 
RTS 

WRLOOP 

C05B 

20  C3 

FF  CLOSFL 

JSR 

CLOSE 

C05E 

4C  CC 

FF 

JMF 

CLRCHN 

C061 

30    3A  53  FILENM 

ASC 

"0:SEQUEN- 

C071 

FNLENG 

•-FILENM 

;  JSR  DERRCK;  Insert  here  for  disk  error 
:  checking 

S  return  to  WRITBF 

;  WRJTFL  writes  characters  from  a  buffer 
;  whose  address  is  in  zero  page 
:  to  a  sequential  or  program  file. 

:  Include  the  following  four  lines  to  send  the 

.  load  address  for  a  program  file. 

|  LDA  ZP;  output  low/high-byte  address  of 

:  buffer  in  zero  page  to  disk 

;  JSR  CHROUT 

i  LDA  ZP+1 

:  JSR  CHROUT 

•#.  ...   

I  initialize  index  into  the  storage  buffer 

;  load  a  character  from  buffer 

;  send  it  to  the  open  file 

;  Increment  low  byte  of  buffer  address 

i  low  byte  hasn't  turned  over,  so  skip  forward 

:  otherwise,  increase  high  byte 

;  decrement  low  byte  of  buffer  counter 

;  if  not  equal,  more  of  the  buffer  remains,  so 

;  continue  writing 

:  otherwise,  decrement  the  high  byte  of 
;  buffer  counter 

i  continue  writing  until  last  page  of  buffer 
:  has  been  sent 

:  high  byte  goes  from  0  through  255  on  last 
ich  last  page,  so  write  on 


:  CLOSFL  closes  the  logical  file  in  .A  and 
:  restores  default  devices. 
:  close  file  in  Ji 

;  clear  all  channels,  restore  default  devices, 


K  routine  here  if  you're 


riAL.S,W" 

;  example  sequential  file  to  write 

;  ,S,W  is  optional  with  sequential  file  writes. 

;  Change  Filename  to  "O.PROGRAM.P.W"  to 

;  write  a  program  file. 

:  length  of  filename 

; 
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C07)  46  49  4C  BUFFER  .ASC  "FILE  SEQUENTIAL  iS  37  CHARACTERS  LONG" 
C096    25    00  LENGTH      .WORD37  ;  two  bytes  for  storing  buffer  length 

C098    00   00         BUFCTR      .WORD0  ;  two-byte punter  for  remaming  number  of 

; 

;  Include  the  next  two  variables  on  the  128. 
:  BNKNUM  .BYTE  0:  bank  number  for  file 
I  data 

;  BNKFNM  .BYTE  0;  bank  number  where 
;  ASCII  filename  Is  located 

See  also  CLOSFL,  WRITFL. 
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Name 


s  to  a  sequential  or  program  file 


Description 

This  routine  transfers  data  from  a  buffer  whose  address  is  in 
zero  page  to  an  open  file.  It's  intended  to  be  used  in  a  pro- 
•  -    -'here  sequential  or  program  data  is  written  to  disk,  such 


Prototype 
1 


Before  accessing  WRITFL,  call  OPENFL  to  open  a  channel 
where  the  data  will  be  written.  Also,  store  the  address  of 
the  data  buffer  to  be  written  to  disk  in  zero  page. 
Define  the  output  channel  as  the  one  opened  with 


3.  If  you're  outputting  a  program  file  and  wish  to  include  a 
program  load  address,  send  the  buffer  address  bytes  (low 
byte  first,  then  high  byte)  stored  in  zero  page. 

4.  Write  a  given  number  of  bytes  (the  number  is  stored  in  the 
counter  BUFCTR)  from  the  buffer  to  the  open  channel. 
Then  return  to  the  calling  program. 

Explanation 

WRITFL  takes  data  from  a  buffer  and  outputs  it  to  an  open 
disk  file  until  BUFCTR  bytes  have  been  sent.  The  routine  as- 
sumes the  data  buffer's  address  is  in  zero  page  (in  $FB,  labeled 
ZP).  Be  sure  to  set  up  this  pointer  before  accessing  WRITFL. 

In  the  example  below,  the  logical  file  used  for  the  transfer 
is  1.  This  file  number  should  have  been  assigned  previously 
by  a  routine  that  opened  the  data  channel.  If  you  need  to  out- 
put data  through  some  other  channel,  such  as  the  printer  or 
tape  drive,  load  the  X  register  with  the  appropriate  value  in 
$C000. 


Routine 

cooo 
cooo 
cooo 


CHKOUT 
CHROUT 


6548 1 


COOO  A2  01  WRITFL 
C002    20    C9  FF 


LDX 
JSR 


#1 

CHKOUT 


j  WRITFL  writes  characters  from  a 
;  whose  address  is  in  zero  page 
:  to  a  sequential  or  program  file. 

;  send  output  lo  file  1 


;  Include  the 
;  the  load 


,  output  low/high  byte  address  of 


;  buffer  in  zero  page  to  di 
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C009 

cooc 

COOE 
C010 


AO 
Bl 

20 
E6 
DO 


C017 

C01A 

C01D 
COIF 
C021 


00  LDY  #0 

FB  WRLOOP    LDA  <ZP),V 

D2  FF  JSR  CHROUT 

FB  INC  ZP 

02  BNE  LENCHK 

INC  ZP+1 


CE 

AD 

C9 
DO 
GO 


23  CO 

23  CO 

FF 
E6 


DEC  BUFCTR+1 
LDA  BUFCTR+1 


RTS 


#253 

WRLOOP 


C022    00   00  BUFCTR 


;  JSR  CHROUT 
; LDA  ZP+1 
;  JSR  CHROUT 

;  initialize  index  into  ihe  storage  buffer 

;  load  a  character  from  buffer  whose 

:  address  is  in  ZP 

;  send  it  to  the  open  file 

;  increment  low  byte  of  buffer  address 

;  low  byte  hasn't  rolled  over,  so  skip 

;  forward 

;  otherwise,  increase  high  byte 

i  decrement  low  byte  of  buffer  counter 

;  if  not  equal,  more  of  the  buffer  remains, 

;  so  continue  writing 

;  otherwise,  decrement  the  high  byte  of 

;  buffer  counter 

;  continue  writing  until  last  page  of  buffer 
;  has  been  sent 

;  high  byte  goes  from  0  to  255  on  last  page 
;  we've  yet  to  reach  last  page,  so  write  on 
;  return  to  main  program 

;  two-byte  counter  for  remaining  number  of 


See  also  CLOSFL,  WRITBF. 
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Name 

Set  colors  for  extended  background  color  mode 
Description 

Extended  background  color  mode  reduces  the  size  of  the  avail- 
able character  set  from  256  characters  to  only  64.  But  at  the 
same  time,  you  have  a  choice  of  four  different  background  col- 
ors, with  no  loss  of  horizontal  resolution.  This  routine  sets  the 
four  background  colors. 

Prototype 

Read  the  four  color  values  from  EXBCOL  and  store  them 
ig  at  location  53281  ( 


Explanation 

To  set  the  background  colors,  assign  the  color  values  for  the 
four  groups  of  characters  (0-63,  64-127,  128-191,  and  192- 
255)  in  EXBCOL  at  the  end  of  the  program. 

The  program  fragment  below  illustrates  how  the  four  col- 
ors are  set.  For  a 
color  mode,  see  XBCMOD. 


Routine 

cooo 

COOO  A2  03 

C002  BD  OC 

C005  9D  21 

COOS  CA 

C009  10  F7 

CO0B  60 


BGCOL0 


53281 


XBCCOL     LDX  #3 

COLOOP    IDA  EXBCOLX 

STA  BGCOL0,X 

BPL  COLOOP 
RTS 


;  text  background  color  register  0 

;  as  an  index 
;  Ret  each  color  value 
,  il  to  a  register 


;  do  all  four 


COOC   03    04    05    EXBCOL      .BYTE  3,4.5,2  ;  colors— cyan,  purple,  green,  red 

See  also:  XBCMOD,  MTCCOL,  MTCMOD. 


Name 

Turn  extended  background  color  mode  on  or  off 


Two  closely  related  routines  are  demonstrated  here  in  one  pro- 
gram. The  first  routine,  XBCMOD,  turns  on  (or  off)  extended 
background  color  mode  while  the  second,  XBCCOL,  sets  the 
colors  for  this  mode. 

By  using  these  two  routines  in  your  programs,  some  in- 
teresting special  effects  can  b« 


1.  Load  the  contents  of  the  vertical  fine-scrolling/control  reg- 


2.  ORA  with  %01000000  to  turn  on  bit  6  and  store  the  result 
back  into  the  register.  (To  turn  off  extended  background 
color  mode,  AND  the  contents  of  SCROLY  with  %10111111.) 

Explanation 

Normally,  the  background  color  for  text  characters  is  taken 
from  the  color  register  at  53281,  or  BGCOLO.  But  by  activating 
extended  background  color  mode  (setting  bit  6  of  SCROLY), 
each  character's  background  color  is  instead  taken  from  one  of 
four  color  registers  (53281-53284),  depending  on  the  screen 
code  of  the  character  to  be  displayed. 

In  this  mode,  the  screen  codes  are  divided  into  four 
groups:  0-63,  64-127,  128-191,  and  192-255.  Only  characters 
from  the  first  group  (screen  codes  0-63)  can  be  displayed. 
Fortunately,  this  group  contains  most  of  the  characters  you  or- 
dinarily need  (you  may  wish  to  define  new  characters  if  you'd 
rather  use  64  other  characters).  Within  this  group  are  the  let- 
ters A-Z,  the  numbers  0-9,  and  the  punctuation  marks.  When 
one  of  the  characters  from  this  group  is  printed,  the  back- 
ground color  for  the  character  is  taken  from  BGCOLO. 

Characters  with  screen  codes  above  63  will  appear  the 
same  as  the  first  group  (screen  codes  0-63),  except  that  their 
background  colors  will  come  from  one  of  the  three  remaining 
color  registers  (53282-53284).  To  determine  what  a  particular 
character  will  look  like  on  the  screen  if  its  display  code  is 
higher  than  63,  subtract  the  initial  screen  code  for  the  group 
from  the  intended  display  code  and  locate  the  corresponding 
character  in  the  first  group  of  screen  codes. 

For  example,  if  you  placed  the  spade  character  (screen 
code  65)  on  the  screen,  and  turned  on  ex! 
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color  mode,  you'd  see  the  letter  A  (screen  code  65  —  64  =  1) 
in  a  background  color  taken  from  the  register  at  53282 
(BGCOL1). 

The  fact  that  each  group  of  screen  codes  has  a  different 
background  color  in  this  mode  allows  you  to  create  some 
impressive  animation  and  windowing  effects.  For  instance,  if 


group's  color  register,  a  three-dimensional  movement  effect 
can  be  achieved.  You  can  also  simulate  a  window  by  printing 
certain  messages  using  characters  from  just  one  screen-code 
group.  These  effects,  of  course,  take  on  an  added  dimension  if 
you  use  redefined  characters. 

Take  a  look  at  the  example  program  to  see  how  these  two 
routines  work  together.  In  SCRLOP,  we  first  display  all  screen 
codes  (0-255)  at  the  top  of  the  screen.  When  you  press  a  key, 
extended  background  color  mode  is  activated  with  XBCMOD, 
and  the  respective  colors  for  the  four  groups  of  screen  codes 
are  assigned  in  XBCCOL.  The  result  is  that  the  first  64  screen 
codes  are  now  displayed  four  times.  And  each  group  of  screen 
codes  is  shown  in  a  different  background  color. 

Note:  While  in  extended  background  color  mode,  if  you 
need  a  character  not  available  in  the  first  64  screen  codes, 
you'll  have  to  define  it  yourself.  You  can  perform  this  task 
'  "j  a  character-redefinition  routine  like  CHRDEF. 


Routine 

cooo 
cooo 
cooo 
cooo 
cooo 


BGCOLO  = 
SCROLY 
SCREEN 
CHROUT  = 
GETIN  = 


53281 
53265 
1024 
65490 


COOO    20    03    CO  MAIN 


C003    A9  93  CHRCLR 

COOS    20  D2  FF 

C008    AO  00 

CO0A  98  SCRLOP 

C00B    99  00  04 


JSR  CHRCLR 


C00F    DO  F9 

C011  20  E4  FF  CETXEY 
C014    F0  FB 


;  text  background  color  register  0 
;  scroll /control  register 


; 

;  Display  screen  codes  0-255.  Then  turn  on 

;  extended  background  color  mode. 

i  set  extended  background  colors.,  and  again 

;  display  screen  codes  0-255. 

;  clear  screen,  display  0-255  screen  codes, 

i  and  wait  for  key 

i  Clear  the  screen  and  display  0-255  screen 
;  codes. 

;  clear  the  screen 

;  as  an  index  in  SCRLOP 

;  display  0-255  screen  codes  in  normal  mode 
;  for  next  screen  code 

-  :nH  rnntirmp 
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C016  20  1C  CO 
C019    4C   25  CO 


JSR  XBCMOD 
JMP  XBCCOL 


C01C  AD  U  DO  XBCMOD  LDA  SCROLY 
COIF    09    40  ORA 


C021  8D  11  DO 
C024  60 


C025 

A2 

03 

C027 

BD 

31  CO 

C02A 

9D 

21  DO 

C02D 

CA 

C02E 

10 

F7 

C030 

60 

C031 

03 

04  05 

Seet 

ilso 

STA  SCROLY 
RTS 


LDX  #3 

LDA  EXBCOL.X 

STA  BGCOL0.X 
DEX 

BPL  COLOOP 
RTS 


;  turn  on  extended  background  color  mode 
,  assign  extended  background  colors  and  RTS 

■  Turn  on  (or  off)  extended  background  color 
;  mode. 

;  get  current  register  value 


;  turn  on  bit  6  (turn 
;  %]  0111111  here) 
;  and  set  the  register 


:  as  an  Index 
:  get  each  color  value 
;  assign  it  to  a  register 
;  for  next  register 


AND 


I  background 
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Addition 

ADDBYT 

ADDFP 

ADDINT 

INC2 

Branching 


GOTOST 


Add  two  byte  values  and  store  the  result  in  memory 
Add  two  floating-point  numbers,  using  the  ROM  routine 
Add  two  2-byte  integer  values  and  store  the  result  in  memory 
Increment  a  two-byte  counter 


GOTO 
branches 

GOTO  from  a  character  input  and  execute  using  the  stack 


Changing  BASIC  pointers 

MBU64  (64  only)  Move  BASIC  text  area  above  an  ML  program 
MBU128       (128  only)  Move  BASIC  text  area  above  an  ML  program 


Character 

BUFCLR 

CHRGTR 

CHRGTS 

CHRKER 

MATGET 

SHFCHK 


input 

Clear  the  keyboard  buffer 
Get  a  character  within  an  ASCII  range 
Get  a  specific  character 
Get  a  character 

Get  a  character  using  the  keyboard  matrix 
Check  the  status  of  the  shift  keys 
Check  for  STOP  key  by  using  the  system  STOP  flag 
Check  for  the  STOP  key  using  the  Kernal  STOP  routine 
Input  a  line  of  text  using  a  custom  routine 
TXTINP        Input  a  line  of  text  with  the  ROM  routine  INLIN 

Character  output 

CHARX4       Print  semilarge  (4  X  4)  characters 
CHARX8       Print  large  (8  X  8)  characters 
POKSCR       POKE  to  screen  and  color  memory 
PRTCHR       Print  a  character  on  the  screen 
PTABAD       Print  a  string  from  a  lookup  table  of  addresses 
PTABCT       Print  a  string  from  a  table  by  using  a  counting  method 
STP64         (64  onlv)  Print  a  string  with'  STROUT 
STP128         (128  only)  Print  a  string  with  PRIMM 

Print  a  string  with  a  custom  printing  routine 


STRLEN 
Clearing  the  screen 

CLRCHR      Clear  the  screen  with  CHR$(147) 
CLRF1L         Clear  the  screen  with  a  fill  routine 
CLRROM     Clear  the  screen  with  a  ROM  routine 


Colors 

BCKCOL 
BORCOL 
COLFIL 
MTCCOL 


Set  the  text-screen  background  color 
Set  the  text-screen  border  color 
Fill  text-screen  color  memory 
Set  colors  for  multicolor  mode 
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MTCMOD 

TXTCCH 

TXTCOL 

XBCCOL 

XBCMOD 


Turn  multicolor  mode  on  or  off 
Set  the  text  color  using  CHR$ 
Set  the  text  color 

Set  colors  for  extended  background  color  mode 
Turn  extended  background  color  mode  on  or  off 


Combining  ML  and  BASIC 

GOTOBL      Exit  machine  language  and  GOTO  a  BASIC  line  number 
PASFMV       Pass  values  from  BASIC  to  ML  using  the  FRMEVL  routine 
PASMEM      Pass  values  from  BASIC  to  ML  by  POKEing  to  free  memory 
PASREG       Pass  values  to  an  ML  program  directly  through  the  registers 
PASUSR       Pass  values  from  BASIC  to  ML  via  the  USR  function 

Cursor  routines 

FTNDCR       Find  the  cursor  location 
PLOTCR       Set  the  cursor  location 
RPTKEY 


Custom  characters  and  animation 

ANIMAT      Animation  by  alternating  character  sets 
CHRDEF      Character  redefinition 

CUST80       (128  only)  Custom  characters  for  the  80-column 
Delay  loops 

BYT1DL       Cause  a  one-byte  delay 
Cause  a  two-byte  delav 

Produce  a  delay  using'an  IRQ  interrupt  counter 
Jiffy  clock  delay 
Wait  for  a  keypress 
Time-of-day  (TOD)  clock  1  delay 

routines 

Read  the  directory  as  a  stream  of  bytes 
Load  the  directory  as  a  program  file 
Print  the  number  of  free  sectors  remaining  on  the  disk 


BYT2DL 
INTDEL 


DIRBYT 
DIRPRG 
FRESEC 


Disk  commands 

CONCAT  Concatenate  two  files 

COPYFL  Copy  a  file  to  the  same  disk 

FORMAT  Format  a  disk 

INITLZ  Initialize  a  disk 

RENAME  Rename  a  disk  file 

SCRTCH  Scratch  (erase)  a  dis 

VALIDT  Validate  a  disk 

Division 

DIVBYT  Divide  one  byte  value  by 

remainder)  in  memory 

DIVFP  Divide  one  floating-point  number  by  another 

DIVINT  Divide  one  integer  value  by  another 


80-column  routines  (128  only) 

CUST80        (128  only)  Custom  characters  for  the  80- 


FINDME 

F1NDPC 

RSREGM 

SVREGM 

SVREGS 


screen 
?ochip 

Write  to  80-column  video  attribute  memory 


Find  the  address  in  the  program  counter  (from  a  subroutine) 
Find  the  address  in  the  program  counter  (in-line  code) 
Restore  registers  from  memory 
Save  processor  registers  in  memory 

Save  and  restore  registers  on  the  stack  within  a  routine  (in-line 


Hi-res  graphics 

BITMAP       Enable/disable  the  hi-res  screen  (bitmap  mode) 
Clear  a  hi-res  screen  using  a  fill  method 
Clear  a  hi-res  screen  using  self-modifying  code 

Set  or  clear  a  point  on  the  hi-res'  screen  based  on  polar 
coordinates 

Set  or  clear  a  point  on  the  hi-res  screen 
Fill  an  irregular  hi-res  enclosed  outline  with  a  solid  color 


CLRHRF 
CLRHRS 


HRSETP 
PAINT 


I  alarm 


Interropt-driven  routines 

ALARM2  Set  up  a  time-of-day  I 

INTCLK  Interrupt-driven  clock 

INTMUS  Interrupt-driven  music 

RAS64  Set  up  a  raster  interrupt  on  the  64 

RAS128  Set  up  a  raster  interrupt  on  the  128 

SPRINT  Sprite  interrupt  routine — automatic  sprite  movement 

clock  functions 

Jiffy  clock  delay 
JIFFRD         Read  the  jiffy  clock 
IFPRT         Print  the  jiffy  clock  reading 
Set  the  jiffy  clock 


Joystick  routines 

FIREBT         Read  a  joystick  fire  button 

JOY2SE         Read  both  joysticks  separately 

JOY2TO       Read  the  two  joysticks  together  as  one  stick 

JOYSTK        Read  a  joystick 

Loading  files 

LOADAB      Load  a  program  (ML  or  BASIC)  to  the  location  from  which  it 
was  saved 

LOADBS       Load  a  BASIC  program  into  the  current  BASIC  text  area 
LOADRL       Load  a  BASIC  or  ML  F 
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Lookup  tables 

HIDBIT        Hide  a  two-byte  instruction  with  the  BIT  instruction 
NOTETB      Create  a  table  of  standard  frequencies  (eight  octaves/ 12  notes 


PTABAD 
PTABCT 


Print  a  string  from  a  loc 
Print  a  string  from  a  table  b 


table  of  addresses 
using  a  counting  method 


FETCH 
F1LMEM 
MOVEDN 
MVU64 
MVU128 
POKRUR/ 
PEKRUR 
STASH 

swapit 


Modifying  BASIC 


(128  only)  Retrieve  from  expansion  RAM  memory 
General  memory  fill 

Move  block  of  data  downward  in  memory 

(64  only)  Move  block  of  data  upward  in  memory 

(128  only)  Move  block  of  data  upward  in  memory 


(64  only)  POKE  RAM  under  ROM  /  PEEK  RAM  under 
( '  2fi  only)  Store  system  memory  to  «™""«n  ram 


ier  ROM 


B2UNIN 


Multiplication 

Dl      Multiply  two  numbers  with  successive  adds 

Multiply  two  numbers  with  repeated  addition  (optimized 
version) 

Multiply  two  floating-point  numbers 
Multiply  two  unsigned  integer  values  using  bit  shifts 

Number  conversions 

B2SNIN       Convert  a  signed  byte  value  to  a  signed  integer  value 

Convert  a  byte  value  (8  bits)  to  an  unsigned  integer  value  (16 
bits) 

Convert  a  binary-coded  decimal  value  to  ASCII  characters 
Convert  binary-coded  decimal  (BCD)  to  a  byte  value 
Convert  an  ASCII  number  to  a  binary  Integer 
Convert  a  byte  value  to  an  ASCII  number  by  using  subtraction 
Convert  a  byte  value  (0-99)  to  a  BCD  number 
•  to  two ' 


CB2BCD 
CB2HEX 
CI2FP/ 
CFP2I 
CI2HEX 

CNVBFP 


Convert  signed  integer  values  to  floating  point  and  vice  versa 
Convert  a  two-byte  integer  value  to  four  hexadecimal  (ASCII) 
digits 

Convert  a  two-byte  value  to  floating-point,  using  the  ROM 
routine 


Printer  routines 

CLOSFL       Close  a  file  and  restore  default  devices 
OPENPR      Open  a  printer  channel 
PRTOUT       Send  characters  to  the  printer 
PRTSTR       Send  a  string  to  the  printer 
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Printing  numbers 

BYTASC       Print  a  one-byte  integer  value 
Print  a  two-byte  integer  value 

Print  value  in  floating-point  accumulator  1  to  a  specified  num- 
ber of  decimal  places 

Print  value  in  floating-point  accumulator  1 
e  integer  values 


RDBYRG 
RND1VL 


CNUMOT 
FACPRD 

FACPRT 
NUMOUT 

Random  numbers 

RD2BYT       Generate  a  random  two-byte  integer  value  using  SID  voice  3 
Generate  a  random  one-byte  integer  value  in  a  range 
Generate  a  random  floating-point  number  using  BASIC'S 
RND(l)  function 

Generate  a  random  one-byte  integer  value  ( 
voice  3 

Reading  files 

OPENFL       Open  a  sequential  or  program  file 

READBF      Read  bytes  from  a  sequential  or  program  file  into  a  buffer 
READFL       Read  characters  from  a  sequential  or  program  file 

Reading  the  error  channel 

CHK144       Check  peripheral  status  via  location  144 

DERRCK       Check  the  disk  status  and  print  a  message 

RDSTAT       Check  the  I/O  status  by  using  the  Kemal  READST  routine 

Read/write  disk  sector 

RDBUFF       Open  a  " 


channel,  read  a  sector,  copy  the  disk  buffer  to 
WRBUFF      Open  a  disk  buffer  and  write  a  sector  to  disk 


Relocating  the  screen 

CHOUTP 


?t  screen  memory  q 
screen  location 


SAi 
SAVEML 
VERIFY 


Save  a  BASIC  program 
Save  an  ML  program 
Verify  a  disk  file 


Scrolling 

BIGMAP 
SCRDN1 


Display  in  a  virtual  window  portions  of  a  much  larger  map 
(64  only)  Scroll  down  a  line  with  INST  character 
(64  only)  Scroll  the  screen  down  a  line  with  the  ROM  insert 
routine' 

SCRDN3      Scroll  down  a  line  of  the  screen  by  copying  screen  and  color 


memory 
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SRCBIN 


Sorting 

ALPNTR 
ALSWAP 
SRCBIN 


Binary  search  of  a  sor 
Linear  search  for  a  s 


Alphabetize  by  swapping  pointers 
Alphabetize  a  list  by  swapping  strii 
Binary  search  of  a  sorted  list 


s  that  are  out  of  order 


Sound  and  music 
BEEPER       Emit  a  beep  sound 
BELLRG       Emit  a  bell  sound 
EXPLOD       Produce  an  explosion  sound 
INTMUS  Interrupt-. 
MELODY  Tune 
NOTETB       Create  a 
each) 

SIDCLR       Clear  the  SID  chip 
SIDVOL        Set  the  SID  chip  volume  register 
Produce  a  siren  sound 


Move  sprite  to  an  absolute  (predetermined)  screen  location 
(64  only)  Set  up  a  raster  interrupt 
(128  only)  Set  up  a  raster  interrupt 
c,  1  routine — automatic  sprite  movement 


Sprites 

MOVSAB 
RAS64 
RAS128 
SPRINT 


Square  roots 

SQROOT      Calculate  the 


•  root  of  an  integer 


String  conversions 

CASSCR       Convert  Commodore  ASCII  characters  into  screen  codes 
CASTAS       Convert  Commodore  ASCII  characters  to  true  ASCII 

MIXLOW  Convert  mixed-case  characters  to  all  lowercase 

MIXUPP  Convert  mixed-case  characters  to  all  uppercase 

SCRCAS  Convert  screen  codes  to  Commodore  ASCII  characters 

SWITCH  Switch  uppercase  to  lowercase  and  vice  versa 

TASCAS  Convert  characters  from  true  ASCII  to  Commodore  ASCII 

Subtraction 

SUBBYT  Subtract  one  byte  value  from  another 

SUBFP  Subtract  one  floating-point  number  from  another 

SUBINT  Subtract  one  2-byte  integer  value  from  another 

Time  of  day  (TOD)  clock  functions 

ALARM2      Set  up  a  time-of-day  (T 
Interrupt-driven  clock 
Time-of-day  (TOD)  clock  1  delay 
Read  a  time-of-day  (TOD)  clock 
Print  the  time-of-day  (TOD)  time 

Set  a  time-of-day  (TOD)  clock 


INTCLK 
TOD1DL 


TOD1S 
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Vectors 

DISRSR  Disable  RUN/STOP-RESTORE 

DISTOP  Disable  the  STOP  key  by  changing  the  STOP  vector 

ERRRDT  Change  the  ERROR  vector 

IRQINT  Set  up  an  IRQ  interrupt  routine 

NMIINT  Set  up  an  NMI  interrupt  routine 

RSTVEC  Restore  all  Kernal  indirect  vectors 

Windows 

BIGMAP  Display  in  a  virtual  window  portions  of  a  much  larger  map 

WINDOW  (128  only)  Set  window  boundaries  with  escape  codes 

Writing  files 

CLOSFL  Close  a  file  and  restore  default  devices 

WRITBF  Write  a  buffer  to  a  sequential  or  program  file 

WRITFL  Send  characters  to  a  sequential  or  program  file 
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ADDBYT  Add  two  byte  values  and  store  the  result  in  memory 

ADDEP  Add  two  floating-point  numbers,  using  the  ROM  routine 

ADDINT  Add  two  2-byte  integer  values  and  store  the  result  in  memory 

ALARM2  Set  up  a  time-of-day  (TOD)  alarm 

ALPNTR  Alphabetize  by  swapping  pointers 

ALSWAP  Alphabetize  a  list  by  swapping  strings  that  are  out  of  order 

ANIMAT  Animation  by  alternating  character  sets 

B2SNTN  Convert  a  signed  byte  value  to  a  signed  integer  value 

B2UNIN  Convert  a  byte  value  (8  bits)  to  an  unsigned  integer  value  (16 
bits) 

BCD2AX  Convert  a  binary-coded  decimal  value  to  ASCII  characters 

BCD2BY  Convert  binary-coded  decimal  (BCD)  to  a  byte  value 

BCKCOL  Set  the  text-screen  background  color 

BEEPER  Emit  a  beep  sound 

BELLRG  Emit  a  bell  sound 

BIGMAP  Display  in  a  virtual  window  portions  of  a  much  larger  map 

BITMAP  Enable/disable  the  hi-res  screen  (bitmap  mode) 

BORCOL  Set  the  text-screen  border  color 

BUFCLR  Clear  the  keyboard  buffer 

BYT1DL  Cause  a  one-byte  delay 

BYT2DL  Cause  a  two-byte  delay 

BYTASC  Print  a  one-byte  integer 

CAS21N  Convert  an  ASCII  number  to  a  binary  integer 

CASSCR  Convert  Commodore  ASCII  characters  into  screen  codes 

CASTAS  Convert  Commodore  ASCII  characters  to  true  ASCII 

CB2ASC  Convert  a  byte  value  to  an  ASCII  number  by  using  subtraction 

CB2BCD  Convert  a  byte  value  (0-99)  to  a  BCD  number 

CB2HEX  Convert  a  byte  value  to  two  hexadecimal  digits  (ASCII) 

CFP21  See  CI2FP 

CHARX4  Print  semilarge  (4  X  4)  characters 

CHARX8  Print  large  (8  X  8)  characters 

CHK144  Check  peripheral  status  via  locationU4    ^  qj^qjjj 

CHRDEF  Character  redefinition  """ 

CHRGTR  Get  a  character  within  an  ASCII  range 

CHRGTS  Get  a  specific  character 

CHRKER  Gel  a  character 
CI2FP/ 

CFP2I  Convert  signed  integer  values  to  floating  point  and  vice  versa 

CI2HEX  Convert  a  two-byte  integer  value  to  four  hexadecimal  (ASCII) 
digits 

CLOSFL  Close  a  file  and  restore  default  devices 

CLRCHR  Clear  the  screen  with  CHR$(147) 

CLRFIL  Clear  the  screen  with  a  fill  routine 

CLRHRF  Clear  a  hi-res  screen  using  a  fill  method 

CLRHRS  Clear  a  hi-res  screen  using  self-modifying  code 

CLRROM  Clear  the  screen  with  a  ROM  routine 
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CNUMOT 


CNVERT 

COLDST 

COLFIL 

CONCAT 

COPYFL 

CUST80 

DATAMK 

DERRCK 

DIRBYT 

DIRPRG 

DISRSR 


DIVFP 

DIVINT 

ERRRDT 

EXPLOD 

FACPRD 


FILMEM 

FINDCR 

F1NDME 

FINDPC 

FIREBT 

FORMAT 

FRESEC 

GOTOBL 

GOTOCP 

GOTOST 
HTDBIT 
HRCOLF 
HRPOLR 

HRSETP 

INC2 

INITLZ 

INTCLK 

INTDEL 

INTMUS 

IRQINT 

JIFDEL 

JIFFRD 

JIFPRT 

J1FSET 


Print  a  two-byte  ir 
Convert  a  two-byte  value  to  a  floating-point  number,  using  a 
ROM  routine 

Character  conversion  using  a  lookup  table 
Cold  start 

Fill  text-screen  color  memory 
Concatenate  two  files 
Copy  a  file  to  the  same  disk 

(128  only)  Custom  characters  for  the  80-column  screen 
Create  DATA  statements  from  numbers  in  memory 
Check  the  disk  status  and  print  a  message 
Read  the  directory  as  a  stream  of  bytes 
Load  the  directory  as  a  program  file 
Disable  RUN /STOP-RESTORE 
Disable  the  STOP  key  by  changing  the  STOP  vector 
Divide  one  byte  value  by  another  and  store  the  result  (and 
remainder)  in  memory 

Divide  one  floating-point  number  by  another 
Divide  one  integer  value  into  another 
Change  the  ERROR  vector 
Produce  an  explosion  sound 

Print  the  value  in  floating-point  accumulator  1  to  a  si 
number  of  decimal  places 
Print  the  value  in  floating-point  accumulator  1 
(128  only)  Retrieve  from  expansion  RAM  memory 
General  memory  fill 
Find  the  cursor  location 

Find  the  program  counter  (from  a  subroutine) 
Find  the  program  counter  (in-line  code) 
Read  a  joystick  fire  button 
Format  a  disk 

Print  the  number  of  free  sectors  remaining  on  the  disk 
Exit  machine  language  and  GOTO  a  BASIC  line  number 
GOTO  from  a  ru- 


GOTO  from  a  character  input  and  execute  using  the  stack 
Hide  a  two-byte  instruction  with  the  BIT  instruction 
Fill  high-resolution  color  memory 

Set  or  clear  a  point  on  the  hi-res  screen  based  on  polar 
coordinates 

Set  or  clear  a  point  on  the  hi-res  screen 
Increment  a  two-byte  counter 
Initialize  a  disk 
Interrupt-driven  clock 

Produce  a  delay  using  an  IRQ  interrupt  counter 

Interrupt-driven  music 

Set  up  an  IRQ  interrupt  routine 

Jiffy  clock  delay 

Read  the  jiffy  clock 

Print  the  jiffy  clock  reading 

Set  the  jiffy  clock 
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J0Y2SE 


JOYSTK 
KEYDEL 


LOADBS 
LOADRL 
MATGET 
MBU64 

MBU128 


MOVEDN 

MOVSAB 

MTCCOL 

MTCMOD 

MULAD1 

MULAD2 


MVU64 
MVU128 
NMIINT 
NOTETB 


OPENFL 
OPENPR 
PAINT 


PASMEM 

PASUSR 

PLOTCR 

POKRUR/ 

PEKRUR 

POKSCR 

PRTCHR 

PRTSTR 

PTABAD 

PTABCT 

RAS64 

RAS128 

RD2BYT 


Wait  for  a  keypress 
Load  a  program  (ML  or  BASIC)  to  the  location  from  which  it 
was  saved 

Load  a  BASIC  program  into  the  current  BASIC  text  area 

Load  a  BASIC  or  ML  program  at  a  designated  memory  address 

Get  a  character  using  the  keyboard  matrix 

(64  only)  Move  BASIC  text  area  above  an  ML  program  on  the 

64 

(12S  only)  Move  BASIC  text  area  above  an  ML  program  on  the 
Tune  player 

Convert  mixed-case  characters  to  all  lowercase 
Convert  mixed-case  characters  to  all  uppercase 
Move  a  block  of  data  downward  in  memory 
Move  sprite  to  an  absolute  (predetermined)  screen  location 
Set  the  colors  for  multicolor  mode 
Turn  multicolor  mode  on  or  off 
Multiply  two  numbers  with  successive  adds 
Multiply  two  numbers  with  repeated  addition  (o 
version) 

Multiply  two  flc 
Multiply  two 

(64  only)  Move  a  block  of  data  up 
(128  only)  Move  a  block  of  data  upward  in  memory 
Set  up  an  NMI  interrupt  routine 
Create  a  table  of  standard  frequencies  (eight  octaves/12  notes 
each) 

Print  two-byte  integer  values 
Open  a  sequential  or  program  file 
Open  a  printer  channel 

Fill  an  irregular  hi-res  enclosed  outline  with  a  solid  color 
(64  only)  Pass  values  from  BASIC  to  ML  using  the  FRMEVL 
routine 

Pass  values  from  BASIC  to  ML  by  POKEing  to  tree  memory 
Pass  values  to  an  ML  program  directly  through  the  registers 
Pass  values  from  BASIC  to  ML  via  the  USR  function 
Set  the  cursor  location 


(64  only)  P 


under  ROM  /  PEEK 


POKE  to  screen  and  color  memory 
Print  a  character  on  the  screen 
Send  characters  to  the  printer 
Send  a  string  to  the  printer 
Print  a  string  from  a  lookup  table  of  addresses 
Print  a  string  from  a  table  by  using  a  counting  method 
(64  only)  Set  up  a  raster  interrupt 
(128  only)  Set  up  a  raster  interrupt 

Generate  a  random  two-bvte  integer  value  using  SID  voice  3 
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RDBUFF 
RDBYRG 


READBF 
READFL 
RENAME 
RENUM1 


RNDBYT 

RPTKEY 

RSREGM 

RSTVEC 

SAVEBS 

SAVE  ML 

SCRCAS 

SCRDN1 

SCRDN2 

SCRDN3 


SHFCHK 

SIDCLR 

SIDVOL 

SIRENS 

SPRINT 

SQROOT 

SRCBIN 

SRCLIN 

STASH 

STP64 

STP128 

STPFLG 

STPKER 

STRCPT 

STRLEN 

SUBBYT 

SUBFP 

SUBINT 

SVREGM 


SWAPIT 
SWITCH 


Open  a  disk  channel,  read  a  sector,  copy  the  disk  buffer  to 


memory 
Generate  a  random  one-b 


r  routine 


(128  only)  Read  and  write  to  the  80-column  video  chip 
Read  bytes  from  a  sequential  or  program  file  into  a  buffer 
Read  characters  from  a  sequential  or  program  file 
Rename  a  disk  file 

Simple  renumber  routine  (line  numbers  only) 

Generate  a  random  floating-point  number  using  BASIC'S 

RND(l)  function 

Generate  a  random  one-byte  integer  value  (0-255)  using  SID 
voice  3 

Set  repeat  key  flag 

Restore  registers  from  memory 

Restore  all  Kernal  indirect  vectors 

Save  a  BASIC  program 

Save  an  ML  program 

Convert  screen  codes  to  Commodore  ASCII  characters 

(64  only)  Scroll  down  a  line  with  the  INST  character 

(64  only)  Scroll  the  screen  down  a  line  with  the  ROM  insert 

routine 

Scroll  down  a  line  of  the  screen  by  copying  screen  and  color 
memory 

Scratch  (erase)  a  disk  file 
Check  the  status  of  the  shift  keys 
Clear  the  SID  chip 
Set  the  SID  chip  volume  register 
Produce  a  siren  sound 

Sprite  interrupt  routine — automatic  sprite  movement 
Calculate  the  integer  square  root  of  an  integer  value 
Binary  search  of  a  sorted  list 
Linear  search  for  a  string  or  other  value 
(128  only)  Store  system  memory  to 
(64  only)  Print  a  string  with  STROUT 
(128  only)  Print  a  string  with  PRIMM 
Check  for  STOP  key  by  using  the  system  STOP  flag 
Check  for  the  STOP  key  using  the  Kernal  STOP  routine 
Print  a  string  with  a  custom  printing  routine 
Determine  string  length 
Subtract  one  byte  value  from  another 
Subtract  one  floating-point  number  from  another 
Subtract  one  2-byte  integer  value  from  another 
Save  processor  registers  in  memory 

Save  and  restore  registers  on  the  stack  within  a  routine  (in-1 
code) 

Memory  swap 

Switch  uppercase  to  lowercase  and  vice  versa 
Convert  characters  from  true  ASCII  to  Commodore  ASCII 
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TOD1DL 

TOD1RD 

TOD2PR 

TOD2ST/ 

TOD1ST 

TXTCCH 

TXTCIN 

TXTCOL 

TXTINP 

VALIDT 

VDCCOL 

VERIFY 

VICADR 

VIDBNK 

WARMST 

WINDOW 

WR80CO 

WRBUFF 

WRITBF 

WRITFL 


Time-of-day  (TOD)  dock  1  delay 
Read  a  time-of-day  (TOD)  clock 
Print  the  time-of-day  (TOD)  time 

Set  a  time-of-day  (TOD)  clock 

Set  the  text  color  using  CHR$ 

Input  a  line  of  text  using  a  custom  routine 

Set  the  text  color 

Input  a  line  of  text  with  the  ROM  routine  INLIN 
Validate  a  disk 

(128  only)  Write  to  80-column  video  attribute  ma 

Verify  a  disk  file 

Change  the  text  screen  location 

Change  the  video  bank 

Warm  start 

(128  only)  Set  window  boundaries  with  escape  co 
See  RE80CO 

Open  a  disk  buffer  and  write  a  sector  to  disk 
Write  a  buffer  to  a  sequential  or  program  file 
Send  characters  to  a  sequential  or  program  file 
Set  colors  for  extended  background  color  mode 
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To  order  your  copy  of  COMPUTEI's  Machine  Language 
Routines  for  the  Commodore  64  and  1284  Disk,  call  our  toll- 
free  US  order  line:  1-800-346-6767  (in  NY  212-887-8525)  or 
send  your  prepaid  order  to: 

COMPUTEI's  Machine  Language  Routines  for  the 

Commodore  64  and  128  Disk 

COMPUTE!  Publications 

P.O.  Box  5038 

F.D.R.  Station 

New  York.  NY  10150 

All  orders  must  be  prepaid  (check,  charge,  or  money  order),  NC 
residents  add  5%  sales  tax.  NY  residents  add  8.25%  sales  tax. 

Send    copies  of  COMPUTEI's  Machine  Language  Routines 

for  the  Commodore  64  and  128  Disk  at  $12.95  per  copy. 


Subtotal  $. 


Shipping  and  Handling:  $2.00/disk  $  

Sales  tax  (if  applicable)  $  
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□  Payment  enclosed 

□  Charge  □  Visa  □  MasterCard  □  American  Express 

Acct.  No.    Exp.  Date   

(Reouired) 

Name   
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The  Machine  Language 
Library 

If  you're  interested  in  machine  language  programming  on  the 
Commodore  64  or  128,  this  book  is  a  necessity.  Machint  Language 
Routines  for  the  Commodore  64  and  128  gives  programmers  a  li- 
brary of  ML  routines  for  the  64  and  128  personal  computers.  In 
an  easy-to-use  dictionary  arrangement,  it  puts  over  200  indispens- 
able routines  at  your  fingertips.  Each  routine  is  fully  described 
and  is  accompanied  by  an  example  program  that  demonstrates 
its  use.  As  a  bonus,  the  routines  are  ready  to  be  plugged  into 
your  own  programs.  Cross-references  direct  you  to  other  routines 
that  perform  similar  or  related  functions. 

Here's  a  sample  of  what  you'll  find  inside  for  the  beginner. 

•  Numerous  short  routines  that  perform  mathematical  function*. 

•  Routines  that  explain  how  to  read,  write,  and  manipulate  disk 

files. 

•  Programs  to  convert  strings  and  numbers. 

•  Easy-to-use  techniques  for  reading  joysticks  and  for  adding 
sound  effects  and  music  to  your  programs. 

And  for  the  more  advanced  programmer: 

•  Interrupt-driven  programs  for  playing  music. 

•  Routines  to  move  sprites  automatically. 

•  Programs  to  display  16  sprites  at  the  same  time. 

•  Examples  of  how  to  pass  values  between  ML  and  BASIC. 

•  And  much  more. 

Authors  Todd  Heimarck  and  Patrick  Parrish  have  combined 
a  wealth  of  knowledge  and  experience  to  create  this  information- 
packed  sourcebook.  With  clear  explanations  and  useful  examples. 
Machine  Language  Routines  for  the  Commodore  64  and  128  is  a 
handy  reference  guide  as  well  as  an  exceptional  tutorial. 


The  source  code  for  each  of  the  routines  in  this  book  is  also  available  on 
a  companion  disk.  See  the  coupon  in  the  back  of  the  book  for  details. 
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